UC知道asp，怎么让公告显示8条呢？？？
来源：百度知道 编辑：UC知道 时间：2024/05/01 05:39:40
sub ShowAnnounce(AnnounceNum)
dim sqlAnnounce,rsAnnounce,i
if AnnounceNum>0 and AnnounceNum<=10 then
sqlAnnounce="select top " & AnnounceNum
else
sqlAnnounce="select top 5"
end if
sqlAnnounce=sqlAnnounce & " * from News1 where BigClassName='企业新闻' order by ID desc"
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
if rsAnnounce.bof and rsAnnounce.eof then
AnnounceCount=0
response.write "<p> 没有公告</p>"
else
AnnounceCount=rsAnnounce.recordcount
do while not rsAnnounce.eof
response.Write " <a href='#' onclick=""javascript:window.open('shownews.asp?ID=" & rsAnnounce("id") &"')""><div style='font-size:16px;FONT face=隶书;color:#FF0000'> &quo
dim sqlAnnounce,rsAnnounce,i
if AnnounceNum>0 and AnnounceNum<=10 then
sqlAnnounce="select top " & AnnounceNum
else
sqlAnnounce="select top 5"
end if
sqlAnnounce=sqlAnnounce & " * from News1 where BigClassName='企业新闻' order by ID desc"
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
if rsAnnounce.bof and rsAnnounce.eof then
AnnounceCount=0
response.write "<p> 没有公告</p>"
else
AnnounceCount=rsAnnounce.recordcount
do while not rsAnnounce.eof
response.Write " <a href='#' onclick=""javascript:window.open('shownews.asp?ID=" & rsAnnounce("id") &"')""><div style='font-size:16px;FONT face=隶书;color:#FF0000'> &quo
很简单啊。
sqlAnnounce="select top 5"
5改成8 就行了。
select top 5 这里的五代表从数据库读数据的时候读多少条，5就是5条，改成8就是八条啦。。
其它select 语句中也可以这么用的啊。
ShowAnnounce(8)
else
sqlAnnounce="select top 5"
把 5 改成 8
sqlAnnounce="select top 5"改成 sqlAnnounce="select top 8"
不行的话直接
sqlAnnounce=sqlAnnounce & " top 8 from News1 where BigClassName='企业新闻' order by ID desc"