📄 regpost.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/email.asp"-->
<head>
<title>用户注册</title>
<LINK href="forum.css" rel=stylesheet>
</head>
<!--#include file="inc/theme.asp"-->
<body bgcolor="#FFFFFF" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0">
<%
dim username
dim sex
dim pass1
dim pass2
dim password
dim useremail
dim face,width,height
dim oicq
dim sign
dim rs,sql
dim founderr
dim errmsg
dim boardtype
founderr=false
call chkinput
sub chkinput()
if request("name")="" or strLength(request("name"))>20 then
errmsg=errmsg+"<br>"+"<li>请输入您的用户名(长度不能大于20)。"
founderr=true
else
username=trim(request("name"))
end if
if request("sex")="" then
errmsg=errmsg+"<br>"+"<li>请选择您的性别。"
founderr=true
elseif request("sex")=0 or request("sex")=1 then
sex=request("sex")
else
errmsg=errmsg+"<br>"+"<li>您输入的字符非法。"
founderr=true
end if
if request("psw")="" or strLength(request("psw"))>10 then
errmsg=errmsg+"<br>"+"<li>请输入您的密码(长度不能大于10)。"
founderr=true
else
pass1=request("psw")
end if
if request("pswc")="" or strLength(request("pswc"))>10 then
errmsg=errmsg+"<br>"+"<li>请输入确认密码(长度不能大于10)。"
founderr=true
else
pass2=request("pswc")
end if
if pass1<>pass2 then
errmsg=errmsg+"<br>"+"<li>您输入的密码和确认密码不一致。"
founderr=true
else
password=pass2
end if
if IsValidEmail(trim(request("e_mail")))=false then
errmsg=errmsg+"<br>"+"<li>您的Email有错误。"
founderr=true
else
useremail=trim(request("e_mail"))
end if
if request("myface")<>"" then
if request("width")="" or request("height")="" then
errmsg=errmsg+"<br>"+"<li>请输入图片的宽度和高度。"
founderr=true
elseif not isInteger(request("width")) or not isInteger(request("height")) then
errmsg=errmsg+"<br>"+"<li>您输入的字符不合法。"
founderr=true
elseif request("width")<20 or request("width")>120 then
errmsg=errmsg+"<br>"+"<li>您输入的图片宽度不符合标准。"
founderr=true
elseif request("height")<20 or request("height")>160 then
errmsg=errmsg+"<br>"+"<li>您输入的图片高度不符合标准。"
founderr=true
else
face=request("myface")
width=request("width")
height=request("height")
end if
else
if request("face")="" then
errmsg=errmsg+"<br>"+"<li>请选择您的个性头像。"
founderr=true
elseif Instr(request("face"),picurl)>0 then
face=request("face")
width=32
height=32
else
errmsg=errmsg+"<br>"+"<li>您选择了错误的头像。"
founderr=true
end if
end if
if request("oicq")<>"" then
if chkoicq(request("oicq"))=false then
errmsg=errmsg+"<br>"+"<li>Oicq号码只能是4-10位数字，您可以选择不输入。"
founderr=true
end if
end if
end sub
sub saveuserinfo()
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof or username="边唐" then
errmsg=errmsg+"<br>"+"<li>对不起，您输入的用户名已经被注册，请重新输入。"
founderr=true
else
rs.addnew
rs("username")=username
rs("userpassword")=password
rs("useremail")=useremail
rs("userclass")="新手上路"
if request("Signature")<>"" then
rs("sign")=trim(request("Signature"))
end if
if request("oicq")<>"" then
rs("oicq")=request("oicq")
end if
Rs("article")=0
Rs("sex")=sex
Rs("addDate")=NOW()
rs("face")=face
Rs("width")=width
Rs("height")=height
rs("logins")=1
Rs("lastlogin")=NOW()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end sub
if founderr=true then
call error()
else
call saveuserinfo()
if founderr=true then
call error()
else
%>
<br>
<TABLE border=0 width="95%" align=center>
<TBODY>
<TR>
<TD vAlign=top width=30%><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></TD>
<TD valign=middle align=top>
<img src="<%=picurl%>closedfold.gif" border=0> <a href="index.asp"><%=ForumName%></a><br>
<img src="<%=picurl%>bar.gif" border=0 width=15 height=15><img src="<%=picurl%>openfold.gif" border=0> 注册成功</a>
</TD></TR></TBODY></TABLE>
<br>
<table cellpadding=0 cellspacing=0 border=0 width=500 bgcolor=<%=aTablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<TBODY>
<TR align=middle bgcolor=<%=aTabletitlecolor%>>
<TD colSpan=2 height=24><b>用户注册成功</b></TD></TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD colspan=2><center><b>
<%
topic="您在"&ForumName&"注册的个人资料"
mailbody=mailbody &"<style>A:visited { TEXT-DECORATION: none }"
mailbody=mailbody &"A:active { TEXT-DECORATION: none }"
mailbody=mailbody &"A:hover { TEXT-DECORATION: underline overline }"
mailbody=mailbody &"A:link { text-decoration: none;}"
mailbody=mailbody &"A:visited { text-decoration: none;}"
mailbody=mailbody &"A:active { TEXT-DECORATION: none;}"
mailbody=mailbody &"A:hover { TEXT-DECORATION: underline overline}"
mailbody=mailbody &"BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}"
mailbody=mailbody &"TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }</style>"
mailbody=mailbody &"<TABLE border=0 width='95%' align=center><TBODY><TR><TD>"
mailbody=mailbody &""&htmlencode(username)&"，您好：<br><br>"
mailbody=mailbody &"欢迎您注册本论坛，我们将提供给您最好的论坛服务！<br>"
mailbody=mailbody &"下面是您的注册信息：<br>"
mailbody=mailbody &"注册名："&htmlencode(username)&"<br>"
mailbody=mailbody &"密 码："&htmlencode(password)&"<br>"
mailbody=mailbody &"<br><br>"
mailbody=mailbody &"<center><font color=red>再次感谢您注册本系统，让我们一起来建设这真正的商务网站！</font>"
mailbody=mailbody &"<br><br><br>"
mailbody=mailbody &"<tr align=right><td><font size=3.5pt>www.1ping.com (一品网) "&now()&"</font></td></tr>"
mailbody=mailbody &"<br><br><br><br><br>"
mailbody=mailbody &"***********************************************************************************************"
mailbody=mailbody &"一品网论坛为您及时解决任何学习当中的问题：<A HREF=HTTP://WWW.1ping.com/bbs2001/>一品网论坛</a>"
mailbody=mailbody &"一品网企业在线，为个人，企业提供免费上网，发布供求信息：<A HREF=HTTP://WWW.1ping.com/>一品网企业在线</a>"
mailbody=mailbody &"一品网原码下载为您提供最好ASP原程序：<A HREF=HTTP://WWW.1ping.com/download/>一品网下载</a>"
mailbody=mailbody &"一品网为您提供最好的网上娱乐和考研信息：<A HREF=HTTP://WWW.1ping.com/chat125/>一品网</a>"
mailbody=mailbody &"***********************************************************************************************"
mailbody=mailbody &""&Copyright&" "&Version&""
mailbody=mailbody &"</TD></TR></TBODY></TABLE>"
on error resume next
%>
<%if EmailFlag=0 then%><center><b>欢迎使用本系统，有任何问题，请与网管(<a href=mailto:<%=systememail%>><%=systememail%></A>)联系!</b>
<%elseif EmailFlag=1 then
Response.Write "<center><b> 一封注册信已经发送到你您注册时填写的信箱，请查收！</b>"
email = useremail
call Jmail(email)
%>
<%elseif EmailFlag=2 then
Response.Write "<center><b> 一封注册信已经发送到你您注册时填写的信箱，请查收！</b>"
email = useremail
call Cdonts(email)
%>
<%elseif EmailFlag=3 then
Response.Write "<center><b> 一封注册信已经发送到你您注册时填写的信箱，请查收！</b>"
email = useremail
call Aspemail(email)
end if
%>
</TD></TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD width=150>注 册 名**</TD>
<TD><%=htmlencode(username)%></TD></TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD width=150>性 别</TD>
<TD><%if sex=1 then%>男<%else%>女<%end if%></TD></TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD width=150>密 码**</TD>
<TD><%=htmlencode(password)%>
</TD></TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD width=150 height=32>Email地址 **</TD>
<TD height=32><%=useremail%></TD></TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD width=150 height=32>形象**</TD>
<TD height=32><img src="<%=face%>">
</TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD width=150>OICQ号码</TD>
<TD><%if request("oicq")="" then%>未注册<%else%><%=request("oicq")%><%end if%> </TD></TR>
<TR bgcolor=<%=Tablebodycolor%>>
<TD width=150>签 名<BR><BR>文字将出现在您发表的文章的结尾处。体现您的个性。 </TD>
<TD><%if trim(request("Signature"))="" then%>未填写<%else%><%=trim(request("Signature"))%><%end if%>
</TD></TR>
<TR align=middle bgcolor=<%=aTabletitlecolor%>>
<TD colSpan=2>
<DIV align=center><a href=login.asp>〖请登陆论坛〗</a></DIV></TD></TR></TBODY></TABLE></td></tr></table>
<%
end if
end if
%>
<p align=center><%=ads2%>
<%=Copyright%> <%=Version%>
</p>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -