zblog后台密码忘记了如何找回-酷酷解答

zblog后台密码忘记了如何找回

的有关信息介绍如下：

zblog后台密码忘记了如何找回

ZBLOG后台密码忘记了，这是个很悲催的事情，可喜的是后台密码是可以找回的！

首先要下载findpasswrod.asp文件，下载地址：http://92zrm.com/zb_users/upload/2013/6/findpassword.rar

或者将以下代码复制粘贴到记事本，保存为findpasswrod.asp的文件。

<%@ CODEPAGE=65001 %>

'///////////////////////////////////////////////////////////////////////////////

'// Z-Blog

'// 作者: 朱煊&Sipo

'// 技术支持: rainbowsoft@163.com

'// 程序名称:

'// 程序版本:

'// 单元名称:

'// 开始时间: 2009-7-26

'// 最后修改: 2012-10-13

'// 备注: Z-Blog密码重置工具

'///////////////////////////////////////////////////////////////////////////////

<% Option Explicit %>

<% On Error Resume Next %>

<% Response.Charset="UTF-8" %>

<%Response.Buffer=True %>

Z-Blog 2.0 密码重置工具

Call OpenConnect()

Dim m

Dim objRS,i,j

Set objRS=Server.CreateObject("ADODB.Recordset")

objRS.CursorType = adOpenKeyset

objRS.LockType = adLockReadOnly

objRS.ActiveConnection=objConn

objRS.Source="SELECT * FROM [blog_Member] WHERE [mem_Level]=1"

objRS.Open

If (Not objRS.bof) And (Not objRS.eof) Then

For i=1 To objRS.RecordCount

Response.Write "

"+"管理员:"+objRS("mem_Name")+"

objRS.MoveNext

If objRS.eof Then Exit For

End If

objRS.Close

Set objRS=Nothing

If CInt(Request.Form("userid"))>0 Then

j=Request.Form("userid")

'Dim objRS

Set objRS=objConn.Execute("SELECT [mem_Guid] FROM [blog_Member] WHERE [mem_ID]="&j)

If (Not objRS.Bof) And (Not objRS.Eof) Then

m=MD5(MD5("12345678") & objRS("mem_Guid"))

End If

objRS.Close

Set objRS=Nothing

objConn.Execute("UPDATE [blog_Member] SET [mem_PassWord]='"&m&"' WHERE [mem_ID]="&j)

Response.Write "

管理员密码已重置为12345678,请删除此文件并登陆管理您的Blog.

End If

Call CloseConnect()

注意:重置完密码后请立刻通过FTP管理工具删除此文件,防止他人调用此文件取得控制权.

用FTP工具把上一步得到的findpassword.asp文件上传到自己网站的根目录。

在浏览器地址栏里输入：http://自己网站的域名/findpassword.asp,会出现下图的界面！

点击图上的"重置密码为12345678"按钮，你的网站后台的密码就会被设置为“12345678”，然后进入后台登录界面，有用户管理里去修改自己的密码就可以了！

用FTP工具把刚上付的findpassword.asp文件删除，以免别人利用。

一定要用FTP工具把刚上付的findpassword.asp文件删除，以免别人利用。