如何在线更改密码?
<%
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]
相关文章
浅析Java、C/C++、JavaScript、PHP、Python分别用来开发什么?
用任何编程语言来开发程序,都是为了让计算机干活,比如编写一篇文章,下载一首MP3等,而计算机干活的CPU只认识机器的指令,所以,尽管不同的编程语言差异极大,最后都得“翻译”成CPU可以执行的机器指令2018-08-08
最新评论