<%@language=vbscript codepage=936%>
<%
'作用：重置管理員admin的密碼為123456，適用于動易5以上的系統，包括SiteWeaver 6.5
'方法：上傳到服務器動易系統的目錄，運行此文件
'注意：重置后請立刻刪除!
'作者：itlearner
'網站: www.itlearner.com
Option Explicit
%>
<!--#include file="conn.asp"-->
<%
    OpenConn
    dim rs,sql
    Set rs = Server.CreateObject("adodb.recordset")
    sql = "select * from PE_Admin"
    rs.Open sql, Conn, 2,3
    do while not rs.eof 
    'response.write rs("adminname") & "-" & rs("Password") & "<br>"
    rs("Password") = "49ba59abbe56e057"
    rs.update
    rs.movenext
    loop
    set rs = nothing
    Response.write "密碼重置成功！新密碼為123456。"
%>