📄 user.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ubb.asp"-->
<%
'//版权所有：野草设计
'//程序作者：野草
'//当前版本：V2.0
'//联系QQ：94440079
'//官方网站：http://www.yecaoweb.com
%>
<%
Select case request("action")
case ""
title="阅读注册协议"
case "user_reg"
title="注册用户表单"
case "check_username"
title="用户名检测"
case "post_user_reg"
title="注册数据处理"
case "user_login"
title="用户登陆处理"
case "user_out"
case "user_edit"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="修改资料"
call NowWhere("修改注册资料","user.asp?action=user_edit&id="&userid)
case "post_user_edit"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="修改资料处理"
case "user_list"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="查看会员列表"
call NowWhere("查看会员列表","user.asp?action=user_list")
case "show_user_data"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="查看会员资料"
case "user_sms_box"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="收件箱"
call NowWhere("收件箱","user.asp?action=user_sms_box")
case "user_sms_sendbox"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="发件箱"
call NowWhere("发件箱","user.asp?action=user_sms_sendbox")
case "user_sms_send"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="发短信"
call NowWhere("发短信","user.asp?action=user_sms_send")
case "show_user_sms"
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="查看短信"
case "lostpass"
title="找回密码"
case else
title="阅读注册协议"
End Select
execute(loadskin(skinmode))
call head()
%>
<table border="0" cellspacing="0" cellpadding="0" id="content">
<tr><td valign="top" align="center" id="left" nowrap>
<!--左栏开始-->
<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr>
<td class="1" nowrap></td><td class="2" align="center" nowrap>
<%call myday()%>
<td class="3" nowrap></td></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr>
<td class="4" nowrap></td>
<td class="5" valign="top" nowrap>
<p class="left_title"><script type="text/javascript">yecaotitle("left","用户登陆","0");</script></p>
<div class="left_content"><%call YC_userlogin()%></div>
<p class="left_title"><script type="text/javascript">yecaotitle("left","用户排行","0");</script></p>
<div class="left_content"> <%call YC_user()%></div>
</td><td class="6" nowrap></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td class="7" nowrap></td>
<td class="8" nowrap></td>
<td class="9" nowrap></td>
</tr></table>
<!--左栏结束-->
</td>
<td id="center"></td>
<td valign="top" align="center" id="right" nowrap>
<!--中栏开始-->
<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr>
<td class="11" nowrap></td>
<td class="22" nowrap>
<%
YC(" 当前位置：<a href=index.asp>本站首页</a>→<a href=""user.asp"">用户中心</a>→"&title)
%>
<td class="33" nowrap></td>
</td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr>
<td class="44" nowrap></td>
<td class="55" valign="top" nowrap>
<%
Select case request("action")
case ""
call notice()
case "user_reg"
call user_reg()
case "post_user_reg"
call post_user_reg()
case "lostpass"
call lostpass()
case "lostpassok"
call lostpassok()
case "user_login"
call user_login()
case "user_out"
call user_out()
case "user_edit"
call user_edit()
case "post_user_edit"
call post_user_edit()
case "user_list"
call user_list()
case "show_user_data"
call show_user_data()
case "edit_data"
call edit_data()
case "edit_data_post"
call edit_data_post()
case "user_sms_box"
call user_sms_box()
case "user_sms_sendbox"
call user_sms_sendbox()
case "user_sms_send"
call user_sms_send()
case "post_user_sms"
call post_user_sms()
case "show_user_sms"
call show_user_sms()
case "user_sms_del"
call user_sms_del()
case else
call notice()
End Select
%>
<td class="66" nowrap></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr>
<td class="77" nowrap></td>
<td class="88" nowrap></td>
<td class="99" nowrap></td>
</tr></table>
<!--中栏结束-->
</td></tr></table>
<%
call foot()
sub notice()
YC("<p class=""right_title""> 阅读用户注册协议！</p>")
YC("<div class=""right_content""><form action=""?action=user_reg"" method=""post"" name=""agree"" style=""line-height:150%;""><br />")
YC(" 欢迎您！注册成为[<font color=""red"">"&webname&"</font>]的用户！在加入之前，你须同意严格遵守以下条款：<br />")
YC(" 一、不得利用本站危害公共利益，不得利用本站制作、复制和传播下列信息：<br />")
YC(" （一）煽动抗拒、破坏宪法和法律、行政法规实施的；<br />")
YC(" （二）煽动颠覆国家政权，推翻社会主义制度的；<br />")
YC(" （三）煽动分裂国家、破坏国家统一的；<br />")
YC(" （四）煽动民族仇恨、民族歧视，破坏民族团结的；<br />")
YC(" （五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；<br />")
YC(" （六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<br />")
YC(" （七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；<br />")
YC(" （八）损害国家机关信誉的；<br />")
YC(" （九）其他违反宪法和法律行政法规的；<br />")
YC(" （十）进行商业广告行为的。<br />")
YC(" 二、互相尊重，对自己的言论和行为负责。<br />")
YC("<center><input type=""submit""")
if user_mode=0 then
YC("value=""暂不开放"" disabled ")
elseif user_mode=1 then
YC("value=""暂停注册"" disabled ")
else
YC("value=""我同意""")
end if
YC(" name=""agreeb"" onmouseover=""this.className='overput'"" onmouseout=""this.className='put'"" class=""put""> ")
YC("</center></form></div>")
end sub
'用户注册
sub user_reg()
if user_mode="0" or user_mode="1" then
YC("对不起！暂时不允许注册！<br><br><br>原因："&noregtext&"")
else%><div class="right_content">
<table border="0" ><tr><td>
<FORM name="userreg" method="post" action="?action=post_user_reg">
用户名称：<INPUT name="username" class="input" style="width:120px" /> <FONT color="red">*</FONT><%call br()%>
登陆密码：<INPUT type="password" style="width:120px" name="password" class="input" /> <FONT color="red">*</FONT><%call br()%>
确认密码：<INPUT type="password" style="width:120px" name="password2" class="input" /> <FONT color="red">*</FONT><%call br()%>
安 全 码：<INPUT type='password' style="width:120px" name="passcode" class="input"> <FONT color="red">*</FONT><%call br()%>
您的性别：<INPUT type="radio" value="男" name="sex" CHECKED>男 <INPUT type=radio value="女" name="sex">女<%call br()%>
真实姓名：<INPUT type=text maxLength=20 style="width:200px;" name="truename" class="input" /><%call br()%>
用户主页：<INPUT maxLength=80 style="width:200px;" name="web" value="" class="input" /><%call br()%>
邮箱地址：<INPUT style="width:200px;" name="mail" class="input" /><%call br()%>
联系电话：<INPUT maxLength=50 style="width:200px;" name="tel" class="input" /><%call br()%>
身 份 证：<INPUT maxLength=50 style="width:200px;" name="passport" class="input" /><%call br()%>
腾讯 Q Q：<INPUT maxLength=20 style="width:200px;" name="qq" class="input" /><%call br()%>
详细地址：<INPUT type=text maxLength=20 style="width:200px;" name="address" class="input" /><%call br()%>
个性签名：<textarea name="about" class="input" style="width:200px;height:60px;"></textarea><%call br()%> <%call br()%>
<input type="submit" value="注 册" name=reg onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put"> <input name=Reset type=reset value="清 空" onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put"><%call br()%> <%call br()%>
</td><td valign="top" align='center'><%call br()%>
<img alt="个人形象代表" id="face" src="img/face/1.gif" border="0" />
<%call br()%>
<select name="face" class="input" 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></form>
<%end if%>
</div>
<%
end sub
'用户注册处理
sub post_user_reg()
if request.form("reg")<>"" then
if user_mode=0 then
YC("<script>alert('对不起，会员系统已经关闭！请您和管理员联系！');history.back();</script>")
Response.End
elseif user_mode=0 then
YC("<script>alert('对不起，暂时新用户不能注册！');javascript:history.back();</script>")
Response.End
end if
dim username,password,password2,passcode,face,sex,mail,truename,passport,tel,qq,web,address,about
username=YC_post("用户名",request.form("username"),0,8,2)
password=YC_post("密码",request.form("password"),0,16,6)
password2=YC_post("确认密码",request.form("password2"),0,16,6)
passcode=YC_post("安全码",request.form("passcode"),0,16,6)
face=YC_post("头像",request.form("face"),0,0,0)
sex=YC_post("性别",request.form("sex"),0,0,0)
if password<>password2 then
YC("<script>alert('密码和确认密码输入不一致！');history.back();</script>")
Response.End
end if
if trim(request.form("mail"))="" then
mail=""
else
mail=YC_post("邮件",request.form("mail"),0,0,0)
end if
if trim(request.form("truename"))="" then
truename=""
else
truename=YC_post("真实姓名",request.form("truename"),0,8,4)
end if
if trim(request.form("passport"))="" then
passport=""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -