|
64002 雲林縣斗六市大學路3段 123號
Tel
: 886-5-5342601
網頁維護管理員林雅馨
中區英語教學資源中心 ext:3292
E-mail:etlrc@yuntech.edu.tw
|
|
| |
|
 |
|
<%
'================================================================================================================
Dim SQL, RS, counter, ii
Dim SumPage, PriPage, NextPage
counter = 0
SQL = ""
SQL = SQL & "Select id, id as order_id, re_id , datetimes, nickname, email, myurl, ip, msg from gbook where re_id = 0 "
SQL = SQL & "union "
SQL = SQL & "Select id, re_id as order_id, re_id , datetimes, nickname, email, myurl, ip, msg from gbook where re_id <> 0 "
SQL = SQL & "order by order_id desc, re_id , datetimes desc "
DBOpen()
Set Rs=server.createobject("adodb.recordset")
Rs.Open SQL,Conn,1,1
SumPage = Fix(RS.RecordCount / gPageCount)
If (RS.RecordCount mod gPageCount) <> 0 Then SumPage = SumPage + 1
If isNumeric(Request("page")) and Not isNull(Request("page")) Then NowPage = cint(Request("page"))
If NowPage = 0 Then NowPage = 1
If NowPage > SumPage Then NowPage = SumPage
PriPage = IIF(NowPage = 1, 1, NowPage-1)
NextPage = IIF(NowPage >= SumPage, SumPage, NowPage+1)
DO While Not RS.EOF
counter = counter + 1
If counter >= (NowPage * gPageCount) - (gPageCount - 1) Then
If RS("re_id") = 0 Then
%>
<%
Else
%>
<% End If%>
<%
End If
If counter = (NowPage * gPageCount) Then
Exit DO
End If
RS.MoveNext
Loop
%>
<%End If%>
<%
DBClose()
'====================================================================================================================================================================
%>
|
|
 |
|
