南强小屋 Design By 杰米
<%
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]
南强小屋 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
南强小屋 Design By 杰米
暂无如何在线更改密码?的评论...