guestbookadmin.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<!--#include file="../Include/Config.asp"-->
<link rel="stylesheet" href="../Css/Admin.css" type="text/css" />
<link rel="stylesheet" href="../Css/Style.css" type="text/css" />

<div class="boxContent">

<table width="758" align="center" cellpadding="0" cellspacing="0" id="SurveyAdmin"  class="table">
<tr>
<th>客户留言</th>
</tr>
<%
dim  sql,page_size,rscount,item_count,page_num,page_now,i
page_size=7
set rscount=conn.execute("select count(*) as item_count from [GuestBook]")
	item_count=rscount("item_count")
	rscount.close
    page_num=item_count\page_size 
sql="select * from [GuestBook] order by GB_date desc"
rs.open sql,conn,1,3
if not rs.eof then
	rs.pagesize=page_size
	page_now=1
	if trim(request.QueryString("page"))<>"" then
	page_now=cint(trim(request.QueryString("page")))
	end if
	if page_now>rs.pagecount or page_now<0 then
	page_now=1
	end if
	rs.absolutepage=page_now
  i=1
  while not rs.eof and i<page_size+1
%>
<tr>
<td>
<table width="100%" cellpadding="0" cellspacing="0" id="guestBook">
<tr>
<td width="13%" rowspan="2" valign="top" class="touXiang"><img src="../Images/nobody.gif" vspace="0" align="bottom" />
<div class="name"><%=rs("GB_user")%></div>
</td>
<td width="87%" height="50" class="guestBookContetn"><%=rs("GB_content")%></td>
</tr>
<tr>
  <td height="20" class="info">时间：<%=rs("GB_date")%>&nbsp;&nbsp;
  <%
  if not rs("GB_email")="" then
  response.Write("<a href=""mailto:"&rs("GB_email")&"""><img src=""../Images/email.gif""/></a>&nbsp;&nbsp;")
  end if
  if not rs("GB_qq")="" then 
  response.Write("<a href=""tencent://message/?uin="&rs("GB_qq")&"&Site="&siteName&"&Menu=yes""><img src=""../Images/qq.gif""/></a>&nbsp;&nbsp;")
  end if
  if not rs("GB_phone")="" then 
  response.Write("联系电话："&rs("GB_phone"))
  end if
  
  %></td>
</tr>
</table>
</td>
</tr>
<%
   rs.movenext
   i=i+1
   wend
else%>
<tr>
<td>
<table width="758" align="center" cellpadding="0" cellspacing="0" id="guestBook" class="table">
<tr>
<td>暂时没有留言，请添加</a></td>
</tr>
</table>
</td>
</tr>
<%
end if
%>
<tr>
<td>
<table width="758" align="center" cellpadding="0" cellspacing="0" id="guestBook" class="table">
<tr>
<td align="right">
<div id="bottom_pagebox" style="padding-right:25px; text-align:right;">
当前第<%=page_now%>页
  <%if page_now=1 then%>首页
  <%else%><a href="GuestBookAdmin.asp?page=1">首页</a>
  <%end if%>
  <%if page_now>1 and rs.pagecount>1 then%>
  <a href="GuestBookAdmin.asp?page=<%=page_now-1%>">上一页</a>
  <%else%>上一页
  <%end if%>				
  <%if page_now<rs.pagecount then%> 
  <a href="GuestBookAdmin.asp?page=<%=page_now+1%>">下一页</a>
  <%else%>下一页
  <%end if%>				
  <%if page_now<>rs.pagecount then%> 
  <a href="GuestBookAdmin.asp?page=<%=rs.pagecount%>">尾页</a>
  <%else%>尾页
  <%end if%>
  共<%=rs.pagecount%>页/<%=item_count%>篇
</div>
</td>
</tr>
</table>
</td>
</tr>


<%
rs.close
%>
</table>
</div><!--<div id="boxContent">-->