如何在线更改密码?

 更新时间:2006年11月16日 00:00:00   作者:  
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud

(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun

<%

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]

相关文章

最新评论


http://www.vxiaotou.com