Question

如何ASP调用新闻各栏目内容列表

<%
set news=server.createobject("adodb.recordset")
exec="select top 6 * from [news] where ssfl=1 order by id desc "
news.open exec,conn,1,1
if news.eof and news.bof then
response.Write(" 暂无新闻 !")
end if
%>

<%
f=1
do while not news.eof

if IsNull(news("url")) or trim(news("url")&"")="" then
url="shownews.asp?id="&news("id")&""
else
url=""&news("url")&""
end if
if IsNull(news("color")) or trim(news("color")&"")="" then
color="#000000"
else
color=""&news("color")&""
end if
%>

<li>·<a href="<%=url%>" title="<%=InterceptString(news("title"),86)%>" style="color:<%=color%>;"><%=InterceptString(news("title"),30)%></a></li>
<%
if f mod 2 =0 then
response.Write ""
end if
f=f+1
news.movenext
loop
news.close
set news=nothing
%>
大家帮帮看看代码哪里添加栏目的文章列表

Answer 1

<%
Function Show(id,num,lenth)
'id是取到的相应的栏目的ID值,如最新动态(类别id是1),行业新闻(类别id是2)
'num是数据条数
'lenth是长度,即显示的标题长度
Sql="Select Top num * from 表 where id="&id
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.open Sql,conn,1,1
If not Rs.bof and not Rs.eof Then
Do while not Rs.eof
Show=Show& "<a href='List.asp?id="&Rs("id")&"' target=_blank>"&left(Rs("标题"),lenth)&"</a><br/>"
Rs.movenext
Loop
Rs.close
Set Rs=nothing
End if
End Function
%>
'上面这一段你可以单独放在Function.asp,然后在页面<!--#include file="function.asp"-->
<%=Show(1,10,15)%> 这是在页面调用
'1是栏目ID,10是10条记录,15是每条的长度.

汗.我刚刚发出来才发现楼上已经发布了.那位同仁的一样的.如果可以你可以采纳他的.

Answer 2

数据库新闻的子栏目字段是“jishulei”，列表内容的字段是“jishu”，我想在成功了我再加分 显示的代码呢？至少要有response.write吧

Answer 3

那段SQL语句就是了，内容要分类一下。

追问

能不能具体点啊？怎么个分类法？

Answer 4

The codes display the news title as hyperlinks ,

<li>·<a href="<%=url%>" title="<%=InterceptString(news("title"),86)%>" style="color:<%=color%>;"><%=InterceptString(news("title"),30)%></a></li>