<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
Server.ScriptTimeOut=9999999
dim rs,sql
set rs = server.CreateObject ("adodb.recordset")
sql="select userPassword from [user]"
rs.open sql,conn,1,3
do while not rs.eof
 rs(0)=md5(rs(0))
 rs.update
 rs.movenext
loop
set rs=nothing

response.write "更新成功"
%>

加密之前，要先备份你的数据库哦。