如何让用户也能修改密码？_编程10000问

id = Request("id")

newpassword = Request("password")

newpasswordtemp = Request("passwordtemp")

If newpassword <> newpasswordtemp Then

Response.Write "<center>对不起,密码未能确认,请重新输入!</center>"

Response.End

End If

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

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]

时间： 2024-10-24 19:22:04

如何让用户也能修改密码？_编程10000问的相关文章

如何向前端推送用户请求的信息？_编程10000问

postinfo.htm<head><title>星河影动之回应用户请求信息</title></head><body> <form action="postdata.asp" method="post"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 使用

如何取回已忘记的密码？_编程10000问

forget.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 申请. <html> <head> <title>闪亮日子之用户密码核实</title> </head> <div align="center"><center> <table border

global.asp <script language=vbscript runat=server> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> sub Session_onstart session("register")="false" ' 记录用户成功登录的信息. session("logn

如何检测用户第一次访问我的网站并显示友好信息？_编程10000问

< %@ LANGUAGE="VBscript" % >< % RequestName = Request.Form("Name")RequestLeaveMeAlone = Request.Form("LeaveMeAlone")If RequestName < >"" or RequestLeaveMeAlone < >"" then<?xml:nam

如何获知文件最后的修改日期和时间？_编程10000问

<%Dim objCMFUDim strModified Set objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 创建对象并赋给变量,并且GetProperty类是当前唯一可用的. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> strModified = objCMFU.L

如何修改被表单引用的ASP页面？_编程10000问

formhandler.asp<html><body><%Dim RequestMethod RequestMethod = Request.ServerVariables("REQUEST_ METHOD") <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 获取REQUEST_METHOD的数值,并把它存入本地的变

如何做一个密码“生成器”？_编程10000问

randompassword.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <% Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword genPassword = \"\" Randomize ' 用Randomize生成随机种子. For i = 1

如何实现某一页面只让特定的用户浏览？_编程10000问

protect.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <html> <head> <title>千花飞舞之春风精彩</title> </head> <body bgcolor="#00FFFF"> <form action="Protect.asp

如何在ADSI中查询用户属性？_编程10000问

如何在ADSI中查询用户属性?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <%Dim x On error resume next'Set x = GetObject("WinNT://kenfilszwin2k/allen")strLDAP="LDAP://kenfilszwin2k/CN=Allen He,OU=kenfils