<%
'=========================================================
'　　　　　　　　　　　飞　扬　网　络
' Copyright (C) 2003-2005 feiyang.Com. All Rights Reserved.
' Web: http://www.51fy.cn
' QQ: 99686532        E-mail: bgh_edu@126.com
'=========================================================
%>
<!--#include file="QQCF_Conn.Asp"-->
<!--#include file="QQCF_ChkStr.Asp"-->
<%
If RsSet("Htm")=-1 And Request("Action")="" Then
 Response.Redirect "QQCF_Zlist"&Request("ClassID")&".Htm"
 Response.End
End If%>

<%
ClassID=Request("ClassID")
Sql="Select * From WWW_QQCF_COM_Class Where ClassID="&ClassID
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1

If Rs.Bof Or Rs.Eof Then Response.Redirect "QQCF_Index.Asp"
classname=Rs("classname")
%>
<html>
<head>
<title>飞扬网络－网址导航 http://www.51fy.cn</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="飞扬网络－网址导航 http://www.51fy.cn">

<style type="text/css">
<!--
td,body,input{font-size:12px}
a:link{color:#000000;text-decoration:none}
a:visited{color:#000000;text-decoration:none}
a:active{color:blue;text-decoration:none}
a:hover{color:red;text-decoration:underline}
.so{font-size:12px;background-color:#cccccc;border-left:1px ridge #ffffff;border-right-style:ridge;border-right-width:1px;border-top:1px ridge #ffffff;border-bottom-style:ridge;border-bottom-width:1px}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" >
<!--#include file="QQCF_Top.Asp"-->
<table border="0" cellpadding="4" cellspacing="0" width="700" bgcolor="#FFFFD7" align="center">
<tr><td width="700" height="7" colspan="3" bgcolor="#FFFFFF"></td></tr><tr>
<td width="400"><b><font color="#424242">飞扬网络－网址导航：</font>
<%
If Rs("UpID")=0 Then
 MyMenu="＞"&Rs("ClassName")
Else
 Sql="Select * From WWW_QQCF_COM_Class Where ClassID="&Rs("UpID")
 Set Rs1=Server.CreateObject("Adodb.RecordSet")
 Rs1.Open Sql,Conn,1,1
 MyMenu="＞<a href='QQCF_List.Asp?ClassID="&Rs1("ClassID")&"'>"&Rs1("ClassName")&"</a>＞"&Rs("ClassName")
End If
%>
<a href="./" class="title">首页</a><%=MyMenu%>
</b></td>
<td width="100" align="center"><a href='./' class='title'>返回首页</a></td>
<td width="200" align="right"></td></tr><tr><td width="700" height="14" colspan="3" bgcolor="#FFFFFF"></td></tr></table>
<table bgcolor='#FFFFEC' bordercolorlight='#FF9933' border=1 cellspacing=0 cellpadding=3 bordercolordark='#FFFFFF' width=700 align='center'><tr align='left'><td width='100%'><b>
本分类的下级分类：</b>
<%
Sql="Select * From WWW_QQCF_COM_Class where UpID="&Rs("ClassID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If Rs.Eof And Rs.Bof Then response.write "****无下级分类***"

%>
<table width=80% border="0" align="center" cellpadding="0" cellspacing="0">
          <%
linenum=4
tdwidth=int(100/linenum)&"%"
jishu=1
while not rs.eof
if jishu mod linenum=1 or linenum=1 then
Response.write "<tr>"
end if%>
          <td valign="top" width="<%=tdwidth%>"> 
            <a href="QQCF_List.Asp?ClassID=<%=Rs("ClassID")%>"><Font color="#FF0000"><b><%=rs("ClassName")%></b></Font></a> </td>
<%
if jishu mod linenum=0 then
Response.write "</tr>"
end if
jishu=jishu+1
rs.movenext
wend '写tr和td,jishu mod 列数为1时开始tr,为0时结束tr

jishu=jishu-1
if jishu mod linenum <> 0 then
for i= 1 to linenum-(jishu mod linenum)
	response.write "<td width='"&tdwidth&"'>&nbsp;</td>"
	if  i = linenum-(jishu mod linenum) then response.write "</tr>"
next
end if '判断最后一行tr是否正好闭合,否则增加td,里面填入空格
%>
        </table>
		
</td></tr></table>
<table bgcolor='#FFFFEC' bordercolorlight='#FF9933' border=1 cellspacing=0 cellpadding=3 bordercolordark='#FFFFFF' width=700 align='center'><tr>
<td align='center' vAlign='center' width='700' colspan='4' bgcolor='#FFFFCC' style='font-size: 14px; color: #FF0000'><%=classname%></TD></tr>
<%
Sql="Select * From WWW_QQCF_COM_WebSite Where ClassID="&ClassID&" And State=1 Order By ListID Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1

jishu=1
while not rs.eof
	if jishu=1 or jishu mod 4 = 1 then
		response.write "<tr><td width='25%' height='20'><a href='QQCF_GoUrl.Asp?ID="&rs("id")&"' target='_blank'>"&rs("title")&"</a></td>"
    else
		response.write "<td width='25%' height='20'><a href='QQCF_GoUrl.Asp?ID="&rs("id")&"' target='_blank'>"&rs("title")&"</a></td>"
	end if
	if jishu mod 4 =0  then response.write "</tr>"
	jishu=jishu+1
	rs.movenext
wend
jishu=jishu-1
if jishu mod 4 <> 0 then
for i= 1 to 4-(jishu mod 4)
	response.write "<td width='25%'>&nbsp;</td>"
	if  i = 4-(jishu mod 4) then response.write "</tr>"
next
end if
rs.close
%>
<tr align='center'>
    <td colspan=4 height=28>&nbsp;</td>
  </tr></table>
  
<!--#include file="qqcf_bottom.asp"-->
</body>
</html>
