📄 user_modify.asp
字号:
<!--#include file="Include/conn_user.asp" -->
<!--#include file="head.asp" -->
<%
'* 个人版价格：500元 商业版价格：700元
'* 演示：http://Demo.wenday.com
'* 版本：Engine_WenDay网站信息系统 Ver 2.0 演示版
'* 版权所有: 一奔网络工作室(Wenday.Com)
'* 联系QQ: 42367091
'* Email :wenday@21cn.com
'* 程序开发: Wenday
%>
<!--#include file="Include/md5.asp" -->
<%
if Session("Pw_Sys_User")="" then
response.redirect"index.asp"
end if
if request ("action")="save" then
call regsave()
response.end
end if
%>
<script language="JavaScript">
<!--
function CheckForm()
{
if (document.myform.username.value.length == 0)
{
alert("请输入用户名.");
document.myform.username.focus();
return false;
}
if (document.myform.username.value.indexOf("<")!=-1 || document.myform.username.value.indexOf(">")!=-1 || document.myform.username.value.indexOf("$")!=-1)
{
alert("用户名中包含非法字符 (<,>,$) ");
document.myform.username.focus();
return false;
}
if (document.myform.username.value.indexOf("'")!=-1 || document.myform.username.value.indexOf("%")!=-1 || document.myform.username.value.indexOf("&")!=-1)
{
alert("用户名中包含非法字符 (',%,&) ");
document.myform.username.focus();
return false;
}
if (document.myform.truename.value.length == 0)
{
alert("请输入你的真实姓名！");
document.myform.truename.focus();
return false;
}
if (document.myform.UserEmail.value.length == 0)
{
alert("请输入Email！");
document.myform.UserEmail.focus();
return false;
}
if (document.myform.question.value.length == 0)
{
alert("请输入你的密码提示问题！");
document.myform.question.focus();
return false;
}
if (document.myform.Tel.value.length == 0)
{
alert("请输入你的联系电话！");
document.myform.Tel.focus();
return false;
}
if (document.myform.Oicq.value.length == 0)
{
alert("请输入你的QQ号！");
document.myform.Oicq.focus();
return false;
}
if (document.myform.postcode.value.length == 0)
{
alert("请输入你的邮政编码！");
document.myform.postcode.focus();
return false;
}
if (document.myform.address.value.length == 0)
{
alert("请输入你的联系地址！");
document.myform.address.focus();
return false;
}
return true;
}
///onSubmit="return CheckForm();"
//-->
</script>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD colSpan=3 height=2></TD>
</TR>
<TR>
<TD width="19" height=22 align=right><img src="Img/02_1.gif" width="12" height="9"></TD>
<TD width="748"><FONT color=#333333> 您的位置： </FONT>网站的首页 >> 用户信息修改
</TD>
<TD width="11"> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 border=0>
<TBODY>
<TR>
<TD vAlign=top> <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR bgColor=#cccccc>
<TD colSpan=2 height=1></TD>
</TR>
<TR>
<TD colSpan=2 height=2></TD>
</TR>
<TR>
<TD width=62 bgColor=#eeeeee height=22></TD>
<TD bgColor=#eeeeee> <% Call Marquee()%></TD>
</TR>
<TR>
<TD bgColor=#cccccc colSpan=2
height=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top
bgColor=#f6f6f6 style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle width=55 background=Img/homedhbg.gif height=34><img src="Img/tp.gif" width="55" height="34"></TD>
<TD width="535" background=Img/homedhbg.gif><div align="center">用户信息修改
</div></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=210>
<%
Set Rs=conn_user.execute("select * from User where username='"&Session("Pw_Sys_User")&"'")
if Rs.eof and Rs.bof then
response.write "<p align='center'>信息出错！！</p>"
else
%>
<table width="100%" border="0" align=center cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form method="post" name=myform action="User_Modify.asp?action=save" >
<tr>
<td width="30%"><div align="right">用户名：</div></td>
<td width="70%"><input name="username" type="text" id="username" value="<%=rs("username")%>" size="20" readonly>
<font color="#FF0000">不可以修改</font></td>
</tr>
<tr>
<td><div align="right">真实姓名：</div></td>
<td><input name="truename" type="text" id="truename" value="<%=rs("truename")%>" size="20">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td><div align="right">密 码：</div></td>
<td><input name="password1" type="password" id="password1" size="22">
不修改可以不填</td>
</tr>
<tr>
<td><div align="right">确认密码：</div></td>
<td><input name="password2" type="password" id="password2" size="22">
不修改可以不填</td>
</tr>
<tr>
<td><div align="right">电子邮箱：</div></td>
<td><input name="UserEmail" type="text" id="UserEmail" value="<%=rs("UserEmail")%>" size="30">
<font color="#FF0000">注意</font>：请填写你常用的邮箱</td>
</tr>
<tr>
<td><div align="right">密码提示问题：</div></td>
<td><input name="question" type="text" id="question" value="<%=rs("question")%>" size="30" maxlength="30">
不修改可以不填<font color="#FF0000"> </font></td>
</tr>
<tr>
<td><div align="right">密码提示答案：</div></td>
<td><input name="answer" type="text" id="answer" size="30" maxlength="30">
不修改可以不填</td>
</tr>
<tr>
<td><div align="right">联系电话：</div></td>
<td><input name="Tel" type="text" id="Tel" value="<%=rs("Tel")%>">
<font color="#FF0000">*</font> 0750-88888888</td>
</tr>
<tr>
<td><div align="right">你的ＱＱ：</div></td>
<td><input name="Oicq" type="text" id="Oicq" onKeyUp=if(isNaN(this.value))this.value='' value="<%=rs("Oicq")%>" maxlength="20">
<font color="#FF0000"> *</font></td>
</tr>
<tr>
<td><div align="right">邮政编码：</div></td>
<td><input name="postcode" type="text" id="postcode" onkeyup=if(isNaN(this.value))this.value='' value="<%=rs("postcode")%>" maxlength="20">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td><div align="right">联系地址：</div></td>
<td><input name="address" type="text" id="address" value="<%=rs("address")%>" size="45" maxlength="50">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td> </td>
<td> <input name="Submit" type="submit" value=" 修改信息 " onClick="return CheckForm()" class="Actions">
<input name="Submit2" type="reset" value=" 重设表单 " class="Actions">
</td>
</tr>
</form>
</table>
<% end if %> <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD height=34 align=middle background=Img/homedhbg.gif> </TD>
</TR>
</TBODY>
</TABLE>
<br> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
<!--#include file="Bottom.asp" -->
<%
sub regsave()
username = Session("Pw_Sys_User")
ps1=request.form("password1")
ps2=request.form("password2")
if ps1<>ps2 then
response.write"<script>alert(""两次输入密码不一样!\n\n请重新输入！"");location.href=""javascript:history.back()"";</script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&username&"'"
rs.open sql,conn_user,1,3
if (rs.eof and rs.bof) then
response.write"<script>alert('用户名 "&username&" 不存在!\n ');location.href=""javascript:history.back()"";</script>"
else
'rs("username")=request.form("username")
rs("truename")=request.form("truename")
if Trim(request.form("password1"))<>"" then
rs("UserPass")=md5(request.form("password1"))
end if
rs("UserEmail")=request.form("UserEmail")
rs("postcode")=request.form("postcode")
rs("question")=request.form("question")
if Trim(request.form("answer"))<>"" then
rs("answer")=md5(request.form("answer"))
end if
rs("oicq")=trim(request.form("oicq"))
rs("Tel")=request.form("Tel")
rs("Address")=trim(request.form("address"))
rs.update
rs.close
set rs=nothing
response.write"<script>alert('恭喜您： "&username&" 信息已修改成功!\n ');location.replace('index.asp')</script>"
end if
end sub
%>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -