Question

如何在ASP重置网站后台密码 admin文件代码如下

<%
dim ComeUrl,cUrl,AdminName

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(ComeUrl,len(cUrl)+1,1)=":" then
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
response.end
end if
end if

AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
response.redirect "login.asp"
response.End()
end if
sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
response.Redirect("login.asp")
response.End()
end if
%>

Answer 1

直接新建一个文件：mofpassword.asp
文件内容如下：
<!-- 连接conn文件 -->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from Admin where UserName='"&session("AdminName")&"'"
rs.open sql,conn,1,3
if rs.eof then
response.write "不存在该用户"
else
Password=“123456” '默认修改密码为：123456
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
注意，这个文件最后是通过登录账号后点击链接到这个文件更改，当然如果你知道 UserName 的话，那就不需要了，直接更改 session("AdminName") 更改为 UserName 就可以了..