高考问答崩坏3rd新角色:asp连接sql数据库
来源：百度文库 编辑：高考问答 时间：2024/05/05 18:44:47
错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/search.asp
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; TencentTraveler)
我是这么写的连接
<%
set Conn = Server.CreateObject("ADODB.Connection")
set recs = server.CreateObject("adodb.recordset")
str = "driver={SQL Server}; server=(local); uid=sa; pwd=; database=zljs;"
Conn.Open str
%>
<%
Dim ztc,ipc
Dim recs,sqlStr
ztc = Trim(Request("ztc"))
ipc = Request("ipc")
sqlstr = "select 主题词,分类号 from ztcb where 主题词 like '%&ztc&%'"
Set recs = Server.CreateObject("ADODB.Recordset")
recs.Open sqlStr,Conn,1,1
%>
恳请各位能够给予帮助啊,多谢了．
谢谢大家了，现在连好了
现在的问题是什么也不输入点“提交”也能检索出结果怎么办呀？
set Conn = Server.CreateObject("ADODB.Connection")
set recs = server.CreateObject("adodb.recordset")
str = "driver={SQL Server}; server=(local); uid=sa; pwd=; database=zljs;"
Conn.Open str
照你连接数据库的语句来看，不用配置数据源啊
“ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。”是数据库取出的记录为空，在显示数据时加一个判断为空条件
if recs.bof and recs.eof then
call error()
end if
sub error()
...
end sub
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/search.asp
说明数据库里没有数据 可以在 recs.Open sqlStr,Conn,1,1 下边加上
if recs.bof and recs.eof then
response.write("没有数据!")
end if
满足条件"select 主题词,分类号 from ztcb where 主题词 like '%&ztc&%'" 的记录数可以为0，在使用recs（“主题词”）时要注意在前面加个条件 if not recs.eof then 。。。 end if 在。。。处写recs（“字段名”）的语句
开发一个后台。就可以通过asp来调用数据库的内容。
sqlstr = "select 主题词,分类号 from ztcb where 主题词 like '%&ztc&%'"
应该是
……like '%"&ztc&"%'"
另外，后边再加个判断，也不错。