我要做　一个学生给老师评分的网站．我写了一个页面是input.asp　有帐号密码，和一个提交按钮,　我按提交按钮，没反应，　CheckUser.asp页面不　显示．代码如下：
input.asp　：
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/jiaxueguanli.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_jiaxueguanli_STRING
Recordset1.Source = "SELECT * FROM xuesheng"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录界面</title>
<SCRIPT LANGUAGE="VBScript">
Sub check()
if Len(REG.UsrName.value)=0 then
    MsgBox"填写错误，请重新填写"
end if 
end Sub
</SCRIPT>
</head>

<body>
<FORM ACTION="file:///E:\cdm\web\zhandian4\CheckUser.asp" METHOD="post" NAME="REG" ><br>
帐号： 
<input type="TEXT" name="UsrName"    size=10><br>
密码：
<input type="PASSWORD" name="PassWord"    size=10><br>

<input type="SUBMIT" name="OK" value="提交" OnClick="check">
<input type="RESET" name="ReSet" value="取消">
</FORM>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

CheckUser.asp
<%@Language=VBScript%>
<!--#include file="Connections/jiaxueguanli.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_jiaxueguanli_STRING
Recordset1.Source = "SELECT * FROM xuesheng"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<HTML>
   <HEAD><TITLE>检查</TITLE></HEAD>
   <BODY>
     <%
           Dim UsrName,PassWord
          
            UsrName=Request.Form("UsrName")
            PassWord=Request.Form("PassWord")
          
          if Len(UsrName.value)=0 then
      %>
       请输入号码<BR>
        <FORM  METHOD="POST" ACTION="file:///E:\cdm\web\zhandian4\CheckUser.asp" NAME="REG">
            帐号
              <INPUT TYPE="TEXT" NAME="UsrName" SIZE=10><BR>
            密码  
             <input type="PASSWORD" name="PassWord" size=10>
            <BR>
            <input type="SUBMIT" name="OK" value="提交">            
          <INPUT TYPE="RESET" NAME="ReSet" VALUE="取消">
       </FORM>
      
      <%else% >
      <p><%Response.write(UsrName)%>
      <p><% Response.write(PassWord) %>
      <% end if %>
  </BODY>
</HTML>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>


请帮忙改一下，急用！！！！！！！！！！！！！！！！