<%@ Language=VBScript %> <% dim ASPBook dim StrSQL if not isempty(request("page")) then Mypage=cint(Request("page")) else Mypage=1 end if set ASPBook = Server.CreateObject("ADODB.Recordset") StrSQL = "Select * from guest order by ID desc" ASPBook.open StrSQL,conn,1,1 ASPBook.pagesize=Mypagesize maxpages=cint(ASPBook.pagecount) totalsize=cint(Mypagesize) ASPBook.absolutepage=Mypage GuestTotal=ASPBook.RecordCount if cint(Mypage) >1 then if cint(Mypage) > maxpages then MESSAGE("
  • 没有你所想要的页数！
    • ") Response.End end if end if %> <%=Guestname%>
    <% If ASPBook.Eof or ASPBook.Bof then Response.Write "" Response.Write "" else i = 0 total = 0 do until ASPBook.Eof or total = totalsize %> <%END IF%>
      分页： <%PageLink%> 总留言数 : <%=MyPageSize%>/<%=GuestTotal%>. 页数 : <%=cint(Mypage)%>/<%=maxpages%> 
    对不起，目前还没有任何留言！
    姓名：

    <%=ASPBook("名字")%>

    留言内容

    [">站长删除] [">站长回复] [签写留言]
    <%if ASPBook("性别") = "boy" then%>

    先生 <%elseif ASPBook("性别") = "girl" then%> 女士 <%end if%>

    " BORDER="0" ALIGN="ABSCENTER"> 留言于： <%=ASPBook("日期")%>　
    　 内容是：<%=ASPBook("留言")%> <%if ASPBook("Reply")<>"" then%>
    <%end if%>
    " BORDER="0" ALIGN="ABSCENTER"> 回复于： <%=ASPBook("Reply_Date")%>
    站长说：<%=ASPBook("Reply")%>
    来自：

    <%=ASPBook("来自")%>

    <%if ASPBook("邮件")<>"" then%>

    ">邮箱 <%end if%> <%if ASPBook("主页")<>"" and ASPBook("主页")<>"http://" then%> " Target="_blank">主页<%end if%> <%if ASPBook("QQ")<>"" then%> QQ：<%=ASPBook("> <%=ASPBook("QQ")%> <%end if%>　IP: <%=ASPBook("><%if ASPBook("系统")<>"" then%>　系统: <%=ASPBook("><%end if%>　top
    <% ASPBook.MoveNext i = i + 1 if i = 2 then i = 0 total = total + 1 loop %>
      分页： <%PageLink%> 总留言数 : <%=MyPageSize%>/<%=GuestTotal%>. 页数 : <%=cint(Mypage)%>/<%=maxpages%> 

    　

     书写留言（*为必填项）

    *姓名:

    		 " name="name" size="10" maxlength="15"><% if request.cookies("UserInfo")("Booksex") = "boy" then Checkthis0 = "CHECKED" elseif request.cookies("UserInfo")("Booksex") = "girl" then Checkthis1 = "CHECKED" else Checkthis0 = "" Checkthis1 = "" end if %> 男: checked>  女:>
     来自: " NAME="place" SIZE="24" MAXLENGTH="15">

     邮箱:

    		 " name="email" size="9" maxlength="50"> QQ: " NAME="qq" SIZE="9" MAXLENGTH="12">
     主页: "" then response.write request.cookies("UserInfo")("Bookurl") else response.write "http://" end if%>" NAME="url" SIZE="24" MAXLENGTH="70">
    *验证: " NAME="val" SIZE="9" MAXLENGTH="15"> 输入“<%=Validate%>”
     表情:         
            
            
         
    *留言:
    留言系统的 HTML 功能已关闭。
    　  
    <% function PageLink PageShowSize = 10 Scriptname=Request.Servervariables("script_name") PageNextSize=int((MyPage-1)/PageShowSize)+1 Pagetpage=int((GuestTotal-1)/MyPageSize)+1 if Maxpages > 1 then if PageNextSize >1 then PagePrev=PageShowSize*(PageNextSize-1) Response.write "[<<]-" end if if Mypage-1 > 0 then Prev_Page = MyPage - 1 Response.write "[<] " end if if maxpages>=PageNextSize*PageShowSize then PageSizeShow = PageShowSize else PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1) end if for PageCounterSize=1 to PageSizeShow PageLink = (PageCounterSize+PageNextSize*10)-10 if PageLink <> cint(Mypage) then Response.write "[" & PageLink & "] " else Response.Write PageLink & " " end if next if Mypage+1 <=Pagetpage then Next_Page = MyPage + 1 Response.write "[>]" end if if maxpages > PageShowSize*PageNextSize then PageNext = PageShowSize * PageNextSize + 1 Response.write "-[>>]" end if else Response.write "[1]" end if end function set ASPBook=nothing conn.Close set conn = nothing %>