asp 出现 ADODB.Recordset 错误 '800a0bb9'是为什么 30
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%><%response.buffer=true%><%Response.ContentTyp...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="ubb.inc"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%
dim res,sqld
set res=server.createobject("ADODB.Recordset")
sqld="select * from gd where idd=" & id & " and idlt=" & idlt & " and jz='i'"
res.open sqld,myc,1,1
if not res.eof then
response.write "<card title='错误!'><p>呵呵,你被禁止进入该聊天室啦,请返回社区联系室主</p></card></wml>"
response.end
else
%>
<card title="本室在线">
<p align='left'><%=now()%><br/><br/>
<%
dim tt,p,t
tt=timer()
p=request("p")
if p="" then p=1
t=request("t")
if t="" then t="400"
response.write("<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p & "&t=" & t & "&tt=" & tt & "'>刷新列表</a><br/>")
dim rss,sql2
set rss=server.createobject("ADODB.Recordset")
sql2="select * from ooo where iidd=" & id & " and DATEDIFF('s', times, now()) < 15*60 order by times desc"
rss.open sql2,myc,1,2
if not rss.eof then
rss.Move((p-1)*pag)
dim i
i=1
do while ((not rss.eof) and i<=cInt(pag))
dim objgbrss,ssqls
set objgbrss=Server.CreateObject("ADODB.Recordset")
ssqls="select usename from usereg where id=" & rss("idlt") 展开
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="ubb.inc"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%
dim res,sqld
set res=server.createobject("ADODB.Recordset")
sqld="select * from gd where idd=" & id & " and idlt=" & idlt & " and jz='i'"
res.open sqld,myc,1,1
if not res.eof then
response.write "<card title='错误!'><p>呵呵,你被禁止进入该聊天室啦,请返回社区联系室主</p></card></wml>"
response.end
else
%>
<card title="本室在线">
<p align='left'><%=now()%><br/><br/>
<%
dim tt,p,t
tt=timer()
p=request("p")
if p="" then p=1
t=request("t")
if t="" then t="400"
response.write("<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p & "&t=" & t & "&tt=" & tt & "'>刷新列表</a><br/>")
dim rss,sql2
set rss=server.createobject("ADODB.Recordset")
sql2="select * from ooo where iidd=" & id & " and DATEDIFF('s', times, now()) < 15*60 order by times desc"
rss.open sql2,myc,1,2
if not rss.eof then
rss.Move((p-1)*pag)
dim i
i=1
do while ((not rss.eof) and i<=cInt(pag))
dim objgbrss,ssqls
set objgbrss=Server.CreateObject("ADODB.Recordset")
ssqls="select usename from usereg where id=" & rss("idlt") 展开
2个回答
大雅新科技有限公司
2024-11-19 广告
2024-11-19 广告
这方面更多更全面的信息其实可以找下大雅新。深圳市大雅新科技有限公司从事KVM延长器,DVI延长器,USB延长器,键盘鼠标延长器,双绞线视频传输器,VGA视频双绞线传输器,VGA延长器,VGA视频延长器,DVI KVM 切换器等,优质供应商,...
点击进入详情页
本回答由大雅新科技有限公司提供
展开全部
objgbrss.open ssqls,conn,1,1
response.write ((p-1)*pag+i) & ".)<a href='/lt/reg/useinfo.asp?id=" & rss("idlt") & "&myid=" & myid & "'>" & ubb(objgbrss("usename")) & "</a><br/>"
rss.movenext
i=i+1
loop
if p*pag<rss.recordcount Then response.write("<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p+1 & "&t=" & t & "'>下一页</a>")
if p>1 then response.write("<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p-1 & "&t=" & t & "'>上一页</a>")
if pag > rss.pagecount and p>1 then response.write("<br/>")
if pag<rss.recordcount then
response.write("("& p & "/" & (int(rss.recordcount/pag+1)) &"/" & rss.recordcount & ")<br/>")
%>
跳到第<input name="gpage<%=minute(now)%><%=second(now)%>" title="页码" type="text" format="*N" emptyok="true" size="3" value="<%response.write(p+1)%>" maxlength="3"/>页
<a href="zxs.asp?id=<%=id%>&myid=<%=myid%>&t=<%=t%>&p=$(gpage<%=minute(now)%><%=second(now)%>)">[GO]</a><br/>
<%
end if
end if
rss.close
set rss=Nothing
response.write("----------<br/><a href='talk.asp?id=" & id & "&t=" & t & "&myid=" & myid & "'>发言</a>|<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p & "&t=" & t & "&tt=" & tt & "'>刷新</a><br/>")
end if
%>
<a href="rooms.asp?id=<%=id%>&myid=<%=myid%>&t=<%=t%>">返回聊室</a><br/>
<a href="index.asp?myid=<%=myid%>">聊室列表</a><br/>
<!--#include file="aa.asp"-->
<%
myc.close
set myc=nothing
%>
</p>
</card>
</wml>
response.write ((p-1)*pag+i) & ".)<a href='/lt/reg/useinfo.asp?id=" & rss("idlt") & "&myid=" & myid & "'>" & ubb(objgbrss("usename")) & "</a><br/>"
rss.movenext
i=i+1
loop
if p*pag<rss.recordcount Then response.write("<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p+1 & "&t=" & t & "'>下一页</a>")
if p>1 then response.write("<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p-1 & "&t=" & t & "'>上一页</a>")
if pag > rss.pagecount and p>1 then response.write("<br/>")
if pag<rss.recordcount then
response.write("("& p & "/" & (int(rss.recordcount/pag+1)) &"/" & rss.recordcount & ")<br/>")
%>
跳到第<input name="gpage<%=minute(now)%><%=second(now)%>" title="页码" type="text" format="*N" emptyok="true" size="3" value="<%response.write(p+1)%>" maxlength="3"/>页
<a href="zxs.asp?id=<%=id%>&myid=<%=myid%>&t=<%=t%>&p=$(gpage<%=minute(now)%><%=second(now)%>)">[GO]</a><br/>
<%
end if
end if
rss.close
set rss=Nothing
response.write("----------<br/><a href='talk.asp?id=" & id & "&t=" & t & "&myid=" & myid & "'>发言</a>|<a href='zxs.asp?id=" & id & "&myid=" & myid & "&p=" & p & "&t=" & t & "&tt=" & tt & "'>刷新</a><br/>")
end if
%>
<a href="rooms.asp?id=<%=id%>&myid=<%=myid%>&t=<%=t%>">返回聊室</a><br/>
<a href="index.asp?myid=<%=myid%>">聊室列表</a><br/>
<!--#include file="aa.asp"-->
<%
myc.close
set myc=nothing
%>
</p>
</card>
</wml>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询