<% Dim Page Dim PageSize Dim AbsolutePosition dim cid,fromname PageSize = 5 set conn = GetSQLServerConnection() cid = request("cid") if cid <> "" then set rs = GetSQLServerRecordset(conn, "select * from ValentineMsgBoard where cid="&cid) if ( rs.recordcount > 0 ) then fromname = rs("fromname") end if end if 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-ONLINE.COM [Teen天情人節]
 
<% if cid <> "" then %> 打開 <<%=fromname%>> 給你的愛的宣言 <% end if %>
<% '// --- 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 18) = 0 Then Response.Write "
" End If Next rs.Close set rs = Nothing %>
   
會員 〔如是會員，請用登入名稱〕 非 會員
發表宣言者：
向誰發表：
宣言代號：
 
愛的宣言
 
 
請選擇其中一款宣言牌
     
 
 
   
<% Function Formatnumber(num) If clng(num) < 10 Then FormatNumber = "00" & num Elseif clng(num) < 100 then FormatNumber = "0" & num else FormatNumber = num End If End Function %>