
<!--#include file="vvbb.asp"-->
<!--#include file="../conn.asp"-->
<!--#include file="../admin.asp"-->
<%Call head()
Call saycarda("商场-公告管理")%>


<a href="tjgg.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">添加公告</a><br/>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from shop_gg where id<>1 order by id desc"
rs.open rsppl,connshop,1,2
if rs.eof then 
response.write("暂无内容<br/>")
else
pag=10
dim page,maxpage
page=cint(request.QueryString("page"))
if page="" or page<1 then page=1
maxpage=int((rs.recordcount-1)/pag)+1
if page>maxpage then page=maxpage

rs.Move((page-1)*pag)
dim l
l=1
do while ((not rs.EOF) and l <=cint(pag))
%>
<a href="gg_gl.asp?id=<%=rs("id")%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fs=<%=fs%>">[管理]</a>.<%=rs("name")%><br/>
<%
rs.MoveNext
l=l+1
loop
end if
if page*pag<rs.recordcount then response.write("<a href='sqgg.asp?fs="&fs&"&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;page=" & page+1 & "'>下一页</a>")
if page>1 then response.write("<a href='sqgg.asp?fs="&fs&"&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;page=" & page-1 & "'>上一页</a>")
%>

<%
rs.close
set rs=nothing
%>
----------<br/>

报时:<%=time%>
<!--#include file="bq.asp"-->
<%Call headsay()%>
