user.asp

学校网站管理系统

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="sqlx.asp"-->
<%
Select case request("action")
case ""
title="阅读注册协议"
case "notice"
title="阅读注册协议"
case "user_reg"
title="注册表单"
case "check_user" 
title="用户名检测"
case "regpost"	
title="注册数据验证"
case "list" 
title="会员列表"
case "edit_data" 
title="修改资料"
case "edit_data_post" 
title="修改资料"
case "check_login" 
title="用户登录"
case "loginout" 
title="退出登录"
case else
title="注册声明"
End Select%>
<%call top()%>
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td>
<td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr><td valign=top>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;会员登陆</td><td  class=lefttopright></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  height=150 >
<%call login()%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;站内搜索</td><td  class=lefttopright></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter align=center>
<%call search()%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;会员排行</td>
<td class=lefttopright></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  align=center><%call br%>
<%call YC_user()%><%call br%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%>
</td>
<td  width="5"></td>
<td valign=top align=right><%call br%>
<%
Select case request("action")
case ""
     call notice()
case "notice"
     call notice()
case "user_reg"
     call user_reg()
case "check_user" 
     call check_user()
case "regpost"	
yecao_info=split(replace_reg,"|")
If Request.Form<>"" Then
For Each yecao_post In Request.Form
For yecao_get=0 To Ubound(yecao_info)
If Instr(LCase(Request.Form(yecao_post)),yecao_info(yecao_get))<>0 Then
Response.Write "<Script>alert('对不起，您提交的内容中包含系统禁止字符！');history.back();</Script>"
Response.End
End If
Next
Next
End If
     call regpost()
case "list" 
     call list()
case "edit_data" 
     call edit_data()
case "edit_data_post" 
     call edit_data_post()
case "login" 
     call user_login()
case "loginout" 
     call loginout()
case else
     call notice()
End Select%>
</td><td class=right></td></tr></table>
<%call foot()%>
<%
'●●●●●●●●●●●●●●●●●●●●
'●过程名：notice()                    ●
'●功  能：阅读注册声明。              ●
'●●●●●●●●●●●●●●●●●●●●
sub notice()%>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td class=righttopleft></td>
<td class=righttopcenter>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;阅读注册协议!</td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0"><tr>
<td class=rightcenterleft></td>
<td  class=rightcentercenter valign=top>
<table cellspacing="1" cellpadding="4"	align="center">
<tr><td height="30" align="center" style="font-size:16.5px;">
<form action="?action=user_reg" method="post" name="agree">
<font face="黑体">服 务 条 款 和 声 明</font></td>
</tr><tr><td style="font-size:13.5px;">
<p>&nbsp;&nbsp;&nbsp;欢迎您加入【<%=webname%>】参加交流和讨论，请您自觉遵守以下条款：</p>
<p>&nbsp;&nbsp;&nbsp;一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息：</p>
<p>
&nbsp;&nbsp;&nbsp;（一）煽动抗拒、破坏宪法和法律、行政法规实施的；<BR>
&nbsp;&nbsp;&nbsp;（二）煽动颠覆国家政权，推翻社会主义制度的；<BR>
&nbsp;&nbsp;&nbsp;（三）煽动分裂国家、破坏国家统一的；<BR>
&nbsp;&nbsp;&nbsp;（四）煽动民族仇恨、民族歧视，破坏民族团结的；<BR>
&nbsp;&nbsp;&nbsp;（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；<BR>
&nbsp;&nbsp;&nbsp;（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<BR>
&nbsp;&nbsp;&nbsp;（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；<BR>
&nbsp;&nbsp;&nbsp;（八）损害国家机关信誉的；<BR>
&nbsp;&nbsp;&nbsp;（九）其他违反宪法和法律行政法规的；<BR>
&nbsp;&nbsp;&nbsp;（十）进行商业广告行为的。</p>
<p>&nbsp;&nbsp;&nbsp;
二、互相尊重，对自己的言论和行为负责。<br><br>
<font color=#ff0000>&nbsp;&nbsp;&nbsp; 三、本站附加注册事项：</font></p>
<p><font color="#FF0000">
&nbsp;&nbsp;&nbsp;（一）本站资源不用注册即可使用；<br>
&nbsp;&nbsp;&nbsp;（二）请不要使用无聊的数字用户名或其它不雅之词，否则不会审核通过！<br></font></td></tr>
<tr><td align="center"><input type="submit"<%if user_mode=0 then%>value="会员系统暂不开放"  disabled<%elseif user_mode=1 then%>value="暂停新会员注册" disabled <%else%>value="请认真查看 20 秒后继续" <%end if%>  name="agreeb"class=yecao> &nbsp;&nbsp;<input onclick=history.back(-1) type="reset" value="不同意" class=yecao><br><br></td></form></tr></table>
<%if user_mode=2 or user_mode=3 then%>
<SCRIPT language=javascript>
var secs = 10;
document.agree.agreeb.disabled=true;
for(i=1;i<=secs;i++) {
window.setTimeout("update(" + i + ")", i * 1000);}
function update(num){if(num == secs){document.agree.agreeb.value ="我同意";
document.agree.agreeb.disabled=false;}else{printnr = secs-num;
document.agree.agreeb.value = "请认真查看 " + printnr +" 秒后继续";}}</SCRIPT><%end if%>
</TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td  class=rightfootleft></td><td class=rightfootcenter></td></tr></table></td></tr></table><%call br%>
<%end sub
'●●●●●●●●●●●●●●●●●●●●
'●过程名：user_reg()                  ●
'●功  能：注册表单。                  ●
'●●●●●●●●●●●●●●●●●●●●
sub user_reg()%>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td class=righttopleft></td>
<td class=righttopcenter>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;欢迎您注册成为[<%=webname%>]的会员！</td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0" align=center ><tr>
<td class=rightcenterleft></td>
<td  class=rightcentercenter valign=top>
<%if user_mode="0" or user_mode="1" then%>
<table width=100% border=1 cellpadding=0 cellspacing=0 frame=void rules=none bordercolor=<%=border%>>
<TR height=150><TD align=center><b><font color=red>对不起！暂时不允许注册！</font><br><br><br>
原因：<%=noregtext%>
</b></TD></tr></table>
<%else%>
<table width=100% border=1 cellpadding=0 cellspacing=0 frame=void rules=none bordercolor=<%=border%>>
<FORM name="userreg" method='post' action="?action=regpost">
<TR height=28><TD width="70">&nbsp;用户名称：</TD>
<TD><INPUT maxLength=14 name="user" class="yecao" style="width:120px"> 
<input name="Check" type="button" id="Check" value="检查用户名" onClick="checkreg();" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;登陆密码：</TD>
<TD><INPUT type=password maxLength=12 style="width:120px" name="pass" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;确认密码：</TD>
<TD><INPUT type=password maxLength=12 style="width:120px" name="passpass" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;密码问题：</TD>
<TD><input type=text maxlength=50 size=30 name="question" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;问题答案：</TD>
<TD><INPUT type=text maxLength=20 size=30 name="answer" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;真实姓名：</TD>
<TD><INPUT type=text maxLength=20 size=30 name="truename" class="yecao"></TD></TR>

<TR height=28><TD colspan=2>
<table border=0 width=100%>
<TR height=28><TD width=200>&nbsp;您的性别：&nbsp;<INPUT type=radio  value="男" name="sex" CHECKED>帅&nbsp;哥&nbsp;&nbsp;<INPUT type=radio value="女" name="sex">美&nbsp;女</TD><TD rowspan=2 ><img alt=个人形象代表  id=face src="img/face/1.gif" border=1></TD></TR>
<TR height=28><TD >&nbsp;选择头像：&nbsp;
<select name="face" class=yecao onChange="document.images['face'].src=options[selectedIndex].value;"  size=1 >
<option value="img/face/1.gif">头像一</option>
<option value="img/face/2.gif">头像二</option>
<option value="img/face/3.gif">头像三</option>
<option value="img/face/4.gif">头像四</option>
<option value="img/face/5.gif">头像五</option>
<option value="img/face/6.gif">头像六</option>
<option value="img/face/7.gif">头像七</option>
<option value="img/face/8.gif">头像八</option>
<option value="img/face/9.gif">头像九</option>
<option value="img/face/10.gif">头像十</option>
<option value="img/face/11.gif">头像十一</option>
<option value="img/face/12.gif">头像十二</option>
<option value="img/face/13.gif">头像十三</option>
<option value="img/face/14.gif">头像十四</option>
<option value="img/face/15.gif">头像十五</option>
</select> </TD></TR></table>
</TD></TR>
<TR height=28><TD width="80">&nbsp;用户主页：</TD>
<TD><INPUT maxLength=80 size=30 name="web" value="http://" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;联系电话：</TD>
<TD><INPUT maxLength=50 size=30 name="tel" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;身 份 证：</TD>
<TD><INPUT maxLength=50 size=30 name="passport" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;邮箱地址：</TD>
<TD><INPUT maxLength=50 size=30 name="mail" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;腾讯&nbsp;Q&nbsp;Q：</TD>
<TD><INPUT maxLength=20 size=30 name="qq" class="yecao"></TD></TR>
<TR height=28><TD width="80">&nbsp;详细地址：</TD>
<TD> <INPUT type=text maxLength=20 size=30 name="address" class="yecao"></TD></TR>
<TR align="center"> 
<TD height="26" colspan="2"><input type=submit value="注 册" name=reg class="put">&nbsp;<input name=Reset type=reset id="Reset" value="清 空" class="put"></TD></TR></form>
<form name='reg' action='user.asp?action=check_user' method='post' target='user_check'>
<input type='hidden' name='user' value=''></form>
<iframe src=* height=0 width=0 name="user_check"></iframe></TABLE><%end if%>
</TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td  class=rightfootleft></td><td class=rightfootcenter></td></tr></table>
</td></tr></table><%call br%>
<script language=javascript>
function checkreg()
{if (document.userreg.user.value=="")
{alert("哎呀！您怎么忘了输入用户名呢？");
document.userreg.user.focus();
return false;}
else
{document.reg.user.value=document.userreg.user.value;
document.reg.submit();}}</script>
<%end sub
'●●●●●●●●●●●●●●●●●●●●
'●过程名：regpost()                   ●
'●功  能：注册数据处理 。             ●
'●●●●●●●●●●●●●●●●●●●●
sub regpost()
if request.form("reg")<>"" then
if user_mode=0 then
Response.Write("<script>alert('对不起，会员系统已经关闭！请您和管理员联系！');javascript:history.back();</script>")
Response.End
elseif user_mode=0 then
Response.Write("<script>alert('对不起，暂时新用户不能注册！');javascript:history.back();</script>")
Response.End
end if
if request.form("user")="" or strLength(request.form("user"))>10 or strLength(request.form("user"))<2 then
Response.Write("<script>alert('请输入用户名不能大于10小于2！');javascript:history.back();</script>")