📄 usersetmodify.asp
字号:
<!--#include file = include.asp-->
<!--#include file = EnPas.asp-->
<%
'==========================================
'
'
'
'
'
'==========================================
'
'子程序作用：用户管理程序
'程序创建时间：2002-10-30
'最后修改时间：2002-10-30
'==========================================
set rs = server.createobject("adodb.recordset")
sql = "select * from UserManage where UserName='"&Name&"' and password='"&PassWord&"'"
rs.open sql,conn,1,1
Password=rs("PassWord")
if request.form("Operation")="Modify" then
set rs = server.createobject("adodb.recordset")
sql = "select * from UserManage where ID="&request.form("ID")
rs.open sql,conn,3,3
if request.form("SPassword")="" or request.form("CPassWrod") or request.form("PassWrod") then Call Wran("密码框不能为空")
if EnPas(request.form("SPassword"))<>EnPas(request.form("CPassword")) then Call Wran("确认密码有误")
if Password<>EnPas(request.form("PassWord")) then Call Wran("原密码输入有误")
rs("password")=EnPas(request.form("SPassword"))
rs.update
rs.close
set rs=nothing
response.redirect"index.htm"
end if
%>
<body background="images/BLogo.gif">
<form name=form1 method=post action="">
<table width="312" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
<tr bgcolor="#FFFFFF">
<td colspan="3" width="100%" height="25">
<!--#include file = topMenu.htm--></td>
</tr>
<tr bgcolor="#FFFFFF" valign="middle" align="center">
<td height="2" colspan="3" background="images/BLogo.gif">
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#F5F5F5">
<tr bgcolor="#FFFFFF">
<td height=20 width="33%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>原密码：</td>
<td height=20 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center">
<input type="text" name="Password" >
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height=20 width="33%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>新密码：</td>
<td height=20 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center">
<input type="text" name="SPassword">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height=20 width="33%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>确认密码：</td>
<td height=20 colspan="5" width="67%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center">
<input type="text" name="CPassword">
</td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td height=20 colspan=6 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
</td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td height=20 colspan=6 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><b>
</b>
<input type=hidden value=Modify name=Operation>
<input type=hidden value=<%=rs("ID")%> name=ID>
<input type=submit value=" 修 改 " onclick="return modify()">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
<%
Sub Wran(Content)
%>
<script>
history.back()
alert("<%=Content%>")
</script>
<%
response.end
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -