📄 userpasssave.asp
字号:
<!--#include file="conn.asp"-->
<%
dim username
dim oldpassword
dim newpassword
dim msg
dim founderr
founerr=false
if trim(request.form("username"))="" then
founderr=true
errmsg="<li>用户帐号不能为空</li>"
end if
if trim(request.form("oldpassword"))="" then
founderr=true
errmsg="<li>旧密码不能为空</li>"
end if
if trim(request.form("newpassword"))="" then
founderr=true
errmsg="<li>新密码不能为空</li>"
end if
if founderr=false then
username=request("username")
oldpassword=request("oldpassword")
newpassword=request("newpassword")
set rs=server.createobject("adodb.recordset")
%>
<HTML><HEAD><TITLE>密码修改</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="main.css" rel=stylesheet type=text/css>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
</HEAD>
<BODY aLink=#000000 bgColor=#FFD89D leftMargin=0 link=#000000 text=#000000
topMargin=0 vLink=#000000>
<%
sql="select * from admin where adminname='"&username&"' and password='"&oldpassword&"'"
rs.Open sql,conn,1,3
if rs.eof or rs.bof then%>
<script language=vbscript>
alert ("帐号或密码错误,请重新输入!")
location.href = "javascript:history.back()"
</script>
<%else
rs("password")=newpassword
rs.update
%>
<script language=vbscript>
alert ("密码修改成功！")
location.href = "javascript:window.close()"
</script>
<%end if
set rs=nothing
conn.close
set conn=nothing
else
response.write "由于以下的原因不能保存数据："
response.write errmsg
end if
%>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -