📄 user.asp
字号:
else
passport=YC_post("身份证",request.form("passport"),1,19,16)
end if
if trim(request.form("tel"))="" then
tel=""
else
tel=YC_post("联系电话",request.form("tel"),1,12,0)
end if
if trim(request.form("qq"))="" then
qq=""
else
qq=YC_post("QQ号码",request.form("qq"),1,9,4)
end if
if trim(request.form("web"))="" then
web=""
else
web=YC_post("主页",request.form("web"),0,0,0)
end if
if trim(request.form("address"))="" then
address=""
else
address=YC_post("联系地址",request.form("address"),0,0,0)
end if
if trim(request.form("about"))="" then
about=""
else
about=YC_post("个人签名",request.form("about"),0,0,0)
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [YC_user] where user_name='"&username&"'",conn,1,3
if not rs.eof and not rs.bof then
YC("<script>alert('这个用户名已经被别人使用了');javascript:history.back();</script>")
Response.End
end if
rs.addnew
rs("user_name")=username
rs("user_pass")=MD5(password)
rs("user_code")=MD5(passcode)
rs("user_mail")=mail
rs("user_face")=face
rs("user_sex")=sex
rs("user_true_name")=truename
rs("user_web")=web
rs("user_tel")=tel
rs("user_passport")=passport
rs("user_qq")=qq
rs("user_about")=about
rs("user_address")=address
rs("user_admin")=1
rs("user_reg_date")=now()
if user_mode=3 then
rs("pass")=1
end if
rs.update
rs.close
if user_mode=2 then
YC("<script>alert('正在审核过程中，请耐心等候……');location.href='index.asp';</script>")
else
YC("<script>alert('欢迎您〖"&username&"〗成为本站会员！');location.href='index.asp';</script>")
end if
Response.End
set rs=nothing
end if
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub lostpassok()
dim username,passcode
username=YC_post("用户名",request.form("username"),0,8,2)
passcode=YC_post("安全码",request.form("passcode"),0,16,6)
sql="select * from YC_user where user_name='"&username&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
YC("<script>alert('没有此用户！');history.back();</script>")
Response.End
elseif rs("user_code")<>MD5(passcode) then
YC("<script>alert('安全码出错！');history.back();</script>")
Response.End
elseif rs("pass")=0 then
YC("<script>alert('对不起!该帐户已经锁定！');history.back();</script>")
Response.End
else
rs("user_pass")=MD5("123456789")
rs.update
YC("<script>alert('恭喜您！["&username&"]系统将密码自动更新为[123456789]，请登陆后重新修改！');location.href='index.asp';</script>")
Response.End
end if
rs.close
set rs=nothing
end sub
'遗失密码后输入用户名
sub lostpass()
YC("<div class=""right_content""><center><form name=""form"" method=""post"" action=""user.asp?action=lostpassok""><br /><br /><br />")
YC(" 用 户 名：<input name=""username"" type=""text"" size=""20"" class=""input"" />")
YC(" 安全码：<input name=""passcode"" type=""password"" size=""20"" class=""input"" />")
YC("<br /><br /><input name=""lost"" type=""submit"" style=""cursor:hand;"" value=""提 交"" onmouseover=""this.className='overput'"" onmouseout=""this.className='put'"" class=""put""> <input type=""button"" style=""cursor:hand;"" onclick=""window.location.href='index.asp'"" value=""取 消"" onmouseover=""this.className='overput'"" onmouseout=""this.className='put'"" class=""put""><br /><br /><br /><br /></form></center></div>")
end sub
'用户登陆
sub user_login()
dim username,password,cookiesdate
checkgetcode()
username=YC_post("用户名",request.form("username"),0,10,2)
password=YC_post("密码",request.form("password"),0,16,6)
cookiesdate=replace(trim(request("cookiesdate")),"'","")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [YC_user] where user_name='"&username&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！没有此用户！"))
Response.End
YC("<script>alert('');history.back();</script>")
Response.End
end if
if rs("user_pass")<>md5(password) then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！您的密码不正确！"))
Response.End
end if
if rs("user_admin")<>3 then
if user_mode=0 then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！管理员已经封闭了登陆！"))
Response.End
end if
end if
if rs("pass")=0 then
response.redirect("error.asp?action=back&text="&server.urlencode("您的帐号正在审核过程中，请耐心等候……"))
Response.End
end if
Response.Cookies(yecaocookies)("userid")=codeCookie(trim(rs("id")))
Response.Cookies(yecaocookies)("username")=codeCookie(trim(rs("user_name")))
Response.Cookies(yecaocookies)("userpass")=codeCookie(trim(rs("user_pass")))
Response.Cookies(yecaocookies)("useradmin")=codeCookie(trim(rs("user_admin")))
if cookiesdate>0 then
Response.Cookies(yecaocookies).Expires=date+cookiesdate
end if
rs("user_last_login_ip")=Request.ServerVariables("REMOTE_ADDR")
rs("user_last_login_time")=now()
rs("user_login_time")=rs("user_login_time")+1
rs("user_exper")=rs("user_exper")+1
rs.update
YCGO("index.asp")
rs.close
set rs=nothing
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'用户登出
sub user_out()
Response.Cookies(yecaocookies)("userid")=""
Response.Cookies(yecaocookies)("username")=""
Response.Cookies(yecaocookies)("userpass")=""
Response.Cookies(yecaocookies)("useradmin")=""
YCGO("index.asp")
response.end
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'修改资料
sub user_edit()
sql="select * from [YC_user] where id="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<div class="right_content">
<FORM name="userreg" method="post" action="?action=post_user_edit">
<table border="0" ><tr><td>
用户名称：<%=rs("user_name")%><%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" name="sex" value="男" <%if rs("user_sex")="男" then response.Write"checked" end if%>>男
<input name="sex" type="radio" value="女" <%if rs("user_sex")="女" then response.Write"checked" end if%>>女<br /><%call br()%>
真实姓名：<INPUT type=text maxLength=20 style="width:200px;" name="truename" class="input" value="<%=rs("user_true_name")%>" /><%call br()%>
用户主页：<INPUT value="<%=rs("user_web")%>" style="width:200px;" name="web" value="" class="input" /><%call br()%>
邮箱地址：<INPUT value="<%=rs("user_mail")%>" style="width:200px;" name="mail" class="input" /><%call br()%>
联系电话：<INPUT value="<%=rs("user_tel")%>"style="width:200px;" name="tel" class="input" /><%call br()%>
身 份 证：<INPUT value="<%=rs("user_passport")%>" maxLength=50 style="width:200px;" name="passport" class="input" /><%call br()%>
腾讯 Q Q：<INPUT value="<%=rs("user_qq")%>" style="width:200px;" name="qq" class="input" /><%call br()%>
详细地址：<INPUT type='text' value="<%=rs("user_address")%>" style="width:200px;" name="address" class="input" /><%call br()%>
个性签名：<textarea name="about" class="input" style="width:200px;height:60px;"><%=rs("user_about")%></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" <%if rs("user_face")="img/face/1.gif" then response.Write "selected" end if%>>头像一</option>
<option value="img/face/2.gif" <%if rs("user_face")="img/face/2.gif" then response.Write "selected" end if%>>头像二</option>
<option value="img/face/3.gif" <%if rs("user_face")="img/face/3.gif" then response.Write "selected" end if%>>头像三</option>
<option value="img/face/4.gif" <%if rs("user_face")="img/face/4.gif" then response.Write "selected" end if%>>头像四</option>
<option value="img/face/5.gif" <%if rs("user_face")="img/face/5.gif" then response.Write "selected" end if%>>头像五</option>
<option value="img/face/6.gif" <%if rs("user_face")="img/face/6.gif" then response.Write "selected" end if%>>头像六</option>
<option value="img/face/7.gif" <%if rs("user_face")="img/face/7.gif" then response.Write "selected" end if%>>头像七</option>
<option value="img/face/8.gif" <%if rs("user_face")="img/face/8.gif" then response.Write "selected" end if%>>头像八</option>
<option value="img/face/9.gif" <%if rs("user_face")="img/face/9.gif" then response.Write "selected" end if%>>头像九</option>
<option value="img/face/10.gif" <%if rs("user_face")="img/face/10.gif" then response.Write"selected" end if%>>头像十</option>
<option value="img/face/11.gif" <%if rs("user_face")="img/face/11.gif" then response.Write"selected" end if%>>头像十一</option>
<option value="img/face/12.gif" <%if rs("user_face")="img/face/12.gif" then response.Write"selected" end if%>>头像十二</option>
<option value="img/face/13.gif" <%if rs("user_face")="img/face/13.gif" then response.Write"selected" end if%>>头像十三</option>
<option value="img/face/14.gif" <%if rs("user_face")="img/face/14.gif" then response.Write"selected" end if%>>头像十四</option>
<option value="img/face/15.gif" <%if rs("user_face")="img/face/15.gif" then response.Write"selected" end if%>>头像十五</option>
</select>
</td></tr></table>
</form>
</div>
<%
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'修改资料处理
sub post_user_edit()
dim password,password2,passcode,face,sex,mail,truename,passport,tel,qq,web,address,about
if trim(request.form("password"))<>"" then
password=YC_post("密码",request.form("password"),0,16,6)
password2=YC_post("确认密码",request.form("password2"),0,16,6)
end if
if trim(request.form("passcode"))<>"" then
passcode=YC_post("安全码",request.form("passcode"),0,16,6)
end if
face=request.form("face")
sex=YC_post("性别",request.form("sex"),0,0,0)
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=""
else
passport=YC_post("身份证",request.form("passport"),1,19,16)
end if
if trim(request.form("tel"))="" then
tel=""
else
tel=YC_post("联系电话",request.form("tel"),1,12,0)
end if
if trim(request.form("qq"))="" then
qq=""
else
qq=YC_post("QQ号码",request.form("qq"),1,9,4)
end if
if trim(request.form("web"))="" then
web=""
else
web=YC_post("主页",request.form("web"),0,0,0)
end if
if trim(request.form("address"))="" then
address=""
else
address=YC_post("联系地址",request.form("address"),0,0,0)
end if
if trim(request.form("about"))="" then
about=""
else
about=YC_post("个人签名",request.form("about"),0,0,0)
end if
sql="select * from [YC_user] where id="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if password<>"" then
if MD5(password)<>MD5(password2) then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！两次输入的密码不一致！"))
Response.End
end if
rs("user_Pass")=MD5(password)
end if
if passcode<>"" then
rs("user_code")=MD5(passcode)
end if
rs("user_mail")=mail
rs("user_face")=face
rs("user_sex")=sex
rs("user_true_name")=truename
rs("user_web")=web
rs("user_tel")=tel
rs("user_passport")=passport
rs("user_qq")=qq
rs("user_about")=about
rs("user_address")=address
rs.update
rs.close
set rs=nothing
YC("<script>this.location.href='index.asp';</script>")
response.end
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -