|
 |
新聞在線 |
|
|
|
 |
<%
'顯示新聞列表
Dim rs
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * From news_info Order By news_date Desc,news_cit Desc",Conn,1,1
if not(rs.Bof And rs.Eof) then
dim newsperpage
newsperpage=26'每頁記錄條數
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalnews=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*newsperpage
"><%=cutstr(rs("news_title"),30)%>
|
<%=rs("news_date")%> |
<%=rs("news_cit")%> |
 |
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
當前沒有新聞! |
<%end if
end if%>
|
|
|
|
|