Question

ASP网站想在首页调用新闻列表，后台新闻但是显示没有记录，请问如何才能调用出来？

头部：
<!--#include file="Inc/SysProduct.asp" -->
<!--#include file="Inc/Conn.asp" -->
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<!--#include file="head.asp" -->

新闻调用的那一段：
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if BigClass<>"" and SmallClass <>"" then
sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass<>"" then
sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=8
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" height="30" align="center" style="BORDER-bottom: #E7E7E7 1px dashed">
<img src="Img/arrow_6.gif" width="11" height="11" /></td>
<td width="65%" height="24" style="BORDER-bottom: #E7E7E7 1px dashed">
<a href="shownews.asp?id=<%= rsnews("id") %>" target="_blank" class="black"><%= rsnews("TITLE") %></a>　</td>
<td width="29%" style="BORDER-bottom: #E7E7E7 1px dashed"><font color="#999999">[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<font color="#ff0000"><%= RS("HITS") %></font>) </font></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
%>

<%
end if
rs.close
set rs=nothing
%>
Conn.asp文件内容：
<%
dim conn,db
dim connstr
db="Databases/%#@$@#FDS@#$%%#.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>

标题语法有问题。好好说一遍：
ASP网站，想在首页调用新闻列表，后台有新闻，但是首页显示没有记录，请问如何才能调用出新闻来显示在首页？

Answer 1

后台显示没有新闻记录，你前台首页调用肯定显示不出来，所以你可以在后台添加几条，前边再调用就有东西了。

追问

后台有至少30条新闻，列表页显示，但是首页调用不出来

追答

你的这两个 传递过来的变量BigClass SmallClass 你看下有值吗

即在page=clng(request("page"))这句前面
加上response.write bigclass&","&smallclass
response.end
看看输出，如果没值，那肯定就掉不出记录

"" and SmallClass "" then
sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass"" then
sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
else '加上后面这两句肯定有输出了

sql="select * from news order by AddDate desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>

追问

追答

你调用出错了
rsnews("TITLE")
应该是rs("title")

追问

好了，最后一个 如何控制调用条数？悬赏能追加多少我就给你多少

追答

rs.PageSize=8 '通过修改此处来控制每页显示的记录数

追问

加在哪里啊？

追答

是你代码里的，你搜索下，改变那个rs.pagesize 到你想要显示的条数，你的这个代码是分页用的调用方式，如果没有分页，可以直接在sql语句中控制
如：select top 10 * from news order by id desc 等，通过top 记录条数 来控制

Answer 2

都没明白你的标题是啥意思，你能读明白？

追问

ASP网站，想在首页调用新闻列表，后台有新闻，但是首页显示没有记录，请问如何才能调用首页新闻？

追答

page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if BigClass"" and SmallClass "" then
sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass"" then
sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
end if
把SQL语句输出一下
response.write sql
看看什么状况。