将程序发给朋友，他使用之后说很方便。想想应该也会有其它人需要吧，上传上来好了：)
实现代码如下：
<%@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。"
%>
解压后放在根目录，运行后密码即重置为123456。重置完后，请立刻删除这个文件，并登录后台修改密码！一定要删除这个文件，以防被他人运行再次重置密码。
以上就是【重置动易(SiteWeaver 6.5)的管理员密码的代码】的全部内容了,欢迎留言评论进行交流!