重置动易(SiteWeaver 6.5)的管理员密码的代码
作者：
有朋友问我，动易密码忘了怎么办？下面就是一个很好的解决方法，在线修改程序
我不知道官方是否有解决方法，刚好我前几天自己手头的一个动易站密码忘了，由于数据库较大，原始的数据库都有14多M，更别说有填加过数据的数据库的大小了，下载下来改再上传也很化时间。于是根据数据结构自己简单的写了一个重置密码的小程序。
将程序发给朋友，他使用之后说很方便。想想应该也会有其它人需要吧，上传上来好了：)
<%@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。重置完后，请立刻删除这个文件，并登录后台修改密码！一定要删除这个文件，以防被他人运行再次重置密码。
将程序发给朋友，他使用之后说很方便。想想应该也会有其它人需要吧，上传上来好了：)
复制代码 代码如下:
<%@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。重置完后，请立刻删除这个文件，并登录后台修改密码！一定要删除这个文件，以防被他人运行再次重置密码。