66hc_ym.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#include file="../66hc.asp"--><!--#include file="admin.asp"-->
<card id="main" title="页面管理" >
<p>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [66hc_ym] order by [id] asc"
rs.open rsstr,conn,1,2

count=rs.recordcount
if count = 0 then response.write("暂无页面<br/>")
response.write("共" & count & "个页面<br/>页面内容支持UBB语法")
response.write("<br/>－－－－－<br/>")

jj=8
p=cint(request("p"))
if p="" or p<1 then p=1
maxpage=int((count-1)/jj)+1
if p>maxpage then p=maxpage
   if count > 0 then
rs.Move((p-1)*jj)
dim j
j=1
do while ((not rs.EOF) and j<=Cint(jj))
%>
<%=((p-1)*jj+j)%>.[链接:<a href="66hcym.asp?sb=<%=sb%>&amp;id=<%=rs("id")%>">list.asp?id=<%=rs("id")%></a>]<a href="scym.asp?sb=<%=sb%>&amp;id=<%=rs("id")%>&amp;url=66hc_ym">删除</a>
<br/>
<%
rs.MoveNext
j=j+1
loop
end if
	if p*jj<count then response.write("<a href=66hc_ym.asp?sb=" &sb & "&amp;p=" & p+1 & "'>下页</a>&nbsp;")
	if p>1 then response.write("<a href=66hc_ym.asp?sb=" &sb & "&amp;p=" & p-1 & "'>上页</a>")

response.write "<br/>----------<br/><a href='tjym.asp?sb="&sb&"'>增加页面</a><br/>"
%>
----------<br/>
<a href="d_i.asp?sb=<%=sb%>">返回管理首页</a><br/>
<a href="/?sb=<%=sb%>">返回网站首页</a><br/>
报时:<%=time%>
</p></card></wml>