update.asp

来自「进入后台」· ASP 代码 · 共 24 行

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%set rs=server.createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,3
if rs.eof then
response.write "没有成员，无需升级"
else
do while not rs.eof
rs("userpassword")=md5(rs("userpassword"))
rs("useranswer")=md5(rs("useranswer"))
rs.update
rs.movenext
loop
rs.close
response.write "第一部分升级成功"
sql="select * from admin"
rs.open sql,conn,1,3
rs("password")=md5(rs("password"))
rs("password2")=md5(rs("password2"))
rs.update
rs.close:set rs=nothing
response.write "第二部分升级成功<br>全部完成，谢谢你使用由一对一网络提供的免费校友录。"
end if%>