66hc_fl.asp

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

<!--#include file="../66hc.asp"--><!--#include file="admin.asp"-->
<card id="main" title="分类管理" >
<p>
数字小的在前面<br/>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [66hc_class] order by [66hc_pid] asc"
rs.open rsstr,conn,1,2

count=rs.recordcount
if count = 0 then response.write("暂无分类<br/>")
response.write("共" & count & "个分类")
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="66hcfl.asp?sb=<%=sb%>&amp;id=<%=rs("66hc_id")%>"><%=rs("66hc_name")%></a>(<%=rs("66hc_pid")%>)<a href="scfl.asp?sb=<%=sb%>&amp;id=<%=rs("66hc_id")%>&amp;url=66hc_fl">删除</a>
<br/>
<%
rs.MoveNext
j=j+1
loop
end if
	if p*jj<count then response.write("<a href='66hc_fl.asp?sb=" &sb & "&amp;p=" & p+1 & "'>下页</a>&nbsp;")
	if p>1 then response.write("<a href='66hc_fl.asp?sb=" &sb & "&amp;p=" & p-1 & "'>上页</a>")

response.write "<br/>----------<br/><a href='tjfl.asp?sb="&sb&"'>增加分类</a><br/>"
%>
----------<br/>
注意：删除分类会同时删除下级站点！<br/>
<a href="d_i.asp?sb=<%=sb%>">返回管理首页</a><br/>
<a href="/?sb=<%=sb%>">返回网站首页</a><br/>
报时:<%=time%>
</p></card></wml>