list.asp id=83|17|800a0bcd|BOF_或_EOF_中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个

list.asp的代码如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%Constdbdns="./"ConstHtmldns="./... list.asp的代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Const dbdns = "./"
Const Htmldns = "./"
Const Base_Target = "target=""_blank"""
Const ChannelID = 1
%>




<%
Set Page = New TurnPage
ClassID=myCdbl(Request.QueryString("id"))
Sql="select * from Ok3w_Class where ID=" & ClassID
Rs.Open Sql,Conn,0,1
SortPath = Rs("SortPath")
SortName = Rs("SortName")
IsPic = Rs("IsPic")
PageSize = Rs("PageSize")
Rs.Close
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%Call Ok3w_Article_Class_PageTitle(SortPath)%> - <%=Application(SiteID & "_Ok3w_SiteName")%></title>
<link href="<%=Htmldns%>css/style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" src="<%=Htmldns%>js/js.js"></script>
<script language="javascript" src="<%=Htmldns%>js/ajax.js"></script>
<script type="text/javascript" src="<%=Htmldns%>a2j/astr.js"></script>
</head>

<body>

<table width="960" border="0" align="center" cellpadding="0" cellspacing="0" class="mtop">
<tr>
<td>您当前位置：<a href="<%=Htmldns%>">网站首页</a> >> <%Call Ok3w_Article_Class_Nav(SortPath)%></td>
</tr>
</table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="left" valign="top">
<%
If IsHaveNextClass(ClassID) Then
Sql="select * from Ok3w_Class where ParentID=" & ClassID & " and gotoURL='' order by OrderID"
Set oRs = Conn.Execute(Sql)
Count = 0
Do While Not oRs.Eof
Count = Count + 1
%>
<div class="mlist-text">
<div class="mlist-bj">
<div class="mlist-name"><h4><%=oRs("SortName")%></h4></div>
<div class="mlist-more"><a href="<%=Page_URL(ChannelID,oRs("ID"),"")%>"><img src="<%=Htmldns%>images/more.gif" border="0" /></a></div>
</div>
<ul>
<%
If oRs("IsPic") = 1 Then
Call Ok3w_Article_pList(oRs("ID"),8,8,4,130,100,10)
Else
Call Ok3w_Article_List(oRs("ID"),8,30,False,False,True,1,False,"new","li")
End If
%>
</ul>
</div>
<%
oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
Else
%>
<div class="mlist-text">
<div class="mlist-bj">
<div class="mlist-name"><h4><%=SortName%></h4></div>
<div class="mlist-more"><a href="<%=Page_URL(ChannelID,ClassID,"")%>"><img src="<%=Htmldns%>images/more.gif" border="0" /></a></div>
</div>
<ul>
<%
If IsPic = 1 Then
Call Ok3w_Article_pList(ClassID,10000000,PageSize,4,130,100,10)
Else
Call Ok3w_Article_bList(ClassID,PageSize)
End If
%>
</ul>
</div>
<%
End If%>
</td>
<td width="10"> </td>
<td width="250" class="right" valign="top"></td>
</tr>
</table>
请高手帮助看看需要改哪里？先感谢各位高手了
我用的是 ok3w的新闻发布系统我把它放在了http://域名/news/下展开

 我来答

1个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

百度网友bb878719
推荐于2016-06-09 · 超过11用户采纳过TA的回答

知道答主

回答量：45

采纳率：0%

帮助的人：28.9万

我也去答题访问个人页

关注

展开全部

Rs.Open Sql,Conn,0,1
if rs.eof then
   没有记录
else
   SortPath = Rs("SortPath")
   SortName = Rs("SortName")
   IsPic = Rs("IsPic")
   PageSize = Rs("PageSize")
end if
Rs.Close


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

list.asp id=83|17|800a0bcd|BOF_或_EOF_中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个

其他类似问题

为你推荐：