怎么把ACCESS中明文显示的密码改成MD5加密的..
要用什么样的语句让它们重新写入到表中呢???..

sql="select pass from admin"
rs.open sql,conn,1,3
do while not rs.eof
rs(0)=md5(rs(0))
rs.movenext
loop

我是按这下面这种方法写得,怎么写入表中的还是明文呢,??我哪儿写错了吗??

<%
dim rs
dim sql

Server.ScriptTimeOut=1000000
set rs=server.createobject("adodb.recordset")
sql="Select * from [User]"
rs.open sql,conn,1,3
while not rs.eof
rs("Passwd")=MD5(rs("Passwd"))
rs.Update
rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "ok!"

%>

2楼的朋友,谢谢你,.
不过你给的代码我要放在哪个位置呢..

我用写的怎么进入不到表中去呢...??

sql="select pass from admin"
rs.open sql,conn,1,3
do while not rs.eof
rs(0)=md5(rs(0))
rs.update
rs.movenext
loop

这是改原有的

人家注册的时候

……
pass=md5(pass)

存贮数据
……

谢谢ISLET我试一下