📄 user_user.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="user_check.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/function.asp"-->
<html>
<head>
<title>木叶村免费个人主页http://www.x92.cn</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="木叶村网免费个人主页http://www.x92.cn">
<meta name="description" content="木叶村网免费个人主页http://www.x92.cn">
<link rel="stylesheet" href="admin/Admin_STYLE.CSS">
<base target="_self">
<style>
<!--
.menu_title2 {
}
.sec_menu {
BORDER-RIGHT: white 1px solid; BACKGROUND: #E9EBE2; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor" bgcolor="#EEF8ED">
<%if request("action")="" then%>
<%set rs=conn.execute("select userid,username,userpassword,bgsound,useremail,userquestion,useranswer,province,city from myweb_user where userid="&session("userid")&"")%>
<form name="mywebform" action=user_user.asp?action=edit&userid=<%=rs("userid")%> method=post>
<div align="center">
<table border="0" width="80%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr class="tdbg" >
<td class="topbg" colspan="2">
<p align="center"><font color="#000000">修 改 会 员 资 料</font></td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td width="23%" align="left" >
用户名:</td>
<td width="76%" >
<input type="text" name="username1" maxlength=50 size="28" value="<%=rs("username")%>"></td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td width="23%" align="left" >
密码:</td>
<td width="76%" >
<input type="text" name="userpassword1" maxlength=50 size="32">
<font color="#FF0000">留空则不修改</font></td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td width="23%" align="left" >
信箱:</td>
<td width="76%" >
<input type="text" name="useremail1" maxlength=50 size="32" value="<%=rs("useremail")%>"></td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td width="23%" align="left" >
取回密码问题:</td>
<td width="76%" >
<input type="text" name="userquestion1" maxlength=50 size="32" value="<%=rs("userquestion")%>"></td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td width="23%" align="left" height="25" >
取回密码答案:</td>
<td width="76%" height="25" >
<input type="text" name="useranswer1" maxlength=50 size="32" value="<%=rs("useranswer")%>"></td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td width="23%" align="left" height="25" >
所在城市:</td>
<td width="76%" height="25" ><%=type_city(rs("province"),rs("city"))%>
</td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td colspan="2" >
<p align="center"><input type=submit value="修 改 会 员 资 料" </td></td>
</tr>
</table>
</div>
</form>
<%rs.close%>
<%end if%>
<%if request("action")="edit" then%>
<br>
<table border="0" width="60%" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border" height="56">
<tr class="tdbg" >
<td height="24" class="title">
<p align="center"><font color="#000000">系统信息提示</font></td>
</tr>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
<td >
<%dim username1,userpassword1,useremail1,userquestion1,useranswer1
dim userpass1,usernice1,userlock1,province1,city1,erroredit
username1=trim(request.form("username1"))
userpassword1=trim(request.form("userpassword1"))
useremail1=trim(request.form("useremail1"))
userquestion1=trim(request.form("userquestion1"))
useranswer1=trim(request.form("useranswer1"))
province1=trim(request.form("province"))
city1=trim(request.form("city"))
if username1="" then
erroredit=erroredit+"<br><li>用户名字不能为空</li>"
end if
if username1<>"" then
set userrs2=conn.execute("select username,userid from myweb_user where userid<>"&session("userid")&" and username='"&username1&"'")
if not userrs2.eof then
erroredit=erroredit+"<br><li>该用户名已经存在请换个用户名</li>"
end if
userrs2.close
end if
if useremail1="" then
erroredit=erroredit+"<br><li>用户信箱不能为空</li>"
end if
if userquestion1="" then
erroredit=erroredit+"<br><li>取回密码问题不能为空</li>"
end if
if useranswer1="" then
erroredit=erroredit+"<br><li>取回密码答案不能为空</li>"
end if
if erroredit="" then
set rs=server.CreateObject("adodb.recordset")
sql="select userid,username,userpassword,useremail,userquestion,useranswer,province,city from myweb_user where userid="&session("userid")&" "
rs.open sql,conn,1,3
rs.update
rs("username")=username1
if userpassword1<>"" then
rs("userpassword")=md5(userpassword1)
end if
rs("useremail")=useremail1
rs("userquestion")=userquestion1
rs("useranswer")=useranswer1
rs("province")=province1
rs("city")=city1
rs.update
response.write"<li><font color=red>系统处理结果如下</font></li><br><li>会员资料修改成功 </li><br> <center><a href=user_user.asp><font color=red>返回</font></a></center>"
rs.close
set rs=nothing
else
response.write"<li><font color=red>系统处理结果如下</font></li>"&erroredit&"<br> <center> <a href=javascript:history.go(-1)><font color=red>返回重写</font></a></center>"
end if
%>
</td>
</tr>
</table>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -