ASP移动数据集就报错ADODB.Field (0x800A0BCD)BOF 或 EOF 中有一个是“真”,或者
<divalign="center"id="layer2"><%dimidno,rsidno=request.querystring("id")ifidno=""then...
<div align="center" id="layer2" >
<%
dim idno,rs
idno=request.querystring("id")
if idno="" then
server_v40=Request.ServerVariables("QUERY_STRING")
idno=Int(replace(replace(server_v40,"/",""),".html",""))
end if
set rs=Server.CreateObject("adodb.recordset")
sql="select * from htmlcontent where ID="&idno
rs.Open sql,conn,1,3
%>
<table width="780" bgcolor="#FFFFCC">
<tr width="100%" >
<td class="visitor1" align="center"><%=rs("title")%></td>
</tr>
<tr>
<td class="visitor1" align="center"><h1>苏州胶带厂</h1></td>
</tr>
<tr width="100%">
<td width="100%" align="center"><%=rs("PublishDate")%></td>
</tr>
<tr>
<tr width="100%">
<td width="100%"><%=rs("HTMLdata")
%><br>
<br>
</td>
</tr>
<tr width="100%">
<td width="100%" align="left"><%
rs.MovePrevious
do while not rs.BOF
if rs("catalogname").value="公司新闻" then
response.Write("上一篇:<a href=movement.asp?/"&rs("id").value&".html class='stylelink1' target='_blank'>"&rs("title") & space(5) &rs("publishdate")&"</a>")
exit do
end if
loop
%></td>
</tr>
<%
rs.Close
set rs=nothing
%>
</table>
</div> 展开
<%
dim idno,rs
idno=request.querystring("id")
if idno="" then
server_v40=Request.ServerVariables("QUERY_STRING")
idno=Int(replace(replace(server_v40,"/",""),".html",""))
end if
set rs=Server.CreateObject("adodb.recordset")
sql="select * from htmlcontent where ID="&idno
rs.Open sql,conn,1,3
%>
<table width="780" bgcolor="#FFFFCC">
<tr width="100%" >
<td class="visitor1" align="center"><%=rs("title")%></td>
</tr>
<tr>
<td class="visitor1" align="center"><h1>苏州胶带厂</h1></td>
</tr>
<tr width="100%">
<td width="100%" align="center"><%=rs("PublishDate")%></td>
</tr>
<tr>
<tr width="100%">
<td width="100%"><%=rs("HTMLdata")
%><br>
<br>
</td>
</tr>
<tr width="100%">
<td width="100%" align="left"><%
rs.MovePrevious
do while not rs.BOF
if rs("catalogname").value="公司新闻" then
response.Write("上一篇:<a href=movement.asp?/"&rs("id").value&".html class='stylelink1' target='_blank'>"&rs("title") & space(5) &rs("publishdate")&"</a>")
exit do
end if
loop
%></td>
</tr>
<%
rs.Close
set rs=nothing
%>
</table>
</div> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询