📄 reg.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->
<!--#include file="md5.asp" -->
<%
if Request("action")="Check" then
response.write("<body "&background&">")
username=Request("username")
if username="" then
response.write "<font class=tdc>请填写您要注册的用户名！</font>"
response.end
end if
sql1="select username from user where username='"&username&"'"
set rs1=conn.execute(sql1)
if rs1.eof then
response.write "<font class=tdc>用户名" "&username&" "可以正常注册！</font>"
else
response.write "<font class=tdc>您所选的用户名" "&username&" "已经有用户使用，请另外选择一个用户名。</font>"
end if
set rs1=nothing
response.end
end if
'写出标题
cpbtitle="注册新用户"
call toptitle(l_title,cpbtitle)
call head(4,"","",cpbtitle)
'取出变量
dim h_lockregtxt,h_lockreg,h_lockregwhy,q_title,q_content,h_selectemail,h_emailserver,h_reg,h_regfen,h_weiwang,h_regbeauty,h_checkemail,h_regmoney
sql="select h_lockregtxt,h_yzreg,h_lockreg,h_lockregwhy,h_checkemail,q_title,q_content,h_selectemail,h_emailserver,h_reg,h_regmoney,h_regfen,h_weiwang,h_regbeauty from home"
set rsconn1=conn.execute(sql)
if not rsconn1.eof then
h_lockreg=rsconn1("h_lockreg")'是否关闭注册论坛
h_lockregwhy=rsconn1("h_lockregwhy")'是否关闭注册论坛原因
h_checkemail=rsconn1("h_checkemail")'验证邮箱
h_reg=rsconn1("h_reg")'开通email发送密码
h_emailserver=trim(rsconn1("h_emailserver"))'email邮件地址
h_selectemail=rsconn1("h_selectemail")'开通emial
h_regfen=rsconn1("h_regfen")
h_regmoney=rsconn1("h_regmoney")
h_regbeauty=rsconn1("h_regbeauty")
h_weiwang=rsconn1("h_weiwang")
q_title=rsconn1("q_title")
q_content=rsconn1("q_content")
h_yzreg=rsconn1("h_yzreg")
h_lockregtxt=rsconn1("h_lockregtxt")
end if
set rsconn1=nothing%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function ubb(str)
ubb = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32), " ")
End Function
</SCRIPT>
<script language=javascript>
function Check()
{var Name=document.form1.UserName.value;
window.open("reg.asp?action=Check&username="+Name,"","width=200,height=15");
}
//定义头像
function imghead1()
{
document.form1.imgheadfy.src=document.form1.imghead.value;
document.form1.imgheadfy.width=document.form1.imgwidth.value;
document.form1.imgheadfy.height=document.form1.imgheight.value;
}
</script>
<% '是否关闭注册
if h_lockreg=1 then
errormsg="<li><b>论坛暂时关闭注册新用户</b></LI>"
errormsg=errormsg&"<li>"&ubb(h_lockregwhy)&"</LI>"
call error(errormsg)
call bq()
response.end
end if%>
<% select case(request("action"))
case "add"
call add()
case "adduser"
call adduser()
case else
call show()
end select
sub show()%>
<table border=1 borderColor=<%=tdc2%> cellPadding=2 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
<tr>
<td width="100%" <%=tColor%> class=tdc1 height=23>
<p align="center">论坛服务条款和声明</td>
</tr>
<tr>
<td width="100%" bgcolor=<%=tColor2%> class=tdc>
欢迎您加入本站点参加交流和讨论，本站点为公共论坛，为维护网上公共秩序和社会稳定，请您自觉遵守以下条款：<br>
<br>
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息： <br>
（一）煽动抗拒、破坏宪法和法律、行政法规实施的；<br>
（二）煽动颠覆国家政权，推翻社会主义制度的；<br>
（三）煽动分裂国家、破坏国家统一的；<br>
（四）煽动民族仇恨、民族歧视，破坏民族团结的；<br>
（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；<br>
（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<br>
（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；<br>
（八）损害国家机关信誉的；<br>
（九）其他违反宪法和法律行政法规的；<br>
（十）进行商业广告行为的。<br>
二、互相尊重，对自己的言论和行为负责。 <br>
三、本站网管拥有一切权利，对此不得有何异议。<br>
<br>
<br>
若你同意以上条款，请按“接受”进入注册，若不同意，请按“不接受”返回论坛继续浏览。<br>
</td>
</tr>
<tr>
<td width="100%" <%=tColor%> class=tdc height=22>
<p align="center"><input type="button" value="接受" name="B1" class=bdtj onclick="window.location.href='reg.asp?action=add'"> <input type="button" value="不接受" name="B2" class=bdtj onclick="window.location.href='index.asp'"></td>
</tr>
</table>
<% end sub
sub add() %>
<table cellPadding=0 cellSpacing=0 width=<%=tdc3%> align=center>
<form ACTION="reg.asp?action=adduser" METHOD="POST" NAME=form1>
<TR>
<td width="100%" >
<table border=1 borderColor=<%=tdc2%> style="border-collapse: collapse" cellPadding=4 cellSpacing=1 width=100%>
<tr>
<td colspan="2" <%=tColor%> class=tdc1 height="22">带<font color="#FF00FF">*</font>的必须填写</td>
</tr>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22">用户名<font color="#FF00FF">:*</font></td>
<td width="82%" bgcolor=<%=tColor2%> class=tdc height="23">
<input TYPE=TEXT NAME=UserName SIZE=25 MAXLENGTH=15 class="bdtj3"> <input onclick="javascript:Check()" type="button" value="检测帐号" name="button" class=bdtj3>
(最少2位，最多12位)
</td>
</tr>
<%if h_reg<>1 then%>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class="tdc" align="right" height="22">密码<font color="#FF00FF">:*</font></td>
<td width="82%" bgcolor=<%=tColor2%> class="tdc" height="23">
<input type=password name=password size=20 maxlength=13 class="bdtj3">(最少6位，最多18位)
</td>
</tr>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22">确认密码<font color="#FF00FF">:*</font></td>
<td width="82%" bgcolor=<%=tColor2%> class=tdc height="23">
<input type=password name=password1 size=20 maxlength=13 class="bdtj3">
</td>
</tr>
<%end if%>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22" >
Email<font color="#FF00FF">:*</font></td>
<td width="82%" bgcolor=<%=tColor2%> class=tdc height="23">
<input TYPE=TEXT NAME=Email SIZE=30 MAXLENGTH=50 class="bdtj3"><% if h_reg=1 then response.write("请认真填写，密码将通过此信箱发送给您")%>
</td>
</tr>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22" >
是否显示Email</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -