<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="top.asp"-->
<html>

<head>


<title>3鸟设社[v1.2色彩连视版]留言本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
   dim MaxPerPage
   dim sql 
   dim rs
   dim gstBookID
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
%>
<link rel="stylesheet" type="text/css" href="css/style.css">
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->

function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="760" height="528" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
      <td height="6" colspan="3"></td>
    </tr>
    <tr>
      
    <td width="22" height="486" background="images/bg.gif"></td>
      
    <td width="718" height="486" valign="top"><div align="center"> 
        <table width="560" border="0" align="center" cellpadding="0" cellspacing="0"  bordercolor="#999999">
          <tr> 
            <td width="500"><span > </span> <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" " height="20">
                <tr > 
                  <td width="250" height="20" class="font2"> <div align="center" class="EFONT" style="width: 235; height: 17"></div></td>
                  <td width="119" class="font2"><a href="http://xicaojie.com" target="_blank"></a>　 
                    <div align="left"><font color="#CCCCCC" size="2"></font><font color="#CCCCCC"> 
                      </font></div>
                    <div align="left"></div></td>
                  <td width="80" valign="bottom" class="font3"  ><font color="#0000FF"><b><font color="#FF6600"><a href="guestbook.asp"><img src="IMAGES/ly.gif" width="79" height="19" border="0"></a></font></b></font></td>
                  <td width="80" valign="bottom" class="font3"  > <div align="center"><a href="manage.asp"><img src="IMAGES/gl.gif" width="79" height="19" border="0"></a></div></td>
                </tr>
              </table>
              <span > 
              <%    
set rs=server.createobject("adodb.recordset")    
sql="select * from book order by id desc"    
rs.open sql,conn,1,1    
if rs.eof and rs.bof then %>
              </span> <div align="center" ><font color="#0099CC" >还 没 有 任 何 留 
                言</font> 
                <% else                
   rs.pagesize=8             
   totalPut=rs.recordcount '记录总数             
   totalPage=rs.pagecount             
   MaxPerPage=rs.pagesize             
      if currentpage<1 then             
          currentpage=1             
      end if             
      if currentpage>totalPage then             
          currentpage=totalPage             
      end if             
   if currentPage=1 then             
      showpages             
      showContent             
      showpages             
    else             
         if (currentPage-1)*MaxPerPage<totalPut then             
         rs.move  (currentPage-1)*MaxPerPage             
         dim bookmark             
         bookmark=rs.bookmark '移动到开始显示的记录位置             
         showpages             
         showContent             
         showpages             
       end if             
   end if             
      rs.close             
end if             
set rs=nothing               
conn.close             
set conn=nothing                 
             
sub showContent             
    dim i             
    dim k             
    k=(totalPut-MaxPerPage*(currentPage-1))+1             
    i=0             
%>
                <%                
       do while not (rs.eof or err)             
         k=k-1             
%>
                <table width="560" border="0" cellspacing="0" cellpadding="0"  align="center">
                  <tr> 
                    <td height="75" class="border2"> <table width="560" border="0" cellspacing="0" cellpadding="0" align="center">
                        <tr > 
                          <td width="105" height="22" align="center" class="font3"><font class="EFONT" color="#33CCFF">No.</font><font class="EFONT"><%=k%></font></td>
                          <td  width="36" valign="middle" bordercolor="1">&nbsp;</td>
                          <td class="font"> <div align="right"> 
                              <p><font color="#0099CC" class="EFONT"> </font><font color="#FF0000" class="titel"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif">Time</font></font><font color="#0099CC" class="EFONT">: 
                                <% =rs("time") %>
                                </font></p>
                            </div></td>
                        </tr>
                        <tr > 
                          <td width="105" align="center" class="font3"><p><img             
    src="<%=rs("face")%>"> </p>
                            <p>[ <%=rs("name")%> ]</p></td>
                          <td  width="36" valign="top" bordercolor="1"><img             
    src="<%=rs("txthead")%>" ></td>
                          <td valign="top" class="font"><%=rs("Memo")%></td>
                        </tr>
                      </table></td>
                  </tr>
                  <tr> 
                    <td> <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" height="18"  >
                        <tr > 
                          <td width="105" height="18" class="titel" >&nbsp;</td>
                          <td width="49" class="titel" > <div align="center" class="EFONT"><a  title="E-mail:[ <%=rs("email")%> ]" href="mailto:<%=rs("email")%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Email</font></a></div></td>
                          <td width="49" class="titel" > <div align="center" class="EFONT"><a title="主页:[ <%=rs("homepage")%> ]" href="<%=rs("homepage")%>" target="_blank"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Homepage</font></a></div></td>
                          <td width="49" class="titel" > <div align="center" class="EFONT" > 
                              <a title="QQ号码:[ <%=rs("oicq")%> ]" href="javascript:;" onClick="MM_popupMsg('QQ号码：[ <%=rs("oicq")%> ]')"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Oicq</font></a></div></td>
                          <td width="291" valign="middle" class="titel"> <div align="right"><font color="#562CAD" class="EFONT"> 
                              <%    if rs("ip")<>""  then  %>
                              </font><font class="EFONT" color="#663300"><span class="titel"></span></font></div>
                            <div align="right"><font class="EFONT" color="#663300"><span class="titel"></span></font><font font color="#0099CC" class="EFONT"> 
                              </font></div></td>
                          <td width="17" valign="middle" class="titel"> <div align="center"><font color="#562CAD" class="EFONT"> 
                              <% end if %>
                              </font></div></td>
                        </tr>
                      </table>
                      <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" >
                        <%             
      if rs("anser")<>"" then%>
                        <tr bordercolor="1" bgcolor="#FFFFFF"> 
                          <td width="107" align="center" valign="middle" class="font1" ><font color="#0099CC"><img src="IMAGES/icefish.gif" width="65" height="25"></font></td>
                          <td width="32" valign="middle" ><img            
    src="<%=rs("adminhead")%>" ></td>
                          <td width="421" class="font1"><%=rs("anser")%></td>
                        </tr>
                        <%end if%>
                      </table></td>
                  </tr>
                </table>
                <span > 
                <%             
    i=i+1             
    if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出             
       rs.movenext             
    loop             
   end sub              
             
sub showpages()             
dim n             
n=totalPage             
%>
                </span> 
                <table border="0" width="560" cellspacing="0" cellpadding="0"  align="center" bgcolor="#cccccc" class="border2" >
                  <tr class="EFONT" BGCOLOR="#FFFFFF" > 
                    <td valign="bottom" width="60"> <div align="center"><font color="#333333" size="1">Pages:</font></div></td>
                    <td valign="bottom" class="EFONT"><font class="EFONT"> <font color="#CCCCCC"> 
                      <font color="#FFFFFF" size="1"> 
                      <%              
   If currentPage <> 1 Then                  
      Response.Write "<A HREF=guest.asp?Page=" & (currentPage-1) & "><font face='宋体' size='1'> <<</font></A> "             
  End If             
%>
                      <%           
 if rs.pagecount <= 8 then           
for i=1 to rs.pagecount           
response.write "[<a href='guest.asp?page="&i&"'>"&i&"</a>]"           
next           
else           
for i=1 to 8           
response.write "[<a href='guest.asp?page="&i&"'>"&i&"</a>]"           
next           
           
end if           
%>
                      <%           
   If currentPage <> rs.PageCount Then             
      Response.Write "<A HREF=guest.asp?Page=" & (currentPage+1) & "><font face='宋体' size='1'> >></font></A> "              
                 
End If             
%>
                      &nbsp;<font color="#333333">&nbsp;&nbsp;Total Pages: &lt;<A HREF=guest.asp?Page=<%=totalPage%>><%=totalPage%></A>&gt;</font></font></font></font></td>
                
                </table>
              </div>
              <%                
end sub              
%>
              <table width="560" border="0" cellspacing="0" cellpadding="0"  align="center" class="border2" height="20">
                <tr valign="bottom" > 
                  <td class="font2"> <div align="center" class="EFONT" ><font color="#0099CC" size="1"><a href="http://3niao.com">http://www.3niao.com</a></font></div></td>
                </tr>
              </table></td>
          </tr>
        </table>
      </div></td>
      
    <td width="20" height="486" background="images/bg.gif"></td>
    </tr>
    <tr>
      <td height="12" colspan="3"><table width="758" border="0" align="center" cellspacing="0">
        <tr> 
          <td height="35" colspan="2" background="images/footbg.gif"> <div align="center">3鸟设社[v1.2色彩连视]留言本 
              www.3niao.com</div></td>
        </tr>
        <tr> 
          <td width="392" background="http://www.3niao.com/v2/down1/images/footgb1.gif">&nbsp;</td>
          <td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
        </tr>
      </table></td>
    </tr>
  </table>