<% IF Not IsNULL(Session("MsgMgrID")) And Session("MsgMgrID")<>"" Then %> <% Else %> <% End IF %> 我要發言 登出管理 登入管理     <% PageRecNum = 10 intRecCnt = 0 SQLSeg = "select * from GuestBook order by id desc" Set rs0 = Server.CreateObject("ADODB.Recordset") rs0.Open SQLSeg, Conn, 3, 1 If Not(rs0.EOF And rs0.BOF) Then rs0.PageSize = PageRecNum NowPage = Cint(Request("page")) '現在頁數 IF 0=NowPage Then NowPage = 1 page = Cint(rs0.PageCount) If NowPage>page Then NowPage = page rs0.AbsolutePage = NowPage End IF If Not(rs0.EOF And rs0.BOF) Then IF rs0.PageCount = "1" Then intIsUpDisable = "disabled" intIsDownDisable = "disabled" ElseIF NPage = "1" Then intIsUpDisable = "disabled" intIsDownDisable = "" ElseIF CInt(page)=CInt(NowPage) Then intIsUpDisable = "" intIsDownDisable = "disabled" Else intIsUpDisable = "" intIsDownDisable = "" End IF Else intIsUpDisable = "disabled" intIsDownDisable = "disabled" End IF While Not(rs0.EOF or intRecCnt>=Cint(PageRecNum)) intRecCnt = intRecCnt+1 %> <%=rs0("Title")%> <% IF Not IsNULL(Session("MsgMgrID")) And Session("MsgMgrID")<>"" Then %> ">回應  ;document.frm.submit()">刪除 <% End IF %> <%=rs0("Name")%>   <% IF Not(IsNULL(rs0("Reply")) Or rs0("Reply")="") Then %> <% End IF %> <%If Not(IsNULL(rs0("Homepage")) Or rs0("Homepage")="") Then%>" target="_blank"> <%End IF%> <%If Not(IsNULL(rs0("MSN")) Or rs0("MSN")="") Then%>"> <%End IF%> <%If Not(IsNULL(rs0("Email")) Or rs0("Email")="") Then%>"> <%End IF%> <%=rs0("Content")%> ----- <%=rs0("PostTime")%> ------ 管理員回應  <%=rs0("Reply")%> ----- <%=rs0("ReplyTime")%> ------   <% rs0.MoveNext Wend %> > <% For i = 1 TO page IF CInt(NowPage)=i Then IsOptSlt = "selected" Else IsOptSlt = "" End IF %> ><%=i%> <% Next %> > Copyright c 2004 Flash Forward Entertainment. All Rights Reserved. TEL: 02-2311-7275 WWW.FFE.COM.TW

<% dbClose() %>