www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_gb.asp
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<%
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)
if not rs.eof then
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 valign="top" class="s<%=i mod 2%>">
<table border="0" cellpadding="5" cellspacing="0" width="100%" id="table1">
<tr><td rowspan="2" width="60"><p align="center"><%=rs("name")%><br><img border="0" src="../img/photo/<%=rs("photo")%>.gif"></td>
<td>
<img border="0" src="../Img/gb_mail.gif" width="13" height="11"> <a href="ad_dysend.asp?tmail=<%=rs("email")%>"><%=rs("email")%></a>
<img border="0" src="../Img/gb_oicq.gif" width="13" height="11"> <%=rs("oicq")%> <b><font color="#FF0000">IP:</font></b><%=rs("ip")%>
[<a href="ad_gbpost.asp?action=del&id=<%=rs("id")%>">删除此留言</a>][<a href="ad_gbpost.asp?action=re&id=<%=rs("id")%>">回复留言</a>]
</td></tr>
<tr><td><p style="line-height: 150%; margin: 0;"><%=rs("content")%> <font color="#D0D0D0">(<%=rs("riqi")%>)</font><br>
<%if rs("re")<>"" then%><b><font color="#FF0000">Re:</font></b><font color="#3391BD"><%=rs("re")%></font><%else%><%end if%></td></tr></table>
</td></tr>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>
<p>第<%=page%>页/共<%=totalpage%>页 <%for i=1 to totalpage%>
<a href="ad_gb.asp?page=<%=i%>"><%if i=page then%><font color=#FF0000><%=i%></font><%else%><%=i%><%end if%></a>
<%next%><!--#include file="ad_bottom.asp"-->