<%@language="vbscript"%>
<html>
<script language="vbscript" runat=server>
Sub lstclick(sender as Object,e as EventArgs)
dim strtemp
dim inti
strtemp="<br>"
for inti=0 to lstbox.items.count-1
if lstbox.item(inti).selected then
select case lstbox.items(inti).value
case"+"
strtemp=strtemp&"3+2=5<br>"
case"-"
strtemp=strtemp&"3-2=1<br>"
case"*"
strtemp=strtemp&"3*2=6<br>"
case"/"
strtemp=strtemp&"3/2=1.5<br>"
end select
end if
next
labcontrnt.text=strtemp
End sub
</script>
<body>
请选择计算题：<br>
<form runat="server">
<asp:listbox id="lstbox" runat=server autopostback=true selectionmode="single"
rows=3 onselectedindexchanged="lstclick">
<asp:listitem text="3+2=?" value="+" selected="false"/>
<asp:listitem text="3-2=?" value="-" selected="false"/>
<asp:listitem text="3*2=?" value="*" selected="false"/>
<asp:listitem text="3/2=?" value="/" selected="false"/>
</asp:listbox>
<hr>
<asp:label runat=server id=labcontent>
</form>
</body>
</html>
请问上面那些语句什么地方错了？为什么浏览的时候显示：
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/new_page_2.asp, line 5, column 20
Sub lstclick(sender as Object,e as EventArgs)
-------------------^
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
网页：
GET /new_page_2.asp
时间：
2004年10月20日, 20:16:01
详细信息：
Microsoft 支持
谢谢！！！！！！！！！！！！！！！！！！！！！！！11
