<%
Dim intStart
Dim intPageSize,intPageCount,intCurrentPage,intRecordTotal
intPageCount = 0
intCurrentPage = 0
SQL = "SELECT * FROM [News] WHERE KindID = " & ID & " ORDER By ID DESC"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
If Not RS.EOF Then
intPageSize = 28
intCurrentPage = getPageID(Request.QueryString("pageid"))
intRecordTotal = RS.RecordCount
intPageCount = getPageCount(intRecordTotal / intPageSize)
If intCurrentPage > intPageCount Then intCurrentPage = intPageCount
intStart = intPageSize * (intCurrentPage - 1)
RS.Move(intStart)
I = 1
Do While Not RS.EOF And Not I > intPageSize
%>
changzhou newswire
<%
I = I + 1
RS.MoveNext
Loop
End If
RS.Close()
Set RS = Nothing
%>
