Question

ADODB.Recordset错误'800a0bb9'

ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/adlist.asp，行74

<!--#include file="menu.asp"-->
<%
if request.querystring("type")="openp" then
%>
<font size="3" color=red><b>黄金广告位置正常播放的广告条列表</b></font>
<%
elseif request.querystring("type")="opens" then
%>
<font size="3" color=red><b>一般广告位置正常播放的广告条列表</b></font>
<%
elseif request.querystring("type")="close" then
%>
<font size="3" color=red><b>被管理员暂停而未失效的广告条列表</b></font>
<%
elseif request.querystring("type")="lose" then
%>
<font size="3" color=red><b>已经失效的的广告条列表</b></font>
<%
elseif request.querystring("type")="top" then
%>
<font size="3" color=red><b>TOP 20 条广告点击龙虎榜(不含失效广告)</b></font><br>
TOP20 是指前 20 名，由于一些广告条点击数相同，只能算一名，所以条数可能不止 20 条。
<%
elseif request.querystring("type")="end" then
%>
<font size="3" color=red><b>点击率最低的 20 条广告(不含失效广告)</b></font><br>
TOP20 是指前 20 名，由于一些广告条点击数相同，只能算一名，所以条数可能不止 20 条。
<%
else
%>
<font size="3" color=red><b>所有正常播放的广告条列表</b></font>
<%
adssql="select * from SMT_ads where SMT_act=1 order by SMT_id desc"
end if
%>
</td></tr></table>
<table border=0 width=100% cellspacing="1" cellpadding=3 bgcolor=#000000>
<%

dim MaxPerPage,adssql,adsrs,totalPut,CurrentPage,TotalPages,i,advlistact
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set adsrs=server.createobject("adodb.recordset")

if request.querystring("type")="close" then
adssql="select * from SMT_ads where SMT_act=0 order by SMT_regtime"

elseif request.querystring("type")="lose" then
adssql="select * from SMT_ads where SMT_act=2 order by SMT_regtime"

elseif request.querystring("type")="top" then
adssql="select top 20 * from SMT_ads where SMT_act<>2 order by SMT_click desc"

elseif request.querystring("type")="end" then
adssql="select top 20 * from SMT_ads where SMT_act<>2 order by SMT_click"

else
adssql="select * from SMT_ads where SMT_act=1 order by SMT_regtime desc"
end if

adsrs.open adssql,conn,1,1 （第74行）
if adsrs.eof and adsrs.bof then
response.write "<tr><td bgcolor=#ffffff>没有记录</td></tr></table>"
else
adsrs.pagesize=advertlistnumber'每页显示的记录数
totalPut=adsrs.recordcount '记录总数
totalPage=adsrs.pagecount
MaxPerPage=adsrs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
adsrs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=adsrs.bookmark '移动到开始显示的记录位置
showContent
showpages
end if
end if
adsrs.close
set adsrs=nothing
end if
conn.close
set conn=nothing

%>

Answer 1

貌似 确实没有 数据库的连接字符串 在页头加上强制定义看看有错误没？
加上<%option explicit%> 是个好习惯。。。由于变量错误的话很容易找到的

Answer 2

你的连接数据库呢?Conn是空的啊