register.asp
来自「我的小网站个人利用业余时间设计的」· ASP 代码 · 共 141 行
ASP
141 行
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<body background="image/back.gif">
<table width="97%" height="300" border="0" cellpadding="0" cellspacing="0" align="center" class="lrtd" bgcolor="#FFFFFF" background="image/back.gif">
<tr>
<td width="168" class="rtd"> </td>
<td width="590"><br><%IF Request.QueryString("action")="agree" Then%>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<form name="register" method="post" action="register.asp?action=register"><tr>
<td height="24" colspan="2" align="center" class="header">用户注册</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="htd">用户名： </td>
<td bgcolor="#FFFFFF" class="htd"><input name="UserName" type="text" id="UserName" size="24" maxlength="24">
<b><font color="#FF0000"> *</font></b> 用户名不能超过24个字符，12个汉字</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="htd">密码： </td>
<td bgcolor="#FFFFFF" class="htd"><input name="Password" type="password" id="Password" size="16" maxlength="16">
<b><font color="#FF0000">*</font></b> 密码必须是6-16位</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="htd">确认密码：</td>
<td bgcolor="#FFFFFF" class="htd"><input name="PasswordR" type="password" id="PasswordR" size="16" maxlength="16">
<b><font color="#FF0000">*</font></b> 请输入确认密码</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="htd">电子信箱：</td>
<td bgcolor="#FFFFFF" class="htd"><input name="Email" type="text" id="Email">
<b><font color="#FF0000">*</font></b> 请输入有效的电子信箱地址</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="htd"><br> <br></td>
<td bgcolor="#FFFFFF" class="htd"> <br> </td>
</tr>
<tr>
<td colspan="2" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 提 交 ">
<input name="Reset" type="reset" id="Reset" value=" 重 置 ">
</td>
</tr></form>
</table>
<%ElseIF Request.QueryString("action")="register" Then
Dim Reg_Title,Reg_Message
IF CheckStr(Request.Form("UserName"))=Empty OR CheckStr(Request.Form("Password"))=Empty OR CheckStr(Request.Form("PasswordR"))=Empty OR CheckStr(Request.Form("Email"))=Empty Then
Reg_Title="错误信息"
Reg_Message="请将信息输入完整<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
Else
IF CheckStr(Request.Form("Password"))<>CheckStr(Request.Form("PasswordR")) Then
Reg_Title="错误信息"
Reg_Message="密码与确认密码不符<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
ElseIF Len(CheckStr(Request.Form("Password")))<6 OR Len(CheckStr(Request.Form("Password")))>16 Then
Reg_Title="错误信息"
Reg_Message="密码长度不符合<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
ElseIF Len(CheckStr(Request.Form("UserName")))>24 Then
Reg_Title="错误信息"
Reg_Message="用户名长度超过24个字符，12个汉字<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
ElseIF IsValidEmail(CheckStr(Request.Form("Email")))=False Then
Reg_Title="错误信息"
Reg_Message="电子信箱输入错误<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
Else
Dim memAlready
Set memAlready=Conn.Execute("SELECT mem_Name FROM blog_Member WHERE mem_Name='"&CheckStr(Request.Form("Username"))&"'")
IF NOT(memAlready.EOF AND memAlready.BOF) Then
Reg_Title="错误信息"
Reg_Message="对不起，你所使用的用户名已经注册<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
Else
Conn.Execute("INSERT INTO blog_member(mem_Name,mem_Password,mem_Email) Values ('"&CheckStr(Request.Form("Username"))&"','"&md5(CheckStr(Request.Form("Password")))&"','"&CheckStr(Request.Form("Email"))&"')")
Conn.ExeCute("UPDATE blog_Info SET blog_MemNums=blog_MemNums+1")
Response.Cookies(CookieName)("memName")=CheckStr(Request.Form("Username"))
Response.Cookies(CookieName)("memPassword")=md5(CheckStr(Request.Form("Password")))
Response.Cookies(CookieName)("memStatus")="Member"
Reg_Title="注册成功"
Reg_Message="欢迎你来到 "&siteName&"<br><a href='index.asp'>点击返回主页</a>"
End IF
Set memAlready=Nothing
End IF
End IF%>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="24" align="center" class="header"><%=Reg_Title%></td>
</tr>
<tr>
<td height="88" align="center" valign="middle" bgcolor="#FFFFFF" class="htd"><%=Reg_Message%></td>
</tr>
</table>
<%Else%><table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="24" align="center" class="header">用户注册协议</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="htd"> 为维护网上公共秩序和社会稳定，请您自觉遵守以下条款： <br>
<br>
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息： <br>
（一）煽动抗拒、破坏宪法和法律、行政法规实施的； <br>
（二）煽动颠覆国家政权，推翻社会主义制度的； <br>
（三）煽动分裂国家、破坏国家统一的； <br>
（四）煽动民族仇恨、民族歧视，破坏民族团结的； <br>
（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的； <br>
（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的； <br>
（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的； <br>
（八）损害国家机关信誉的； <br>
（九）其他违反宪法和法律行政法规的； <br>
（十）进行商业广告行为的。 <br>
二、互相尊重，对自己的言论和行为负责。 <br>
<br></td>
</tr>
<tr>
<form name="bbrules" method="post" action="register.asp?action=agree"><td align="center" bgcolor="#FFFFFF"><input name="rulesubmit" type="submit" id="agree" value="我已阅读并同意以上条款">
<input type="button" name="return" value="不同意" onclick="javascript:history.go(-1);">
<script language="javascript">
var secs = 9;
var wait = secs * 1000;
document.bbrules.rulesubmit.value = "我已阅读并同意以上条款 (" + secs + ")";
document.bbrules.rulesubmit.disabled = true;
for(i = 1; i <= secs; i++) {
window.setTimeout("update(" + i + ")", i * 1000);
}
window.setTimeout("timer()", wait);
function update(num, value) {
if(num == (wait/1000)) {
document.bbrules.rulesubmit.value = "我已阅读并同意以上条款";
} else {
printnr = (wait / 1000)-num;
document.bbrules.rulesubmit.value = "我已阅读并同意以上条款 (" + printnr + ")";
}
}
function timer() {
document.bbrules.rulesubmit.disabled = false;
document.bbrules.rulesubmit.value = "我已阅读并同意以上条款";
}
</script></td></form>
</tr>
</table><%End IF%>
<br></td>
</tr>
</table>
</body>
<!--#include file="footer.asp" -->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?