<%
Dim Rs
Set Rs=Server.CreateObject("ADODB.RecordSet")
Dim Sql
Sql=ExeSql()
Rs.Open Sql,Conn,1,1
Dim CurrentPage
If Request("CurrentPage")="" Then
CurrentPage=1
Else
CurrentPage=Request("CurrentPage")
End If
Rs.PageSize = 10
If Not(Rs.Eof And Rs.Bof) Then
Rs.AbsolutePage=CurrentPage
End If
Dim sKey,WorkType
If Rs.Eof And Rs.Bof Then
%>
| Welcome to deliver your point of view! |
[announce]:Any question,pls contact us:howtd@126.com.thanks for your browse!
|
<%End If%>
<%
Dim I
For I=1 To Rs.PageSize
If Rs.Eof Then
Exit For
End If
%>
| "<%=Rs("title")%>"post at <%=FormatDateTime(Rs("AddTime"),2)%>: |
|
<%
Rs.MoveNext
Next%>
<%
'"
%>
<%
Rs.Close
Set Rs=Nothing
%>
|