📄 reg.asp

📁 这是一个非常好的留言版程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/setup.asp"-->
<%
UserID1=Trim(Request.Form("UserID"))
UserName1=Trim(Request.Form("UserName"))
Psw=Trim(Request.Form("Psw"))
Email=Trim(Request.Form("Email"))
Webname=Trim(Request.Form("webname"))
weburl=Trim(Request.Form("weburl"))
dim CheckID,CheckEmail,CheckCode,isSucess
CheckID=0
CheckEmail=0
if UserID1<>"" then
	'检测用户名
	set rs=conn.execute("select count(*) as CheckID from myuser where UserID='"&UserID1&"'")
	CheckID=rs("CheckID")
	rs.close
	'检测用户Email
	set rs=conn.execute("select count(*) as CheckEmail from myuser where Email='"&Email&"'")
	CheckEmail=rs("CheckEmail")
	rs.close
	'检查验证码
	if Trim(Session("1zhai"))=Trim(Request.Form("ValidateCode")) then
		CheckCode=0
	else
		CheckCode=1
	end if
	
	if CheckID=0 and CheckEmail=0 and CheckCode=0 then	
		set rsadd=server.createobject("ADODB.recordset")
		Application.Lock()
		rsadd.Open "myuser",conn,3,3
		rsadd.AddNew
		rsadd("UserID")=UserID1
		rsadd("UserName")=UserName1
		rsadd("Psw")=Psw
		rsadd("Email")=Email
		rsadd("webname")=webname
		rsadd("weburl")=weburl
		rsadd("RegTime")=now
		rsadd("LogonTime")=now
		rsadd.Update		
		rsadd.close	
		Application.UnLock()
		Response.Cookies("1zhaiID")=UserID1
		Response.Cookies("1zhaiID").Expires=Date+30
		isSucess="Yes"
		UserID=UserID1
	end if
end if
%>
<script language="JavaScript">
<!--
function CheckCharacter(String)
{
    var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";
	var i;
	var c;
	for(i=0;i<String.length;i++){
		c=String.charAt(i);
		if(Letters.indexOf(c)<0)
			return false;
	}
	return true;
}
function CheckUserID(obj){
	if((obj.UserID.value.length<5)||(obj.UserID.value.length>18)){
		document.all.sUserID.innerHTML='帐号必须是5-18个字符';
		return false;
	}else if(CheckCharacter(obj.UserID.value)==false){
		document.all.sUserID.innerHTML='帐号必须是字母或数字构成';
		return false;
	}else{
		document.all.sUserID.innerHTML='';
		return true;
	}
}
function CheckPsw(obj){
	if((obj.Psw.value.length<5)||(obj.Psw.value.length>18)){
		document.all.sPsw.innerHTML='密码必须是5-18个字符';
		return false;
	}else if(obj.Psw.value!==obj.RePsw.value){	
		document.all.sPsw.innerHTML='';
		document.all.sRePsw.innerHTML='确认密码必须与密码一致';
		return false;
	}else{
		document.all.sPsw.innerHTML='';
		document.all.sRePsw.innerHTML='';
		return true;
	}
}
function CheckEmail(String){
	var re;
	re=new RegExp("\\w+@((\\w)+\\.)+[a-z]{2,3}$");
	return re.test(String);
}
function CheckValidate(obj){
	var ValidateCode=obj.ValidateCode.value;
	if(ValidateCode.length!=4)
	{		
		document.all.sValidateCode.innerHTML='请输入4位验证码';
		return false;
	}
	else
	{
		document.all.sValidateCode.innerHTML='';
		return true;
	}
}
function check(obj){
	var CU,CP,CE,OV;
	CU=CheckUserID(obj);
	CP=CheckPsw(obj);
	CE=CheckEmail(obj.Email.value);
	OV=CheckValidate(obj);
	if(CE){
		document.all.sEmail.innerHTML='';
	}else{
		document.all.sEmail.innerHTML='请正确填写Email地址';
	}	
	if(CU&&CP&&CE&&OV){		
		return true;
	}else{	
		return false;
	}
}
//-->
</script>
<script language="JavaScript">
function submitForm(obj)
{
	var Title=obj.Title.value;
	var Sort=obj.Sort.value;	
	obj.action="list.asp?sort="+Sort+"&title="+escape(Title);
	return true;
}
</script>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
	background-color: #FFFFFF;
}
-->
</style>
<title>新用户注册-D摘网</title>
<br />
<br />
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="6"><img src="image/menu_left.gif" width="6" height="25" /></td>
    <td align="center" background="image/menu_bg.gif" class="title">新用户注册</td>
    <td width="6"><img src="image/menu_right.gif" width="6" height="25" /></td>
  </tr>
</table>
<table width="50%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0074CE">
  <tr>
    <td bordercolor="#FFFFFF" bgcolor="#FFFFFF"><form action="reg.asp" method="post" name="form1" id="form1" style="margin-bottom:0;margin-top:0" onsubmit="return check(this);">
      <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="1">
        <tr>
          <td height="25" colspan="2" align="center" bgcolor="#CFEAFF"  class="redfont"><%
		if isSucess="Yes" then
		    Response.write "<script language=JavaScript>" & chr(13) & "alert('注册成功！正在登陆管理中心...');" & "window.location='myzhai.asp'" & "</script>"
		else			
			if CheckID+CheckEmail+CheckCode<>0 then
				Response.Write("注册失败")	
			end if
			if CheckID<>0 then
				Response.Write("－此用户名已经被注册使用")		
			end if
			if CheckEmail<>0 then
				Response.Write("－此Email已经被注册过")
			end if
			if CheckCode<>0 then
				Response.Write("－验证码输入不正确")
			end if
		%></td>
          </tr>
        <tr>
          <td width="34%" height="25" align="right" bgcolor="#CFEAFF">用户ID:</td>
          <td width="66%" bgcolor="#CFEAFF"><input name="UserID" type="text" id="UserID" maxlength="30" value="<%=UserID1%>" />
              <span class="redfont" id="sUserID">*</span></td>
        </tr>
        <tr>
          <td height="25" align="right" bgcolor="#CFEAFF">用户名称:</td>
          <td bgcolor="#CFEAFF"><input name="UserName" type="text" id="UserName" value="<%=UserName1%>" />          </td>
        </tr>
        <tr>
          <td height="25" align="right" bgcolor="#CFEAFF">密码:</td>
          <td bgcolor="#CFEAFF"><input name="Psw" type="password" id="Psw" value="<%=Psw%>" />
              <span class="redfont" id="sPsw">*</span></td>
        </tr>
        <tr>
          <td height="25" align="right" bgcolor="#CFEAFF">重复密码:</td>
          <td bgcolor="#CFEAFF"><input name="RePsw" type="password" id="RePsw" value="<%=Psw%>" />
              <span class="redfont" id="sRePsw">*</span></td>
        </tr>
        <tr>
          <td height="25" align="right" bgcolor="#CFEAFF">Email:</td>
          <td bgcolor="#CFEAFF"><input name="Email" type="text" id="Email" value="<%=Email%>" />
              <span class="redfont" id="sEmail"> *</span></td>
        </tr>
        <tr>
          <td height="25" align="right" bgcolor="#CFEAFF">网站名称:</td>
          <td bgcolor="#CFEAFF"><input name="webname" type="text" id="Email0" value="<%=webname%>" /></td>
        </tr>
        <tr>
          <td height="25" align="right" bgcolor="#CFEAFF">网址:</td>
          <td bgcolor="#CFEAFF"><input name="weburl" type="text" id="Email1" value="<%=weburl%>" size="29" /></td>
        </tr>
        <tr>
          <td height="25" align="right" bgcolor="#CFEAFF">验证:</td>
          <td bgcolor="#CFEAFF"><input name="ValidateCode" type="text" id="ValidateCode" size="11" maxlength="4" />
            &nbsp;<img src="include/validatecode.asp" width="55" height="16" border="0" align="absmiddle" /> <span class="redfont" id="sValidateCode">*</span></td>
        </tr>
        <tr>
          <td height="35" colspan="2" align="center" bgcolor="#CFEAFF"><input style="width:84px;height:25px;margin:0;cursor: pointer; padding-top:1px;background-color:#89CEFF;border-width:1px;" type="submit" name="Submit" value="提交注册信息" /></td>
        </tr>
      </table>
    </form></td>
  </tr>
</table>
<%
end if
%>
⌨️ 快捷键说明

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