Question

ASP怎么调用后台新闻列表

ASP怎么调用后台新闻列表我想单独调用行业新闻 id=1 和公司新闻id=2 我想分别显示。怎么弄？
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 8 * from pf_news order by pf_news_order desc"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
Set rsc = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where id = "&rs("pf_news_category")&""
rsc.Open sql, conn, 1, 1
%>
<li><span class="float_right gray"><%=formatdatetime(rs("pf_news_date"),1)%></span>[<a href="news_category.asp?id=<%=rsc("ID")%>"><%=rsc("pf_news_category_name")%></a>] <a href="news_view.asp?id=<%=rs("ID")%>" title="<%=rs("pf_news_name")%>"><%=str_left(rs("pf_news_name"),80,"...")%></a></li>
用了sql = "select * from pf_news_category where id = 1"
调用结果是：[公司新闻] 微软Google罕见
公司新闻没错 但是后面的新闻标题和内容是行业新闻的 不知道怎么回事？

Answer 1

一直都没有明白你说的什么意思，但是我帮你全部想要的可能就些出来了，你自己看看把：滚饥
必须的条件是
pf_news 里面必须要有一个和pf_news_category 表维系的字段，比如
pf_news表里面要有一个字段是 categoryid ，记录每篇文章对于栏目的id（也就是表pf_news_category中的id值），才能查询，简单的把两个表结构给你描述一下：
pr_news表字段：
id categoryid newsname ...........
1 2 我公司引进大型服务器
2 2 热烈庆祝我公司与动易公司合作
3 1 微软Google罕见
..............

pf_news_category表字段：
id categoryname
1 行业新闻
2 公司新闻

=========1、你想要的效果如下：=================
1.、[公司新闻] 我公司引进大型服务器
2.、[公司新闻] 热烈庆祝我公司与动易公司合作
3.、[行业新闻] 微软Google罕见
4.、[公司新闻] 公司春节房价通知
5.、[行业新闻] 百度baidu有怎么了？

====代码：=====
'==原理：咐仿现读出所有新闻，然后在在循环中读取每篇文章所对于的栏目
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 8 * from pf_news order by pf_news_order desc"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
Set rsc = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where id = "&rs("categoryid")&""
rsc.Open sql, conn, 1, 1
%>
<li><span class="float_right gray"衡备纤><%=formatdatetime(rs("pf_news_date"),1)%></span>[<a href="news_category.asp?id=<%=rsc("ID")%>"><%=rsc("pf_news_category_name")%></a>] <a href="news_view.asp?id=<%=rs("ID")%>" title="<%=rs("pf_news_name")%>"><%=str_left(rs("pf_news_name"),80,"...")%></a></li>

rsc.close()
set rsc =nothing
rs.close()
set rs =nothing

=========2、你想要的效果如下：=================
================================
新闻导航：公司新闻 栏目新闻
================================
1.、[公司新闻] 我公司引进大型服务器
2.、[公司新闻] 热烈庆祝我公司与动易公司合作
3.、[行业新闻] 微软Google罕见
4.、[公司新闻] 公司春节房价通知
5.、[行业新闻] 百度baidu有怎么了？

点击“公司新闻”后，下方出现全部都是公司的新闻，点击“行业新闻”后，全部出现行业新闻，默认是出现所有新闻

====代码：===
<%
'读取新闻导航
dim sql,rs,id
id =request.QueryString("id")
sql = "select top 8 * from pf_news order by pf_news_order desc"
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
if rs.eof and rs.bof then
response.write"新闻导航：暂无新闻栏目。"
rs.close
set rs =nothing
Else
response.write"新闻导航："
Do while not rs.eof
response.write "<a href='?id ="""& rs("id") &"""' >" &rs("pf_news_category_name") & "</a> "
loop
rs.movenext
end if
rs.close()
set rs =nothing

'读取文章列表
Set rs = server.CreateObject("adodb.recordset")
if id ="" or isNull(id) then
sql = "select top 8 * from pf_news order by pf_news_order desc"
Else
sql = "select top 8 * from pf_news where id= "& id &" order by pf_news_order desc"
End if
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
Set rsc = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where id = "&rs("pf_categoryid")&""
rsc.Open sql, conn, 1, 1
%>
<li><span class="float_right gray"><%=formatdatetime(rs("pf_news_date"),1)%></span>[<a href="news_category.asp?id=<%=rsc("ID")%>"><%=rsc("pf_news_category_name")%></a>] <a href="news_view.asp?id=<%=rs("ID")%>" title="<%=rs("pf_news_name")%>"><%=str_left(rs("pf_news_name"),80,"...")%></a></li>
<%
rsc.close()
set rsc =nothing
rs.close
set rs =nothing
%>

Answer 2

Set rsc = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where id = 1"手渣
rsc.Open sql, conn, 1, 1
Do While Not rsc.EOF
Response.write rs("id") & " -" & rs("newstitle"毕扒悄) & "<br>"
loop
rs.movenext
rs.close
set rs = nothing

Set rsc = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where id = 2"此雹
rsc.Open sql, conn, 1, 1
Do While Not rsc.EOF
Response.write rs("id") & " -" & rs("newstitle") & "<br>"
loop
rs.movenext
rs.close
set rs = nothing

追问

我把全部的代码贴出来了 帮忙再看看 非常感谢！

Answer 3

天哪，你们的代码能运行吗？枯拿
dim sql,rs
'先读行业没森搭新闻
sql = “select top 8 * from pf_news where id=1 order by pf_news_order desc”
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
if not rs.eof then
do while not rs.eof
Response.write rs("id") & " -" & rs("newstitle") & "<br>"
rs.movenext
loop
end if
rs.close : set rs = nothing
'再读公司新闻
sql = “select top 8 * from pf_news where id=2 order by pf_news_order desc”
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
if not rs.eof then
do while not rs.eof
Response.write rs("id") & " -" & rs("newstitle") & "<br>春侍"
rs.movenext
loop
end if
rs.close : set rs = nothing

Answer 4

写在答猜函数或方法里面
function GetNews(id)
Set rsc = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where id = "&id&""
rsc.Open sql, conn, 1, 1
if Not (rsc.Bof And rsc.Eof) Then
Do While Not rsc.EOF
Response.write rsc("id") & " -" & rsc("newstitle") & "<br>"
rsc.movenext
loop
End If
rsc.close
set rsc = nothing
Function
显册备示行业新闻 Call GetNews(1)
显示公州举毁司新闻 Call GetNews(2)