<!--#include file="inc_top.asp" -->
<table width="761" bgcolor=#f7f7f7 align="center" cellpadding="0" cellspacing="0" class="pian">
<tr><td width=760>
<table width="720" align="center" cellpadding="0" cellspacing="0">
<tr>
<%	set rs = conn.execute("select * from lb order by lbid")
	j=0
	while not rs.eof%>
<TD height=24 width=144><font color=#ff3300>＋</font>&nbsp;<a href="?lbname=<%=rs("lbname")%>"><%=rs("lbname")%></a></td>
	<% rs.movenext
	j=j+1
	if j mod 5=0 then response.write "</tr><tr>"
	wend
	rs.close
	set rs=nothing %>
</tr>
</table></td></tr></table>
<table width="761" bgcolor="#efefef" align="center" cellpadding="0" cellspacing="0" class="pian">
	<% 
	lbname=nohack(Request("lbname"))
	if lbname="" or isempty("lbname") then
	set rs = conn.execute("select * from zhuanti_g where cang=0 order by sj desc")
	else
	set rs = conn.execute("select * from zhuanti_g where cang=0 and lbname='"&lbname&"' order by sj desc")
	end if
	if rs.eof then
		response.write "<font color=red>本类暂时没有专题</font>"
		rs.close
		set rs=nothing
	else
		rs.pagesize = 20
		if request("page")=""  or isempty(request("page")) then
		page = 1
		else
		page=cint(request("page"))
		end if
		if page>rs.pagecount then
		page=rs.pagecount
		end if
		if not rs.BOF then
		Rs.Move Rs.PageSize*(page-1)
		end if
		i=1
%>
        <tr height="30" valign="middle"> 
	<td width=150 align=center bgcolor="#FF9900"><font color=#FFFFFF>专题类别</font></td>
	<td width=460 align=center bgcolor="#FF9900"><font color=#FFFFFF>专题名称</font></td>
	<td width=150 align=center bgcolor="#FF9900"><font color=#FFFFFF>专题加入时间</font></td>
	</tr>
	<tr><td height=1 colspan=3 bgcolor=#ff9900></td><tr>
<%	do while not rs.eof and i<=rs.pagesize %>
	<tr height="30" valign="middle" bgcolor="#FFFBF7">
	<td width=150>&nbsp;&nbsp;&nbsp;<img src="image/ring01.gif" width="11" height="11">&nbsp;<a href=allsubject.asp?lbname=<%=rs("lbname")%>><%=rs("lbname")%></td>
	<td width=460>&nbsp;<a href=subject.asp?id=<%=rs("id")%> target=_blank><%=rs("bt")%></a></td>
	<td width=150>&nbsp;<%=rs("sj")%></td>
	</tr>
<%
	rs.movenext
	i=i+1
	loop
%>

</table>
<table width="760" height="30" align="center" cellpadding="0" cellspacing="0">
        <form name=form method=post action=?lbname=<%=request("lbname")%>>
          <tr> 
            <td valign="middle" align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <%
if rs.recordcount<>0 then
if page-1 mod 10=0 then
		p=(page-1) \ 10
	else
		p=(page-1) \ 10
	end if

	response.write " >> 分页："

	if p*10>0 then response.write "<a href='?lbname="&request("lbname")&"&page="&p*10&"' title=上十页>[&lt;&lt;]</a>   "
    uming_i=1
	for ii=p*10+1 to P*10+10
		   if ii=page then
	          response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> "
		   else
		      response.write "<a href='?lbname="&request("lbname")&"&page="&ii&"'>["+Cstr(ii)+"]</a>   "
		   end if
		if ii=rs.pagecount then exit for
		 uming_i=uming_i+1
	next
	if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?lbname="&request("lbname")&"&page="&ii&"' title=下十页>[&gt;&gt;]</a>   "
response.write(" 　跳页：<input type=text name=page size=2 maxlength=3 class=wenbenkuang> <input type=submit name=Submit2 value=Go class=go-wenbenkuang>")
end if
rs.close
set rs=nothing%> </td>
          </tr>
        </form>
</table>

<% end if%>
<table width="0" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
  
</table>
<!--#include file="inc_end.asp" -->