小妹求教一个在客户管理系统中修改密码时报错的问题啊

pengfei1227 2004-08-11 04:46:13
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

ADODB.Recordset 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

/hy/adminedit1.asp,行35


具体代码为:<%
dim mz,qx
mz=session("user")
qx=session("pass")
dim username,password
pass=request("pass")
pass1=request("pass1")

dim rs
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select pass from admin where user='"&mz&"'",conn,1,3
if pass<>pass1 or pass="" or pass1="" then
response.write"<script>alert('两次密码输入有误,请重新输入!');history.back();</script>"
else
rs("pass")=pass
rs.update
session("user")=user
session("pass")=pass
response.write "<script>alert('恭喜您,资料修改成功!');location.href='adminlogin.asp';</Script>"
end if
%>
...全文
54 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
pengfei1227 2004-08-11
谢了,你们所说在方法我还没用IIS就出了点问题,重新装不上。
回复
sunangle 2004-08-11
数据库中没有记录啊,要加个判断才可以啊
回复
gu1dai 2004-08-11
缺少end请检查if 是否与end对应
必须一一对应,你肯定是某个if没有相应的end if做结束
所需操作要求当前记录是因为你没有在数据库中取到记录
请检查你的where判断是否正确。可以这样检查
username=request(“username”)
response.write username'检查username值是否存在
response.end
....select * from 表名 where username='"&username&"'

回复
古侠 2004-08-11
对,加个判断语句
回复
xiaobird1 2004-08-11
rs.open "select pass from admin where user='"&mz&"'",conn,1,3
If Not rs.Eof Then
if pass<>pass1 or pass="" or pass1="" then
response.write"<script>alert('两次密码输入有误,请重新输入!');history.back();</script>"
else
rs("pass")=pass
rs.update
session("user")=user
session("pass")=pass
response.write "<script>alert('恭喜您,资料修改成功!');location.href='adminlogin.asp';</Script>"
end if
Else
Response.Write "无此用户名!"
Response.End
End If
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-11 04:46
社区公告
暂无公告