upuserpwd.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!-- #include file="Conn.asp" -->
<!--#include file ="inc/function.asp"-->
<%Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select UserPsd From UserInfo"
Rs.Open Sql,Conn,1,3
do while not rs.EOF
NewPwd=Encrypt(Trim(Rs("UserPsd")))
Rs("UserPsd")=NewPwd
Response.Write NewPwd&"<br>"
Rs.MoveNext
loop
Rs.Close:conn.close
set rs = nothing:set conn = Nothing
%>
升级成功!
用户资料转换完毕!请立刻删除本文件!
严重警告:请勿重复运行或刷新本文件,否则将引发数据库严重错误!