<% Dim Page Dim PageSize Dim AbsolutePosition PageSize = 5 set conn = GetSQLServerConnection() SQL = "Select * from ValentineMsgBoard order by PostDate desc" set rs = GetSQLServerRecordset( conn, SQL) rs.PageSize = PageSize If Request("Page") = "" or CInt(Request("Page")) < 1 then Page = 1 AbsolutePosition = 1 ElseIf CInt(Request("Page")) > rs.PageCount then Page = rs.PageCount AbsolutePosition = ((Page-1) * 5) + 1 Else Page = Request("Page") AbsolutePosition = ((Page-1) * 5) + 1 End If %> Youth-2000.com [Teen天情人節]
 
 
 
 
 
 
 
 
 
 
 
<% '// --- SHOW THE VISITOR's MESSAGE WHICH ORDER BY POST DATE If Not rs.EOF then rs.AbsolutePosition = AbsolutePosition For i = 1 to PageSize If Not rs.EOF then %> <% rs.MoveNext End If Next End If %>
現在正睇緊第 <%=page%> 頁 〔上一頁〕||〔下一頁〕
 
宣言代號：
 ')"><%=rs("Title")%>
幾時發表：
 ')"><%=rs("PostDate")%>
發表者：
 ')"><%=rs("FromName")%>
跳至第：
<% For i = 1 to rs.PageCount Response.Write "" & FormatNumber(i) & "  " If (i mod 20) = 0 Then Response.Write "
" End If Next rs.Close set rs = Nothing %>
   
會員 〔如是會員，請用登入名稱〕 非 會員
發表宣言者：
向誰發表：
宣言代號：
 
愛的宣言
 
 
請選擇其中一款宣言牌
     
 
 
   
<% Function Formatnumber(num) If CInt(num) < 10 Then FormatNumber = "0" & num Else FormatNumber = num End If End Function %>