<%
Set rsConst = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM [jsconst]"
rsConst.Open strSQL, conn, 1, 1
If rsConst.EOF = False Then intPageSize = rsConst("dynpage") Else intPageSize = 10
intPageSize = CInt(intPageSize)
Set rsRecord = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM [article] WHERE [ifhead] = 1 ORDER BY [Addtime] DESC"
rsRecord.Open strSQL, conn, 1, 1
rsRecord.PageSize = intPageSize
intPageCount = rsRecord.PageCount
If Request("page") = "" Then intCurPage = 1 Else intCurPage = CInt(Request("page"))
rsRecord.AbsolutePage = intCurPage
For intCounter = 1 To intPageSize
If rsRecord.EOF Then Exit For
strTitle = CutWidth(rsRecord("title"), 73, "...")
%>
| <% =rsConst("headsign") %>
target="_blank">
<% =strTitle %>
|
<%
rsRecord.MoveNext
Next
rsRecord.Close
rsConst.Close
Set rsRecord = Nothing
Set rsConst = Nothing
%>
| 【返回首页】 |
第
<%
For intCounter = 1 To intPageCount
If intCounter = intCurPage Then
%>
<% =intCounter %>
<%
Else
%>
 |
 |
| <% Session("boardid") = "" %>
|
|
 |
|
|
|
|
