<% Dim Plus Set Plus = New Cls_Plus Plus.Open("guestbook") ' 打开配置文件 ' 留言显示 Dim Page Page = Request("p") If Len(Page) = 0 Or Not IsNumeric(Page) Then Page = 1 If Page < 1 Then Page = 1 Page = int(Page) If Len(Session("Guestbook_User")) < 1 Then Session("Guestbook_User") = "Guest" Dim Rs Set Rs = DB("select [User],[IP],[Time],[Content],[ReComment] From [{pre}guestbook] Where [State]=1 Order by [ID] desc",2) Dim GuestBook,GuestBookPageList Dim Poster,Repost,UserIP Poster = Plus.Lang("js-poster") Repost = Plus.Lang("js-repost") If Not Rs.Eof Then Rs.Pagesize = Plus.Config("pagesize") Rs.absolutePage = Page Dim i For i = 1 to Rs.Pagesize If Rs.eof Then Exit For UserIP = Split(Rs(1),".") GuestBook = GuestBook & "

" & Vbcrlf GuestBook = GuestBook & "

" & Rs(0) & "(" & UserIP(0) & "." & UserIP(1) & "." & UserIP(2) & ".*) " & Poster & "" & Rs(2) & "

" & VbCrlf GuestBook = GuestBook & "

" & Replace(Replace(Rs(3),Vbcrlf,""),"""","\""") & "
" & VbCrlf If Len(Rs(4))>0 Then GuestBook = GuestBook & Repost & "" & Replace(Replace(Rs(4),Vbcrlf,""),"""","\""") & "" & VbCrlf End If GuestBook = GuestBook & "

" & VbCrlf GuestBook = GuestBook & "

" & VbCrlf Rs.MoveNext Next For i = 1 to Rs.Pagecount If Page = i Then GuestBookPageList = GuestBookPageList & "" & i & "" Else GuestBookPageList = GuestBookPageList & "" & i & "" End If Next End If Dim TPL Set TPL = New Cls_Template TPL.Load("plus_guestbook.html") TPL.Parser TPL.Content = Replace(TPL.Content,"{url}","index.asp") TPL.Content = Replace(TPL.Content,"{title}","留言板") TPL.Content = Replace(TPL.Content,"{guestbooks}",RS.RecordCount) TPL.Content = Replace(TPL.Content,"{pagelist}",GuestBookPageList) TPL.Content = Replace(TPL.Content,"{contentmax}",Plus.Config("contentmax")) TPL.Content = Replace(TPL.Content,"{comment}",GuestBook) Response.Write RewriteRule(TPL.Content) Rs.Close Conn.CLose Set Conn = Nothing Set TPL = Nothing Set Plus = Nothing %>