<!--#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("WrzcNet")("admin_class")<>0 and Request.Cookies("WrzcNet")("admin_class")<>1 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
errmes1="请选择分类："
errmes2="没有任何分类！"
response.write "<table border=""0"" cellpadding=""5"" cellspacing=""0"" class=""st""><tr><td class=sa><b>"
response.write errmes1
response.write "</b></td></tr><tr><td valign=top>"
set rs=server.createobject("adodb.recordset")
sql="select * from WrzcNet_sort order by sort_xu DESC,sort_id DESC"
rs.open sql,conn,1,1
xx=0
do while not rs.eof
xx=xx+1
id=rs("sort_id")
sort_name=replace(replace(replace(rs("sort_name"),"'","")," ",""),"""","")
response.write "<table cellspacing=0 cellpadding=0 width=100%  border=0 class=""s"&int(xx mod 2)&""">"
response.write "<tr height=22><td valign=top><p style='line-height: 150%; margin-top: 5; margin-bottom: 5'><b>"
response.write "<a href=ad_addhw.asp?sort_id="&rs("sort_id")&"&nsort_id=0&nsort_name=NO&sort_name="&sort_name&">"&rs("sort_name")&"</a> "
response.write " >></b><br>"
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from WrzcNet_nsort where sort_id="&id&" order by nsort_xu DESC,nsort_id DESC" ,conn,1,1
do while not rs8.eof and not rs8.bof
nsort_name=replace(replace(replace(rs8("nsort_name"),"'","")," ",""),"""","")
response.write "<a href=ad_addhw.asp?sort_id="&rs8("sort_id")&"&nsort_id="&rs8("Nsort_id")&"&sort_name="&sort_name&"&nsort_name="&nsort_name&">"&rs8("Nsort_name")&"</a> "
rs8.movenext
loop
rs8.close
set rs8=nothing
response.write "</td></tr></table>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "</td></tr></table>"

%><!--#include file="ad_bottom.asp"-->