register.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/email.asp"-->
<!--#include file="md5.asp"-->
<%
'=========================================================
' File: register.asp
 ' Date: 2006-04-06
' Script Written by Leibo
'=========================================================
' Copyright (C) 2002,2008 Mathren.com. All rights reserved.
' Web: http://www.hrbyydz.com
' Email: [e-mail]
'=========================================================
response.buffer=true
Dim SendMail,sendmsg
call head()
if Cint(txl_set(0))=1 then
	stats="错误信息"
	Errmsg="<br><li>本同学录暂时停止注册。"
	call head_var("","")
	call txl_error()
else
	if request("action")="apply" then
		stats="填写资料"
		call head_var("同学录注册","register.asp")
		call reg_2()
	elseif request("action")="save" then
		stats="提交注册"
		call head_var("同学录注册","register.asp")
		call reg_3()
		if founderr then call txl_error()
	else
		stats="注册协议"
		call head_var("同学录注册","register.asp")
		call reg_1()
	end if
end if
call foot()

sub reg_1()
%>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">  
<tr> 
<td  bgcolor=<%=txl_body(10)%>><br>
<table cellpadding=3 cellspacing=1 align=center class=tableBorder1 width=<%=txl_body(19)%>>
<form action="register.asp?action=apply" method=post>
<tr>
<th height=25>同学录注册协议<%=request("skinid")%></th>
</tr>
<tr>
<td class=tablebody1><!--#include file="inc/reg_txt.asp"--></td>
</tr>
<tr>
<td align=center class=tablebody2 height=30><input type=submit value=我同意></td>
</tr>
</form>
</table><br>
</td>
</tr>
</table>
<%
end sub

sub reg_2()
%>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">  
<tr> 
<td bgcolor=<%=txl_body(10)%>> <br>
<FORM name=theForm action=register.asp?action=save method=post> 
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 width=<%=txl_body(19)%>>
<TR> 
<Th colSpan=2 height=25>* 新用户注册</Th>
</TR>
<TR> 
<TD width=50% class=tablebody1><B>登录名</B>：<BR>注册用户名长度限制为2－10字节</TD>
<TD width=50% class=tablebody1> <INPUT type=text maxLength=10 size=30 name="username"><font color=#ff0000> *</font></TD>
</TR>
<TR> 
<TD class=tablebody1><B>真实姓名</B>：<BR>请填写汉字。如果你是班级成员，请用真实姓名！</TD>
<TD class=tablebody1> <INPUT type=text maxLength=10 size=30 name="realname" value=""><font color=#ff0000> *</font></TD>
</TR>
<TR> 
<TD class=tablebody1><B>注册类别</B>：<BR>本班的同学请选择班级成员,否则选择班级客人</TD>
<TD class=tablebody1> <INPUT type=radio checked name=userclass value=0>班级客人