下拉列表无法获得值
以下代码无法跳转,而且msgbox结果只显示 OK
<script language="VBScript">
<!--
sub sPage_OnChage()
msgbox "OK" & document.formQuery.sPage.value
window.Location.href = "test3.asp" & "?PAGE=" & document.formQuery.sPage.value
end sub
-->
</script>
<td width="75">第 <select name="sPage" onChange="sPage_OnChage()">
<%
for i =1 to rsQuery.PageCount
Response.Write("<option>" & i & "</option>")
next
%>
</select>
页 </td>