reg.asp
来自「一个非常优秀的自动建站程序」· ASP 代码 · 共 177 行
ASP
177 行
<!--#include file="conn.asp"-->
<html>
<title>虚拟主机代理商自助管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
BODY {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"; line-height: 20px}
.TEXT1 {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"; line-height: 16px}
.TEXT2 {FONT-SIZE: 12pt; FONT-FAMILY: "宋体"; COLOR: #FFFFFF; line-height: 24px; font-weight: bold}
A {TEXT-TRANSFORM: none; COLOR: #000000; TEXT-DECORATION: none}
A:active {COLOR: #ff0000; TEXT-DECORATION: none}
A:visited {COLOR: #000000; TEXT-DECORATION: none}
A:hover {COLOR: #666666; TEXT-DECORATION: underline}
input {font-size:12px; height: 18; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
textarea {font-size:12px; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
select {font-size:12px; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
</STYLE>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" valign="middle">
<TABLE WIDTH="760" BORDER="0" ALIGN="CENTER"><TR><TD>
<%
if Request("action")="action" then
if Trim(Request.Form("UserId"))="" or Trim(Request.Form("UserPass"))="" or Trim(Request.Form("Email"))="" or Trim(Request.Form("QQ"))="" or Trim(Request.Form("tel"))="" or Trim(Request.Form("name"))="" then response.redirect "error.asp?id=004"
if len(Trim(Request.Form("UserId")))<3 or len(Trim(Request.Form("tel")))<7 then response.redirect "error.asp?id=004"
if isValidstring(Trim(Request.form("UserId")))<>"" then Response.Redirect ("error.asp?id=022")
if IsValidEmail(Trim(Request.form("Email")))=false then Response.Redirect ("error.asp?id=015")
sql="select * from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
set rs=conn.Execute(Sql)
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=008")
end if
sql="select * from [Agent_User] where email like'%" & Trim(Request.Form("email"))&"|" & "%'"
set rs=conn.Execute(Sql)
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=014")
end if
rs.close
if EncryptPass=1 then
Set Autohost = Server.CreateObject("autohost.Createhost")
passwd=autohost.md5(Trim(Request.Form("UserPass")))
Set Autohost=nothing
else
passwd=Trim(Request.Form("UserPass"))
end if
sql="select * from [Agent_User] where (ID is null)"
sql="insert into [Agent_User] (userid,passwd,email,TelePhone,name,grade,Createdate,other) values('"&Trim(Request.Form("UserId"))&"','"&passwd&"','"&trim(Request.Form("email"))&"|"&trim(Request.Form("QQ"))&"','"&Trim(Request.Form("tel"))&"','"&Trim(Request.Form("name"))&"','1','"&date&"','"&trim(Request.Form("Other"))&"')"
conn.Execute(Sql)
set rs=nothing
set conn=nothing
'Dim JMail
'Set JMail=Server.CreateObject("JMail.SMTPMail")
'JMail.Logging=True
'JMail.ServerAddress="mail.225500.com"'此处改为你的SMTP服务器地址
'JMail.Sender="admin@225500.com"
'JMail.Subject="注册成功！欢迎您成为宏杰网络用户！"
'JMail.Body="尊敬的客户，您好"&vbCrLf&"欢迎您成为宏杰网络用户。"&vbCrLf&"你的用户名为："&Trim(Request.Form("UserId"))&vbCrLf&"密码为："&passwd&vbCrLf&"宏杰网络科技http://www.225500.com"&vbCrLf&"域名60，空间1元/M"&vbCrLf&"电话:0523-5880920 13815922969"
'JMail.AddRecipient Trim(Request.Form("Email"))
'JMail.Priority=3
'JMail.Execute
'Set JMail=nothing
'Response.write "密码已经发送到<font color=red>" &Trim(Request.Form("email"))&"</font>信箱中，请注意查收"
Response.write "注册成功，请您使用ID和密码登陆！"
Response.write "<meta http-equiv=refresh content=5;url=index.asp >"
response.end
'Response.Redirect("index.asp")
end if
%>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">
<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action" method=post>
<tr>
<td bgcolor=ddeeff align=center height=24 colspan="3">
用户注册
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
<font color=red>*</font> 用户名称:
</td>
<td bgcolor=FFFFFF width=26%>
<input name="UserId" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF width=50%>
登录时所用ID号(<font color=red>>3位</font>)，只能是<font color=red>英文或数字</font>。
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
<font color=red>*</font> 用户密码:
</td>
<td bgcolor=FFFFFF width=26%>
<input type="password" name="UserPass" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF width=50%>
用户登录时所用密码。
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
<font color=red>*</font> 真实姓名:
</td>
<td bgcolor=FFFFFF width=26%>
<input name="name" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF width=50%>
用户姓名，以便联系。
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 电子邮件:
</td>
<td bgcolor=FFFFFF>
<input name="Email" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF>
务必准确，否则不能收到密码
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> QQ:
</td>
<td bgcolor=FFFFFF>
<input name="QQ" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF>
QQ 或MSN
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 电话:
</td>
<td bgcolor=FFFFFF>
<input name="Tel" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF>
带区号技术联系用(<font color=red>>7位</font>)
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
<font color=red>*</font> 备注说明:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="Other" style="width:370px" value="自助注册帐号">
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提 交 " name="Submit">
<input type="reset" value=" 重 置 " name="B2">
</td>
</tr>
</form>
<tr><td bgcolor=FFFFFF colspan="3" align=center><font color=red>请不要使用sina、shou和163.com的邮箱,收不到密码。建议使用hotmail.com的邮箱</font></td></tr>
<tr><td bgcolor=FFFFFF colspan="3" align=center>密码遗忘或再次发送密码，点<a href=sendpass.asp><font color=red><b>这里</b></font></a>取回密码</td></tr>
</table>
<br>
</td>
</tr>
</table>
</TD></TR></TABLE>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?