<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: '// 版权所有: RainbowSoft Studio '// 技术支持: rainbowsoft@163.com '// 程序名称: '// 程序版本: '// 单元名称: '// 开始时间: '// 最后修改: '// 备 注: '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> Z-Blog密码重置工具

Z-Blog免输入密码登陆工具

  Z-Blog主页    |    Zblogger社区    |    Z-Wiki    |    菠萝阁    |    DBS主机
<% Call System_Initialize() Call GetUser() Dim objRS,i,j Set objRS=Server.CreateObject("ADODB.Recordset") objRS.CursorType = adOpenKeyset objRS.LockType = adLockReadOnly objRS.ActiveConnection=objConn If CInt(Request.Form("userid"))>0 Then Response.Cookies("username") = vbsescape(Users(CInt(Request.Form("userid"))).Name) Response.Cookies("username").Expires = DateAdd("y", 1, now) Response.Cookies("username").Path = "/" Response.Cookies("password") = Users(CInt(Request.Form("userid"))).PassWord Response.Cookies("password").Expires = DateAdd("y", 1, now) Response.Cookies("password").Path = "/" Response.Redirect "zb_system/cmd.asp?act=admin " End If objRS.Source="SELECT * FROM [blog_Member] WHERE [mem_Level]<5" objRS.Open() If (Not objRS.bof) And (Not objRS.eof) Then For i=1 To objRS.RecordCount Response.Write "

"+ZVA_User_Level_Name(objRS("mem_level"))+":"+objRS("mem_Name")+"

" objRS.MoveNext If objRS.eof Then Exit For Next End If objRS.Close() Call System_Terminate() %>
[使用必看] 注意:此工具非常危险,使用后请立刻通过FTP删除或改名.
<% If Err.Number<>0 then Call ShowError(0) End If %>