gb.asp

凡人网络购物系统 v8.0 中文版

<!--#include file="top.asp"-->
<div align="center">
<table width=980 border=0 cellpadding=0 cellspacing=0 bgcolor="#FFFFFF" height="100">
<tr><td width=181 align="center" valign="top"><!--#include file="log.asp"--><!--#include file="inhelp.asp"--></td>
<td valign="top" align="center">
<table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="98%"> 
<tr><td width="100%" height="30"><a href="index.asp">主页</a> - 留言簿</td></tr>
<tr><td width="100%"> 
<table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="92">
<tr><td width="100%" colspan="2" bgcolor="#F6F6F6" align="right"><a href="gb_write.asp"><img border="0" src="img/gb_addnew.gif"></a></td></tr>
<%user_name=Request.Cookies("venshop")("user_name")
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_gb order by id desc"
rs.open sql,conn,1,1
page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1%>
<tr><td width="100%" colspan="2" height="1" background="Img/gb_bg.gif"></td></tr>
<tr><td width="100%" colspan="2" height="5"></td></tr>
<tr><td width="18%" rowspan="2" height="56" valign="top" class="jnfont"><p align="center"><%=rs("name")%><br><img border="0" src="img/photo/<%=rs("photo")%>.gif"></td>
    <td width="82%" height="21">
<a href="mailto:<%=rs("email")%>" title="发邮件到：<%=rs("email")%>"><img border="0" src="img/gb_mail.gif"></a>
<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("oicq")%>&Site=<%=sitename%>&Menu=yes><img border="0" src="img/gb_oicq.gif" alt="oicq:<%=rs("oicq")%>"></a>
</td></tr> 
<tr><td width="82%" height="31"><%=rs("content")%><font color="#D0D0D0">(<%=rs("riqi")%>)</font><br><br>
<%if rs("re")<>"" then%><b><font color="#FF0000">Re:</font></b><font color="#3391BD"><%=rs("re")%></font><%else%><%end if%>
</td></tr>
<%rs.movenext   
loop
rs.close
set rs=nothing%>
</table></td></tr>
<tr><td width="100%" background="Img/gb_bg.gif" height="1"></td></tr>
<tr><td height="23">第<%=page%>页/共<%=totalpage%>页&nbsp;&nbsp;
<%for i=1 to totalpage%>
<a href="gb.asp?page=<%=i%>"><%if i=page then%><font color=#FF0000><%=i%></font><%else%><%=i%><%end if%></a>
<%next%></td></tr></table>
<img border="0" src="Img/comp.GIF" height="10"></td></tr></table></div><!--#include file="copy.asp"-->