<%
id = Request(\”id\”)
newpassword = Request(\”password\”)
newpasswordtemp = Request(\”passwordtemp\”)
If newpassword <> newpasswordtemp Then
Response.Write \”<center>对不起,密码未能确认,请重新输入!</center>\”
Response.End
End If
Set conn = Server.CreateObject(\”ADODB.Connection\”)
DBPath = Server.MapPath(\”userinfo.mdb\”)
conn.Open \”driver={Microsoft Access Driver (*.mdb)};dbq=\” & DBPath
Set rs = Server.CreateObject(\”ADODB.Recordset\”)
sql=\”update userinfo set 密码=\’\” & newpassword & \”\’ where id=\”&id
rs.Open sql, conn, adOpenDynamic, adLockPessimistic
%>
[1]
