网站后台密码忘记了,请各位大虾帮忙解决下
<%Server.ScriptTimeout =500
UserPass = "admin" '系统管理密码,请修改oyaya为你自己的密码!
URL = Request.ServerVariables("URL")
Action = Request("Action")
db ="SqlIn.mdb" '记录数据库路径修改为你的数据库路径
dim conn,connstr
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
If Session("AdminPassWord")<>UserPass Then
If Request.Form("LPass")<>"" Then
If Request.Form("LPass")=UserPass Then
Session("AdminPassWord")=UserPass
Call Main()
Else
response.write"验证失败!"
End If
Else
Call Login()
End If
Response.End
Else
If Action="del" Then
Call Delip()
ElseIf Action="lock" Then
Call lockIP()
ElseIf Action="unlock" Then
Call UnLockip()
ElseIf Action="Logout" Then
Call Logout()
Else
Call Main()
End If
End If
Sub Login()
%>
<html>
<head>
<title>SQL通用防注入系统</title>
</head>
<body><br><br><br><br><br><br><br><br>
<table border="1" width="500" height="140" bgcolor="#DDDDDD" cellpadding="3" bordercolorlight="#000000" bordercolordark="#F2F2F9" cellspacing="0" align=center>
<tr>
<td width="100%" height="30%" bgcolor="#808080"><p align="center">
<font color="#FFFFFF" face="Verdana" style="font-size: 9pt"><B>SQL通用防注入系统管理登陆</B></font></td>
</tr>
<tr>
<td width="100%" height="70%"><form method="POST" action="<%=URL%>">
<center><p><font face="Verdana">
<span style="font-size: 9pt">Password: <input type="password" name="LPass"
size="20" style="background-color:#DDDDDD; border-left: none; border-right: none; border-top: none; border-bottom: solid 1px">
<input type="submit" value="Login" name="B1" style="border: thin outset"></span></font></p>
</center>
</form>
</td>
</tr>
<tr>
<TD height="30" align="center"><div align="center" style="font-size:12px;">SQL通用防注入系统</div></TD>
</tr>
</table>
<%
End Sub
Sub Delip()
dim id
id = clng(request("id"))
conn.execute("delete from SqlIn where id="&id)
Call Main()
End sub
Sub Lockip()
id = clng(request("id"))
conn.execute("update SqlIn set Kill_ip=true where id="&id)
Call Main()
End sub
Sub UnLockip()
id = clng(request("id"))
conn.execute("update SqlIn set Kill_ip=False where id="&id)
Call Main()
End sub
Sub Logout()
Session("AdminPassWord")="NUll"
Response.Redirect URL
End Sub
Sub Main()
%>
<style type="text/css">
<!--
table {
font: 14px Tahoma, Verdana, "宋体";
}
a:link, a:visited {
text-decoration: none;
color: #036;
font-family: Tahoma, Verdana, "宋体";
}
a:hover {
text-decoration: none;
color: #F90;
font-family: Tahoma, Verdana, "宋体";
}
-->
</style>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" style="font-size:12px;">
<tr align=center bgcolor=#efefef>
<%
sql="select * from SqlIn order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无内容"
else
'分页的实现
listnum=10
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if%>
<td width="5%" height=30>编号</td>
<td width="10%"><font color=red>操作IP</font></td>
<td width="10%">是否锁定</td>
<td width="20%">操作页面</td>
<td width="10%">操作时间</td>
<td width="10%">提交方式</td>
<td width="10%">提交参数</td>
<td width="10%">提交数据</td>
<td width="10%">操作</td>
</tr>
<%do while not rs.eof and i<listnum
n=n+1%>
<tr align=center height=22>
<td><%=n%></td>
<td><%=rs("SqlIn_IP")%>
</td>
<td><% if rs("Kill_ip")=true then
response.write "<font color='red'>已锁定</font>"
else
response.write "<font color='green'>已解锁</font>"
end if
%></td>
<td><%=rs("SqlIn_WEB")%></td>
<td><%=rs("SqlIn_TIME")%></td>
<td><%=rs("SqlIn_FS")%></td>
<td><%=rs("SqlIn_CS")%></td>
<td><%=rs("SqlIn_SJ")%></td>
<td><a href=<%=URL%>?action=del&id=<%=rs("id")%>>删除</a>
<% if rs("Kill_ip")=true then
response.write "<a href="&URL&"?action=unlock&id="&rs("id")&">解锁IP</a>"
else
response.write "<a href="&URL&"?action=lock&id="&rs("id")&">锁定IP</a>"
end if
%>
</td>
</tr>
<%rs.movenext
i=i+1
j=j-1
loop%>
<tr>
<%filename=URL%>
<td height="30" colspan=9 align=right><%=Rs.recordcount%> 条记录 <%=listnum%> 条记录/页 共 <%=rs.pagecount%> 页
<% if page=1 then %>
<%else%>
<a href=<%=filename%>><strong>|<<</strong></a>
<a href=<%=filename%>?page=<%=page-1%>><strong><<</strong></a>
<a href=<%=filename%>?page=<%=page-1%>><b>[<%=page-1%>]</b></a>
<%end if%><% if rs.pagecount=1 then%><%else%><b>[<%=page%>]</b><%end if%>
<% if rs.pagecount-page <> 0 then %>
<a href=<%=filename%>?page=<%=page+1%>><b>[<%=page+1%>]</b></a>
<a href=<%=filename%>?page=<%=page+1%>><strong>>></strong></a>
<a href=<%=filename%>?page=<%=rs.pagecount%>><strong>>>|</strong></a>
<%end if%></td>
<%end if%></tr>
</table>
<br />
<TABLE width="90%" border="0" align="center" cellpadding="0" cellspacing="0" style="font-size:12px;">
<TR>
<TD width="10%"></TD>
<TD align="center">SQL通用防注入系统</TD>
<TD width="10%"><a href=<%=filename%>?action=Logout>退出</a></TD>
</TR>
</TABLE>
<%
end sub
%>
</body>
</html>
这是数据库的代码吧? --------------------编程问答-------------------- 查数据库 --------------------编程问答-------------------- 呵呵 --------------------编程问答-------------------- 打开数据库找到用户表,如果密码不是加密的就可以直接知道了
如果密码是否加密了的,用其它知道的加密密码替换就可以 --------------------编程问答-------------------- 能加我QQ 329808003 给我讲解下吗 --------------------编程问答-------------------- admin 是 game password 是 hcpi=>? hcpi=>? 这是什么? --------------------编程问答-------------------- 直接到数据库里去改 --------------------编程问答-------------------- 这是access数据库,直接把access用FTP方式下载下来,打开access
修改管理员密码(如果加密了,必须先加密,再放入) --------------------编程问答-------------------- 没办法了
补充:.NET技术 , ASP.NET