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

[pengfei1227]

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
%>

[xiaobird1]

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

[古侠]

对，加个判断语句

[gu1dai]

缺少end请检查if 是否与end对应
必须一一对应，你肯定是某个if没有相应的end if做结束
所需操作要求当前记录是因为你没有在数据库中取到记录
请检查你的where判断是否正确。可以这样检查
username=request（“username”）
response.write username'检查username值是否存在
response.end
....select * from 表名 where username='"&username&"'

[sunangle]

数据库中没有记录啊，要加个判断才可以啊

[pengfei1227]

谢了，你们所说在方法我还没用IIS就出了点问题，重新装不上。