ASP,这个修改密码怎么就不成了呢?求助啊!
<html><!--包含用户登陆校验文件--><!--包含连接数据库文件--><!--#includefile="dbconn.asp"--><%dimpassword,...
<html>
<!--包含用户登陆校验文件-->
<!--包含连接数据库文件-->
<!--#include file="dbconn.asp"-->
<%
dim password,newpassword,newpasswordtemp,userid
if Request.Form("Submit")="提交" then
userid = session("UserID")
password = Request("PWD")
newpassword = Request("Password")
newpasswordtemp = Request("PwdConfirm")
if session("PWD") <> password then
Response.Write "<center>对不起,您输入的旧密码不正确.请重试!</center>"
Response.end
elseif password <> PwdConfirm then
Response.Write "<center>对不起,新密码与新密码确认不同.请重试!</center>"
Response.end
end if
dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
sql="update T_B_WebUser set Pwd='" & newpassword & "' where UserID="& userid
rs.execute(sql)
Response.Write "<center>密码修改成功，请切记您的新密码：'" & newpassword & "'</center>"
Response.end
elseif Request.Form("submit")="返回" then
Response.Redirect "Selfinfo.asp"
end if
%>
<head>
<title>Password</title>
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<Form method="post" name="myForm" action="pwd.asp">
<p align="center" class="style1">修改密码</p>
</form>
<div align="center">
<center>
<div align="center">
<center>
<p><p>用户名：<font color="#FF0000" size="+1"><%=session("UserID")%><input name="UserName" type="hidden" value="<%=session("UserID")%>"></font></p>
<p>原来密码：
<label>
<INPUT type=password maxLength=16 size=20 name=OldPassword>
</label>
</p>
<p>密码：
<INPUT type=password maxLength=16 size=20 name=Password>
</p>
<p>确定密码：
<INPUT name=PwdConfirm type=password id="PwdConfirm" size=20 maxLength=16>
</p>
<form name="form1" method="post" action="">
<label><input name="Action" type="hidden" id="Action" value="Modify">
<input name=Submit type=submit id="Submit" value="提交">
</label>
<label></label>
</form>
<p> </p>
</center>
</div>
</center></p>
</body>
</html>
这里整页的代码,是不是却少东西?
还是怎么搞的?帮助啊
现在报告错误了:
错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'execute'
/pwd.asp, 第 28 行
高手们给看看还有什么错啊?
dim rs,sql
'set rs = Server.CreateObject("ADODB.Recordset")
set rs = Server.CreateObject("ADODB.connection")
sql="update T_B_WebUser set Pwd='" & PwdConfirm & "' where UserID="& userid
rs.open SQL,conn,1,3
'rs.execute(sql)
Response.Write "<center>密码修改成功，请切记您的新密码：'" & PwdConfirm & "'</center>"
我改成这样子之后现在每次都可以修改但是都改不上,上边那旧密码不对,和确认密码与新密码不同的句子都不执行,我可以随便写密码,都没关系,都改不了. 展开
<!--包含用户登陆校验文件-->
<!--包含连接数据库文件-->
<!--#include file="dbconn.asp"-->
<%
dim password,newpassword,newpasswordtemp,userid
if Request.Form("Submit")="提交" then
userid = session("UserID")
password = Request("PWD")
newpassword = Request("Password")
newpasswordtemp = Request("PwdConfirm")
if session("PWD") <> password then
Response.Write "<center>对不起,您输入的旧密码不正确.请重试!</center>"
Response.end
elseif password <> PwdConfirm then
Response.Write "<center>对不起,新密码与新密码确认不同.请重试!</center>"
Response.end
end if
dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
sql="update T_B_WebUser set Pwd='" & newpassword & "' where UserID="& userid
rs.execute(sql)
Response.Write "<center>密码修改成功，请切记您的新密码：'" & newpassword & "'</center>"
Response.end
elseif Request.Form("submit")="返回" then
Response.Redirect "Selfinfo.asp"
end if
%>
<head>
<title>Password</title>
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<Form method="post" name="myForm" action="pwd.asp">
<p align="center" class="style1">修改密码</p>
</form>
<div align="center">
<center>
<div align="center">
<center>
<p><p>用户名：<font color="#FF0000" size="+1"><%=session("UserID")%><input name="UserName" type="hidden" value="<%=session("UserID")%>"></font></p>
<p>原来密码：
<label>
<INPUT type=password maxLength=16 size=20 name=OldPassword>
</label>
</p>
<p>密码：
<INPUT type=password maxLength=16 size=20 name=Password>
</p>
<p>确定密码：
<INPUT name=PwdConfirm type=password id="PwdConfirm" size=20 maxLength=16>
</p>
<form name="form1" method="post" action="">
<label><input name="Action" type="hidden" id="Action" value="Modify">
<input name=Submit type=submit id="Submit" value="提交">
</label>
<label></label>
</form>
<p> </p>
</center>
</div>
</center></p>
</body>
</html>
这里整页的代码,是不是却少东西?
还是怎么搞的?帮助啊
现在报告错误了:
错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'execute'
/pwd.asp, 第 28 行
高手们给看看还有什么错啊?
dim rs,sql
'set rs = Server.CreateObject("ADODB.Recordset")
set rs = Server.CreateObject("ADODB.connection")
sql="update T_B_WebUser set Pwd='" & PwdConfirm & "' where UserID="& userid
rs.open SQL,conn,1,3
'rs.execute(sql)
Response.Write "<center>密码修改成功，请切记您的新密码：'" & PwdConfirm & "'</center>"
我改成这样子之后现在每次都可以修改但是都改不上,上边那旧密码不对,和确认密码与新密码不同的句子都不执行,我可以随便写密码,都没关系,都改不了. 展开
展开全部
乱套了
set rs = Server.CreateObject("ADODB.connection")
rs在习惯上被代表RecordSet(记录集)对象，而在此你事实上创建的是connection对象
而你又有一个conn对象(我怀疑就是connection对象)
首先，要用connection对象建立联接，格式: 对象.open "联接语句"
然后可以用两种方式建立记录集:
先声明记录集然后:
A: Set Rs=conn.execute(SQL)
B: rs.open SQL,conn,1,3
这里RS代表RecordSet对象，conn代表connection对象，SQL代表查询语句。
先把ADO的对象 和 他们的关系搞清楚建议。
set rs = Server.CreateObject("ADODB.connection")
rs在习惯上被代表RecordSet(记录集)对象，而在此你事实上创建的是connection对象
而你又有一个conn对象(我怀疑就是connection对象)
首先，要用connection对象建立联接，格式: 对象.open "联接语句"
然后可以用两种方式建立记录集:
先声明记录集然后:
A: Set Rs=conn.execute(SQL)
B: rs.open SQL,conn,1,3
这里RS代表RecordSet对象，conn代表connection对象，SQL代表查询语句。
先把ADO的对象 和 他们的关系搞清楚建议。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
