<!--#include file="conn.asp"-->
<%
aname=request.form("aname")
apwd=request.form("apwd")
if aname="" or apwd="" then
response.write ("<script language=javascript>alert'用户名和密码不能为空！';history.go(-1);</script>")
else
set rs=Createobject("adodb.connection")
sql="select * from admin"
rs.open.sql conn,1,3
if aname=rs("aname") and apwd=rs("apwd") then
response.redirct "manage.asp"
else
response.write ("<script language=javascript>alert'用户名或密码输入错误，请确认！';history.go(-1);</script>")
%>
<%end if%>
<%end if%>
<%
rs.close
set rs=nothing
%>

运行的时候提示错误如下，
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'
/7788/Chkadmin.asp, 第 19 行

哪位老大能详细说下啊，谢谢啦

[ 本帖最后由 sk0219 于 2008-6-13 22:06 编辑 ]

rs.open.sql conn,1,3
这个楼主看看是不是错了

rs.close
set rs=nothing
这个放到if语句里。
若if条件没成功的话。因为没创建rs对像所以会提示少了

应该是rs.Open sql,conn,1,3这个样子，你却写成了“rs.open.sql conn,1,3” 多了个标点造成的！

set rs=Createobject("adodb.connection")
sql="select * from admin"
rs.open.sql conn,1,3

set rs=Createobject("adodb.connection")
这条语句有问题吧！应该是：
set rs=Createobject("adodb.rerordset")