gb.asp

if you want it,call me.

<!--#include file="top.asp"--><table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
    
  <td width="180" valign="top"> <br>
    <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
        <td width="180" valign="top"><iframe src="login.asp" frameborder="0" scrolling="no" width="170" height="130"></iframe><br>
          <script src="class.js"></script>
          <br>
          <!--#include file="search.htm"-->
        </td>
    <td width="580" valign="top"><table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr  class="tabbgcolorli"> 
              <td>　☆ 留言反馈　　　　　　　　　　　　　　　　　　　　　　　　　　　　<a href="addgb.htm">我要留言！！</a></td>
        </tr>
      </table>
          <table width="580" height="42" border="0" cellpadding="0" cellspacing="0">
            <tr> 
              <td valign="top" class="border1"> 
                <%

   page=request.querystring("page")
  if page="" then page=1
  if not(isnumeric(page)) then page=1
  if page<1 then page=1
  page=int(page)
								
			set rs=server.createobject("adodb.recordset")
			sql="select * from gb where check=true order by id desc"
			rs.open sql,conn,1,1
			if rs.eof then
			response.write"<br><br><div align=center>暂时没有留言!</div><br><br>"
			else
			rs.pagesize=6
      totalrec=rs.recordcount
      totalpage=rs.pagecount
      if page>totalpage then page=totalpage
      rs.absolutepage=page
      i=0
	   dim id(),code(),contact(),content(),reply(),date1()
      do while not rs.eof and (i<rs.pagesize)
      i=i+1
      redim preserve id(i),code(i),contact(i),content(i),reply(i),date1(i)
	  id(i)=rs("id")
      code(i)=rs("code")
      contact(i)=rs("contact")
      content(i)=rs("content")
	  reply(i)=rs("reply")
	  date1(i)=rs("date")
      rs.movenext
      loop
  rs.close
			%>
			
                <br><% 
				  for i=1 to ubound(id)%> 
                <table width="90%" height="56" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D1D9DA">
                  <tr bgcolor="#FFFFFF"> 
                    <td width="24%">留言者:<%=code(i)%></td>
                    <td width="76%">留言内容:<%=content(i)%></td>
                  <tr bgcolor="#FFFFFF"> 
                    <td colspan="2">本站对您的回复: 
                      <%if reply(i)="" then%>
                      暂时无回复内容 
                      <%else%>
                      <%=reply(i)%> 
                      <%end if%>
                      &nbsp;</td>
                </table>
                <br>
                <%
			next
			%>
                <br>
                <table border="0" width="507" cellspacing="0" height="10" align="center">
                  <tr> 
                    <td> <p align="center">共<font color=red><%=totalpage%></font>页　 
                        第<%=page%>页 <font color=666666> 　 
                        <%if page-1>0 then%>
                        <a href="gb.asp?page=<%=page-1%>">上一页</a> 
                        <%else%>
                        <font color=666666>上一页</font> 
                        <%end if%>
                        　 
                        <%if page+1<=totalpage then%>
                        <a href="gb.asp?page=<%=page+1%>">下一页</a> 
                        <%else%>
                        <font color=666666>下一页</font> 
                        <%end if%>
                        　共<font color=red><%=totalrec%></font>条记录 </font></p></td>
                  </tr>
                  <tr> 
                    <td></td>
                  </tr>
                </table>
                <br>
                <%
				end if
set rs=nothing
conn.close
set conn=nothing
%>
              </td>
            </tr>
          </table> </td>
  </tr>
</table>
    <br>
<!--#include file="bottom.htm"-->