<%
on error resume next
dim conn
dim connstr
dim db
db="datacnmai_xp\datacnmai_xp\%297456123894cnmaidatazhaobaoshengcnmaicom.mdb"      '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

set rs=server.createobject("adodb.recordset")
for i=1 to 2500
 sql="select password from user where id="&i
 rs.open sql,conn,1,1
 response.Write sql &"<br>"
 if rs.bof and rs.eof then 
 	response.Write "用户"&i&"没有找到<br>"
 end if
' pwd=rs(password)
 response.Write "找到用户"&i&"的密码为"&rs("password") &"正在进行修改----"
 rs("password")=md5(rs("password"))
 rssponse.write "修改成功<br>"
 set rs=nothing 
next	

sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>

