📄 register.asp

📁 校友通讯系统
💻 ASP
字号:
<HTML>
<HEAD>
<TITLE>校友录-注册页面一:::</TITLE>
<%if Request.Form("hid")="" then%>
<LINK href="inc/css.css" type=text/css rel=stylesheet>
<style TYPE="text/css"> 
<!-- 
 .popcomments 
{ 
position : absolute; width:130;
visibility : hidden; 
border: 1 solid #000001
} 
.in 
{
BORDER-RIGHT: rgb(127,127,127) 1px solid;
BORDER-TOP: rgb(127,127,127) 1px solid;
 FONT-SIZE: 9pt; 
 BORDER-LEFT: rgb(127,127,127) 1px solid; 
 BORDER-BOTTOM: rgb(127,127,127) 1px solid;
 BACKGROUND-COLOR: #ffffff
}
//--> 
</STYLE>
<script language="javascript">
function check(){
if (document.form1.username.value==""){
 alert ("请填写用户名！")
 document.form1.username.focus()
 return false
 }
if (document.form1.password.value.length>12){
 alert ("密码不能为空,密码长度不要高于12位!")
 document.form1.password.focus()
 return false
 }
if (document.form1.password2.value==""){
 alert ("请填写确认密码！")
 document.form1.password2.focus()
 return false
 }
if (document.form1.pwdquest.value==""){
 alert ("请填写密码提示问题！")
 document.form1.pwdquest.focus()
 return false
 }
if (document.form1.pwdanswer.value==""){
 alert ("请填写密码提示问题答案！")
 document.form1.pwdanswer.focus()
 return false
 }
 if (document.form1.pwdanswer.value==document.form1.pwdquest.value){
 alert ("请不要密码提示问题和答案设置为相同")
 document.form1.pwdanswer.focus()
 return false
 }
if (document.form1.password.value!=document.form1.password2.value){
 alert ("两次输入的密码不一致！")
 document.form1.password2.focus()
 return false
 }
document.form1.submit()
}
</script>
</head>
<body>

<form method="POST" name="form1" action="register.asp">
  <div >&nbsp;&nbsp;&nbsp;&nbsp;注册步骤之一： <br>
    <br>
  </div>
  <hr size="1" width="750">
  <div align="center"><b>请填写以下数据</font><p><p>
   
  </div>
  <div align="center">
    <center>
      <table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="300" id="AutoNumber1" height="181" align="center">
        <tr> 
          <td   height="19">用&nbsp;&nbsp;&nbsp;户&nbsp;&nbsp;&nbsp;名：</td>
          <td   height="19"> 
            <input type="text" name="username"  size="20" class=in>
          </td>
         
        </tr>
        <tr> 
          <td   height="19">密&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;码：</td>
          <td   height="19"> 
            <input name="password" type="password" size="20" maxlength="12" class=in>
          </td>          
        </tr>
        <tr> 
          <td   height="19">确&nbsp 认  密  码：</td>
          <td   height="19"> 
            <input name="password2" type="password" size="20" maxlength="12" class=in>
          </td>
         
        </tr>
        <tr> 
          <td   height="19"><span lang="zh-cn">密码提示问题：</span></td>
          <td   height="19"> 
            <input name="pwdquest" type="text" size="20" maxlength="12" class=in>
          </td>
         
        </tr>
        <tr> 
          <td   height="19"><span lang="zh-cn">提示问题答案：</span></td>
          <td   height="19"> 
            <input name="pwdanswer" type="text" size="20" maxlength="12" class=in>
          </td>
        
        </tr>
       
        <tr> 
          <td height="15" colspan="3" align="center"> 
          <input type=hidden name=hid value="ok">
            <input type="button" value="下一步" name="B1" onclick="javascript:check()" class=in>
          </td>
        </tr>
        
      </table>
    </center>
  </div>
</form>
</body>
</html>
<%
else
	username=Request.Form("username")
	password=Request.Form("password")
	pwdquest=Request.Form("pwdquest")
	pwdanswer=Request.Form("pwdanswer")
	Dim cn,strcnn
	Set session("cn")=Server.CreateObject("ADODB.Connection")
	strcnn="driver={microsoft access driver (*.mdb)}; dbq="& Server.MapPath("db/#classmaster#.mdb")
	session("cn").open strcnn
   
    sql="select  count(*) from ec where studentid='"&username&"'"   
    set rs=session("cn").execute(sql) 
    if rs(0)<>0 then
%>    
  <SCRIPT LANGUAGE=javascript>
<!--
alert("此用户已经注册，请重新填写用户名！")
window.history.back();
//-->
</SCRIPT>

 <%
    else
     Response.Redirect"register2.asp?ecid="&username&"&password="&password&"&pwdquest="&pwdquest&"&pwdanswer="&pwdanswer
    end if
%>


<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -