ADODB.Recordset 错误 '800a0bb9'
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/adlist.asp,行74
302 Found
302 Found
nginx
<%
if request.querystring("type")="openp" then
%>
黄金广告位置正常播放的广告条列表<%
elseif request.querystring("type")="opens" then
%>
一般广告位置正常播放的广告条列表<%
elseif request.querystring("type")="close" then
%>
被管理员暂停而未失效的广告条列表<%
elseif request.querystring("type")="lose" then
%>
已经失效的的广告条列表<%
elseif request.querystring("type")="top" then
%>
TOP 20 条广告点击龙虎榜(不含失效广告)TOP20 是指前 20 名,由于一些广告条点击数相同,只能算一名,所以条数可能不止 20 条。
<%
elseif request.querystring("type")="end" then
%>
点击率最低的 20 条广告(不含失效广告)TOP20 是指前 20 名,由于一些广告条点击数相同,只能算一名,所以条数可能不止 20 条。
<%
else
%>
所有正常播放的广告条列表<%
adssql="select * from SMT_ads where SMT_act=1 order by SMT_id desc"
end if
%>
<%
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 "没有记录 |
"
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
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
%>
rs.open "select * from ip_address where "&num&">=ip1 and "&num&"<=ip2",conn,1,1
这一行中的conn,是指收已经定义好的数据库连接字符串,比如:
set conn = server.createobject("adodb.connection")
.....
conn.open ......
例如这样来连接数据库。
这些工作做好了吗?数据库连接是否正常?
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息