|
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from c_news order by c_time desc"
rs.Open sql,conn,1,1
%><%
if rs.EOF and rs.BOF then
response.write ("暂时还没有文章，添加")
else
%>
<%
Dim Page,Page_Number,TotalRec,MaxPerPage,MM
'Page(當前頁),Page_Number(縂頁數),TotalRec(縂記錄數),MaxPerPage(每頁顯示條數)
MM = 0
If Trim(Request.Form("GotoPage")) <> "" Then
If Not IsNumeric(Trim(Request.Form("GotoPage"))) Then
Page = 1
Else
Page = CLng(Trim(Request.Form("GotoPage")))
End If
Else
Page = 1
end If
Rs.PageSize =15
MaxPerPage =Rs.PageSize
TotalRec = Rs.RecordCount
Page_Number =int(-1*TotalRec/15)*-1
If Page_Number = 0 Then Page_Number = 1
If CLng(Page) < 1 Then Page = 1
If Page > Page_Number Then Page = Page_Number
rs.absolutepage=page
Do While Not Rs.eof AND MM <15 %>
<%=year(RS("c_time"))&"-"&month(RS("c_time"))&"-"&day(RS("c_time"))%>" target="_blank"> <%= RS("c_title") %>
<%MM = MM + 1
Rs.movenext:Loop
%>
<%
'If Page_Number > 1 Then%>
<%
'End If%>
<%
end if
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>
|