|
|
<% If N <> -1 Then%>
<% For i = 0 To N%>
| |
<%=FormatDateTime(I1b_startdate(i),2)%>
至 <%=FormatDateTime(I1b_enddate(i),2)%>
|
 |
|
|
|
|
<% Next %>
|
|
<%If PageID <> 1 And PageCount > 5 Then%>
<%End If%>
<% If (PageID Mod 10) <> 0 Then
'Fix是取整數但並不四捨五入
num = Fix(PageID / 10) + 1
Else
num = Fix(PageID / 10)
End If
'num1區塊開頭---num2區塊結尾 例 1 - 10
num1 = ((num - 1) * 10) + 1
num2 = num * 10
If num2 > PageCount Then
num2 = PageCount
End If
'------------判斷是否最後區塊------------
If (PageCount Mod 10) <> 0 Then
'num3判斷是否最終5倍數的區塊
num3 = Fix(PageCount / 10) + 1
Else
num3 = Fix(PageCount / 10)
End If
'------------判斷是否最後區塊-------------
%>
<% If num <> 1 Then%>
[上10頁]
<% End If%>
<%
For j = num1 To num2
If j = CInt(PageID) Then
%>
[<%=j%>]
<%Else%>
<%=j%><%End If%>
<%Next%>
<%if num3<>num then%>
[下10頁]
<%end if%>
<%If PageID <> PageCount Then%>
<%End If%>
<%Else%>
目前沒有資料…
<%End If%>
|
|
|
|
|