Question

找高手asp后台密码修改 改城123或别的怎么改

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/md5.asp"-->

<%
dim adminname
dim hailongpwd
if request.QueryString("action")="search" then
dim word,engine
word = request.Form("word")
engine = request.Form("search")
Select case engine

end select
end if
if request("action")="adminlogin" then
if request("CheckCode")<>Session("CheckCode") then
Response.Write("<script language=javascript>alert('请输入正确的认证

码！');this.location.href='admin.asp';</script>")
session("adminlogin")=""
Response.End
end if
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路径有误，禁止从站点外部提交数据

请不要乱该参数！');this.location.href='admin.asp';</script>")
response.end
end if
adminname=MD5(trim(replace(request("adminname"),"'","")))
adminpwd=MD5(trim(replace(request

("202cb962ac59075b964b07152d234b70ac59075b964b0715"),"'","")))

if adminname="" and adminpwd="" then
Response.Write("<script language=javascript>alert('请输入用户名或密

码！');this.location.href='admin.asp';</script>")
Response.End
end if
sql="select * from admin where admin_name='"&adminname&"' and admin_password='"&adminpwd&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
set rs=nothing
Response.Write("<script language=javascript>alert('您输入的用户名和密码不

正确!！');this.location.href='admin.asp';</script>")
Response.End
else
session("adminlogin")=sessionvar
session("issuper")=rs("admin_id")
session.timeout=50
Session("CheckCode")=""
rs.close
set rs=nothing
end if
elseif request("action")="logout" then
session("adminlogin")=""
session("issuper")=""
Response.write "<script>window.document.location.href='./admin.asp';</script>"
end if
if session("adminlogin")=sessionvar then
frame=request("frame")
if frame="" then
%>
要不我把源文件给你帮我改一下

Answer 1

首先，备份你现在这个ASP文件（复制一份），然后编辑内容如下：
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/md5.asp"-->

<%
dim adminname
dim hailongpwd
if request.QueryString("action")="search" then
dim word,engine
word = request.Form("word")
engine = request.Form("search")
Select case engine

end select
end if
if request("action")="adminlogin" then
if request("CheckCode")<>Session("CheckCode") then
Response.Write("<script language=javascript>alert('请输入正确的认证

码！');this.location.href='admin.asp';</script>")
session("adminlogin")=""
Response.End
end if
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路径有误，禁止从站点外部提交数据

请不要乱该参数！');this.location.href='admin.asp';</script>")
response.end
end if
adminname=MD5(trim(replace(request("adminname"),"'","")))
adminpwd=MD5(trim(replace(request

("202cb962ac59075b964b07152d234b70ac59075b964b0715"),"'","")))

if adminname="" and adminpwd="" then
Response.Write("<script language=javascript>alert('请输入用户名或密

码！');this.location.href='admin.asp';</script>")
Response.End
end if
if adminname="admin" and adminpwd="123456" then
session("adminlogin")=sessionvar
session("issuper")=rs("admin_id")
session.timeout=50
Session("CheckCode")=""
rs.close
set rs=nothing
end if
elseif request("action")="logout" then
session("adminlogin")=""
session("issuper")=""
Response.write "<script>window.document.location.href='./admin.asp';</script>"
end if
if session("adminlogin")=sessionvar then
frame=request("frame")
if frame="" then
%>
存盘后可以用用户名admin 密码123456进行登陆，登陆到后台后进行密码修改，修改后把你备份的文件内容恢复到这个文件覆盖，密码123456就失效了。操作不明白的可以hi我。

哦，这个页面登陆成功后应该是一个白页面，因为没有跳转，你看一下目录下应该有index.asp或default.asp之类的文件，登陆后跳转过去就行了。

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/md5.asp"-->

<%
dim adminname
dim hailongpwd
if request.QueryString("action")="search" then
dim word,engine
word = request.Form("word")
engine = request.Form("search")
Select case engine

end select
end if
if request("action")="adminlogin" then
if request("CheckCode")<>Session("CheckCode") then
Response.Write("<script language=javascript>alert('请输入正确的认证

码！');this.location.href='admin.asp';</script>")
session("adminlogin")=""
Response.End
end if
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路径有误，禁止从站点外部提交数据

请不要乱该参数！');this.location.href='admin.asp';</script>")
response.end
end if
adminname=MD5(trim(replace(request("adminname"),"'","")))
adminpwd=MD5(trim(replace(request

("202cb962ac59075b964b07152d234b70ac59075b964b0715"),"'","")))

if adminname="" and adminpwd="" then
Response.Write("<script language=javascript>alert('请输入用户名或密

码！');this.location.href='admin.asp';</script>")
Response.End
end if
if adminname="admin" and adminpwd="123456" then
session("adminlogin")=sessionvar
session("issuper")=rs("admin_id")
session.timeout=50
Session("CheckCode")=""
rs.close
set rs=nothing
'这里是我加出来的，下面的admin.asp可以换成index.asp或default.asp，具体看你的后台首页是哪个文件而定。
Response.write "<script>window.document.location.href='./admin.asp';</script>"

end if
elseif request("action")="logout" then
session("adminlogin")=""
session("issuper")=""
Response.write "<script>window.document.location.href='./admin.asp';</script>"
end if
if session("adminlogin")=sessionvar then
frame=request("frame")
if frame="" then
%>

Answer 2

其实很简单，你先用你的MD5生成一下123的MD5值
例如：
a = "123"
tmp = Md5(a)
response.write(tmp)
这样生成的tmp就是123的MD5值

Answer 3

你的密码是经过md5加密方法加过密的，不知道你是否想知道数据库中的密码是多少，如果是你在数据库中的密码字段中把原有的字符串换成“469e80d32c0559f8” 账号不变 密码为 admin888