海洋大學 永續發展研究社 [歡迎加入討論] |
NTOU Sustainable Development Research Society |
% Page = Request("Page") If Page = "" Or Page = "0" Then Page = "1" End If If Page > "1" Then Response.Write "
" End If Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("GBook.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select *From 訪客留言板 Order By 留言時間 DESC", conn, 3 If rs.EOF Then Else Size = 10 * Page Read = Size - rs.RecordCount PSize = Size - 10 If PSize =< rs.RecordCount Then For i = 1 to PSize rs.MoveNext Next End If If Read > 0 And Read < 10 Then For i = 1 to 10 - Read RsToGBook rs rs.MoveNext Next Else If Read > 10 Then rs.MoveFirst For i = 1 to 10 RsToGBook rs rs.MoveNext Next Else For i = 1 to 10 RsToGBook rs rs.MoveNext Next End If End If End If Sub RsToGBook( rs ) Email = rs("電子郵件") HomePage = rs("網頁位址") Name = rs("姓名") Sex = rs("性別") Job = rs("職業") Memo = rs("留言內容") MemoTime = rs("留言時間") Rememo = rs("版主回應") dim reuser(11) dim redata(11) for k=1 to 10 step 1 freuser = "回應者" & k fredata = "回應內容" & k reuser(k)=rs(freuser) redata(k)=rs(fredata) next If Email = "" Then Email = "" Else Email = "" End If If HomePage = "http://" Or HomePage = "" Then HomePage = "" Else HomePage = "" End If Tab = Tab & "
| ||||
" & Memo & " | ||||
[" & MemoTime & "] | ||||
" & reuser(k) & "回應:"&redata(k)&" | ||||
" & redata(k) & " | ||||
[版主回應] | ||||
" & Rememo & " |
" Rememo="" Response.Write Tab End Sub Response.Write "
" If Page - rs.PageCount = 0 then Else Response.Write "下一頁" End If %>