reg.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/email.asp"-->
<!--#include file="md5.asp"-->
<%
'=========================================================
' File: reg.asp
' Version:5.0
' Date: 2002-12-3
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2002 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: [e-mail],[e-mail]
'=========================================================
response.buffer=true
Dim SendMail
call nav()
if Cint(forum_setting(37))=0 then
	stats="论坛错误信息"
	Errmsg="<br><li>本论坛暂时停止注册。"
	call head_var(2,0,"","")
	call dvbbs_error()
else
	if request("action")="apply" then
		stats="填写资料"
		call head_var(0,0,"论坛注册","reg.asp")
		call reg_2()
	elseif request("action")="save" then
		stats="提交注册"
		call head_var(0,0,"论坛注册","reg.asp")
		call reg_3()
		if founderr then call dvbbs_error()
	else
		stats="注册协议"
		call head_var(0,0,"论坛注册","reg.asp")
		call reg_1()
	end if
end if
call activeonline()
call footer()

sub reg_1()
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
    <tr><th align=center><form action="reg.asp?action=apply" method=post>服务条款和声明</td></tr>
    <tr><td class=tablebody1 align=left>
<!--#include file="inc/reg_txt.asp"-->
	</td></tr>
    <tr><td align=center class=tablebody2><input type=submit value=我同意></td></form></tr>
</table>
<%
end sub

sub reg_2()
%>
<FORM name=theForm action=reg.asp?action=save method=post>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<TBODY> 
<TR align=middle> 
<Th colSpan=2 height=24>新用户注册</TD>
</TR>
<TR> 
<TD width=40% class=tablebody1><B>用户名</B>：<BR>注册用户名长度限制为<%=forum_setting(40)%>－<%=forum_setting(41)%>字节</TD>
<TD width=60%  class=tablebody1> 
<INPUT maxLength="<%=forum_setting(41)%>" size=30 name=name></TD>
</TR>
<TR> 
<TD width=40%  class=tablebody1><B>性别</B>：<BR>请选择您的性别</font></TD>
<TD width=60%  class=tablebody1> <INPUT type=radio CHECKED value=1 name=sex>
<IMG  src=pic/Male.gif align=absMiddle>男孩 &nbsp;&nbsp;&nbsp;&nbsp; 
<INPUT type=radio value=0 name=sex>
<IMG  src=pic/Female.gif align=absMiddle>女孩</font></TD>
</TR>
<%if cint(Forum_Setting(23))<>1 then%>
<TR> 
<TD width=40% class=tablebody1><B>密码(至少6位)</B>：<BR>
请输入密码，区分大小写。<BR>
请不要使用任何类似 '*'、' ' 或 HTML 字符
</TD>
<TD width=60% class=tablebody1>
<INPUT type=password maxLength=16 size=30 name=psw>
</TD>
</TR>
<TR> 
<TD width=40% class=tablebody1><B>密码(至少6位)</B>：<BR>请再输一遍确认</TD>
<TD class=tablebody1> 
<INPUT type=password maxLength=16 size=30 name=pswc>
</TD>
</TR>
<%end if%>
<TR> 
<TD width=40%  class=tablebody1><B>密码问题</B>：<BR>忘记密码的提示问题</TD>
<TD class=tablebody1> 
<INPUT type=text size=30 name=quesion>
</TD>
</TR>
<TR> 
<TD width=40%  class=tablebody1><B>问题答案</B>：<BR>忘记密码的提示问题答案，用于取回论坛密码</TD>
<TD class=tablebody1> 
<INPUT type=text size=30 name=answer>
</TD>
</TR>
<TR> 
<TD width=40%  class=tablebody1><B>Email地址</B>：<BR>请输入有效的邮件地址，这将使您能用到论坛中的所有功能</font></TD>
<TD width=60%  class=tablebody1> 
<INPUT maxLength=50 size=30 name=e_mail>