VBScript验证下拉框问题

[aspnewuser]

一个listbox，默认第一项不能选，如果用户没有选择除了第一项之外的其他项的话，则报错。
还有，一个单行文本框用vbscript验证，如果其中包含&,'之类特殊字符的话也报错。

[DeltaCat]

<script language=vbscript>
sub ShowMsg
if document.listbox1.selectedindex < 0 then
msgbox "没选"
end if
if instr(document.text1.value,"&) or instr(document.text1.value,"'") then
msgbox "不合法"
end if
end sub
</script>

[shanhe]

if document.listbox1.selectedindex < = 0 then
msgbox "没选"
end if

[BadBoyCyh]

楼上两位朋友的代码都正确！