高考问答后来的日本版:缺少对象:'rs' 我自己编写的一个页面.怎么出现了这个情况呢
来源：百度文库 编辑：高考问答 时间：2024/05/08 04:44:43
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>进入系统</title>
</head>
<body>
<% If Request.Form("username")="" Then %>
<script> window.alert('你谁啊。什么时候用过这个日志系统啊。呵呵。快注册吧！！'); location.href='index.asp';</script>
<% ElseIf Request.Form("password")="" Then %>
<script> window.alert('干吗？想混进去啊。进去是要密码滴！老老实实地填写密码吧！'); location.href='index.asp';</script>
<% Else %>
dim username,password
username=Request.Form("username")
password=Request.Form("password")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("me.mdb")
set rs=server.createobject("adodb.recordset")
sql="select username,password,amdo,pmdo,evedo,nido from user where username='" &username& "'"
rs.open sql,conn,1,3
<% If rs.bof and rs.eof Then %>
<script> window.alert('哼！！害得我跑到数据库里面找半天没你这个人啊。你说现在怎么办！我们私了吧...'); location.href='reg.asp';</script>
<% ElseIf rs("password")<>password Then %>
<script> window.alert('听着我的忍耐是有限度的不过现在你还有机会重新填写密码！'); location.href='reg.asp';</script>
<% Else %>
<script> window.alert('不好意西了。先测试一下等等啊！'); location.href='index.asp';</script>
rs.update
<% End If %>
<% End If %>
</body>
</html>
这是你的原代码,你看注释部分就是需要更改的地方
<% ElseIf Request.Form("password")="" Then %>
<script> window.alert('干吗？想混进去啊。进去是要密码滴！老老实实地填写密码吧！'); location.href='index.asp';</script>
<% Else '把这个%>去掉
dim username,password
username=Request.Form("username")
password=Request.Form("password")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("me.mdb")
set rs=server.createobject("adodb.recordset")
sql="select username,password,amdo,pmdo,evedo,nido from user where username='" &username& "'"
rs.open sql,conn,1,3
If rs.bof and rs.eof Then %> '把这个<%去掉,因为中间那些脚本也是服务器端脚本.所以也必须用<% %>括起来.
还有一处,也是同样的错误,倒数第五行,rs.update,也需要在两边加上<% %>
改好应该就不会有问题了
<%
dim username,password
username=Request.Form("username")
password=Request.Form("password")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("me.mdb")
set rs=server.createobject("adodb.recordset")
sql="select username,password,amdo,pmdo,evedo,nido from user where username='" &username& "'"
rs.open sql,conn,1,3
%>
你少了<% %>
<% Else %> ＝＝》<% Else
<% If rs.bof and rs.eof Then %>＝＝》 If rs.bof and rs.eof Then %>