訪客留言板

海洋大學永續發展研究社

[歡迎加入討論]

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 & "

" Tab = Tab & "" Tab = Tab & "" Tab = Tab & "" Tab = Tab & "" for k =1 to 10 step 1 if reuser(k) <> "" then Tab = Tab & "" ' Tab = Tab & "" end if next if rememo <> "" then Tab = Tab & "" Tab = Tab & "" end if Tab = Tab & "

" Tab = Tab & Name & "

" Tab = Tab & Email & HomePage Tab = Tab & "

[" & Sex & "][" & Job & "] [回應]

[刪除]

" & 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 %>