<HTML>
<HEAD>
  <TITLE>用户登录</TITLE>
<SCRIPT LANGUAGE = "VBSCRIPT">
  Function formlogin_onsubmit
    str = Document.formlogin.name.Value
    If trim(str) = "" then
       Window.Alert("用户名不能为空")
       Document.formlogin.name.Focus()
       formlogin_onsubmit=False
       Exit Function
    End if
    formlogin_onsubmit=True
  End Function
</SCRIPT>
</HEAD>
<BODY>  <H4 align="center">欢迎进入迷你聊天室</H4>    <HR>
<Form name="formlogin" action="logincheck.asp" method="post">
    <P align="center">您的呢称： 
       <INPUT type="text" name="name" size=15></P>
    <P align="center">您的密码：
       <INPUT Type="password" name="pwd" size=15></P>
    <P align="center"><input type="submit" value="进入" >
                      <input type="reset" value="重写" ></P>
</Form>
<P align="center"><FONT color="red"><%=Request.QueryString("msg")%>
</BODY></HTML>
