📄 updatepwd.asp
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</head>
<BODY BGCOLOR="#FFFFFF">
<%
ID=session("LoginID")
if ID="" then
Conn.close
response.end
end if
dim strLoginName, strPwd, strName, strInfo, strRights
if request("cmdUpdate")<>"" then
strPwd=replace(trim(request("Pwd")),"'","''")
strConfirmPwd=replace(trim(request("ConfirmPwd")),"'","''")
strName=replace(trim(Request("Name")),"'","''")
if strPwd="" or strPwd<>strConfirmPwd then
sql="update tblUser set Name='"& strName &"',Info='"& strInfo &"' where id=" & ID
Conn.execute(sql)
response.write "<p align=center>资料修改成功，但您没有输入口令，所以保留了原口令。</p>"
Conn.close
response.end
else
'set objMd5 = server.createobject("netpay.jmd5")
' strPwd=objMd5.macProcess (strPwd)
'set objMd5 = nothing
if strName<>"" then
UpdateUser (ID)
response.write "<p align=center>数据修改成功</p>"
Conn.close
response.end
else
strAlertInfo="用户姓名不能为空，请重新输入。"
end if
end if
end if
GetSelectUserData ID
%>
<BR><BR><BR>
<form NAME="Rightfrm" method="post">
<div align="center"><center>
<table border="0" cellspacing="1" cellpadding=3 width="444" bgcolor=#0047b0>
<tr bgcolor=#ffffff>
<td height="30" width="146" valign="middle">用户登录名:</td>
<td height="30" width="292" colspan="2" valign="middle"><input class="input" TYPE="text" SIZE="17" Name="LoginName" maxlength="25" <%if ID<>"" then response.write " value="&strLoginName%> readonly></td>
</tr>
<tr bgcolor=#ffffff>
<td valign="middle">登录口令:</td>
<td colspan="2" valign="middle"><input class="input" TYPE="password" SIZE="17" NAME="Pwd" maxlength="40">（如果不输入则保留原口令）</td>
</tr>
<tr bgcolor=#ffffff>
<td valign="middle">口令验证:</td>
<td colspan="2" valign="middle"><input class="input" TYPE="password" SIZE="17" NAME="ConfirmPwd" maxlength="40" > </td>
</tr>
<tr bgcolor=#ffffff>
<td valign="middle">姓名:</td>
<td colspan="2" valign="middle"><input class="input" TYPE="text" SIZE="17" NAME="Name" maxlength="30" <%if ID<>"" then response.write " value="&strName%> > </td>
</tr>
<tr bgcolor=#ffffff><td colspan=3 align="center">
<input type="Submit" value="修改信息" name="cmdUpdate" class="font9boldwhite" onclick="return CheckData();">
<INPUT TYPE="reset" name="reset1" value="清除信息" class="font9boldwhite">
</td>
</tr>
</table>
</div>
</form>
</BODY>
</HTML>
<!--#include file="../inc/connclose.asp"-->
<script language=javascript>
function CheckData()
{
if(jtrim(document.Rightfrm.LoginName.value)=="")
{
alert("请输入登录用户名。")
document.Rightfrm.LoginName.focus();
return false;
}
if(jtrim(document.Rightfrm.LoginName.value).length>50)
{
alert("登录用户名不能超过50个字。")
document.Reportform.LoginName.focus();
return false;
}
if(jtrim(document.Rightfrm.Name.value)=="")
{
alert("请输入用户姓名。")
document.Rightfrm.Name.focus();
return false;
}
return true;
}
</script>
<script language=javascript src="../inc/jtrim.js"></script>
<%
Sub GetSelectUserData(ID) '查询数据
set strRstmp=Server.createobject("ADODB.RecordSet")
sql="select * from tblUser where id=" & ID
strRstmp.open sql,Conn
if strRstmp.eof then
ID=""
else
strLoginName=trim(strRstmp("LoginName"))
strPwd=trim(strRstmp("Pwd"))
strName=trim(strRstmp("Name"))
end if
strRstmp.close
set strRstmp = Nothing
End Sub
Sub UpdateUser(ID) '修改信息
sql="update tblUser set Pwd='"& strPwd &"',Name='"& strName &"' where id=" & ID
Conn.execute(sql)
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -