重置动易(SiteWeaver 6.5)的管理员密码的代码

<%@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。"
%>