<!--#include file="../mdb.asp"-->
<%
dim rs(5)
function listunder(i)
set rs(i)=server.createobject("adodb.recordset")
rs(i).open "select classid,pinyin,classname,verity from feilei where topclass="&rs(i-1)("classid"),conn,1,3
while not rs(i).eof
dim topclassname
topclassname=""
for x=0 to i-1
topclassname=topclassname&rs(x)("classname")&"→"
next
fujia=""
response.write "<li><a class=word href=html/"&rs(i)("pinyin")&"_"&rs(i)("classid")&" target=_blank>"&topclassname&rs(i)("classname")&fujia&"</a>-("&rs(i)("classid")&")</li>"&vbCrLf
if i<Ubound(rs) then
call listunder(i+1)
end if
rs(i).movenext
wend
end function
rs(i).close
set rs(i)=nothing

set rs(2)=server.createobject("adodb.recordset")
rs(2).open "select * from title",conn,1,3
iso8_site=rs(2)("iso8_site")
iso8_siteurl=rs(2)("iso8_siteurl")
iso8_Powered=rs(2)("iso8_Powered")
iso8_Copyright=rs(2)("iso8_Copyright")
iso8_bq=rs(2)("iso8_bq")
iso8_login=rs(2)("iso8_login")
iso8_ads01=rs(2)("iso8_ads01")
iso8_ads02=rs(2)("iso8_ads02")
iso8_ads03=rs(2)("iso8_ads03")
iso8_ads04=rs(2)("iso8_ads04")
iso8_ads05=rs(2)("iso8_ads05")
iso8_ads06=rs(2)("iso8_ads06")
iso8_ads07=rs(2)("iso8_ads07")
iso8_ads08=rs(2)("iso8_ads08")
iso8_ads09=rs(2)("iso8_ads09")
iso8_ads10=rs(2)("iso8_ads10")
rs(2).close
set rs(2)=nothing
set rs=nothing
%>
<HTML>
<HEAD>
<TITLE>I-搜吧链接平台 | → 网站地图</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="gb2312">
<meta content="All" name="Robots">
<meta name="Generator" content="Notepad">
<meta name="Copyright" content="I-搜吧链接平台版权所有">
<meta name="Keywords" content="网站地图 |I-搜吧链接平台,网站导航,网址之家,网址大全,上网导航,名站导航,收录网站网址。">
<meta name="Description" content="网站地图 |I-搜吧链接平台--实用的上网导航,及时收录包括彩票,股票,小说,视频,游戏等各种分类的优秀网站,提供最简单便捷的网上导航服务.安全上网,从I-搜吧链接平台开始!">
<META content="MSHTML 6.00.2900.3354" name=GENERATOR>
<link rel="stylesheet" href="css/css.css">
<LINK href="css/style.css" rel=stylesheet>
<LINK href="css/f.css" rel=stylesheet>
<LINK id=sklink href="css/sk_2.css" type=text/css rel=stylesheet>
<SCRIPT src="js/cd.js" type=text/javascript></SCRIPT>
</head>
<BODY bgcolor="#1c7faf">
<TABLE cellSpacing=0 bgcolor="#ffffff" cellPadding=0 width=980 align=center border=0>
<TR>
<TD>
<SCRIPT language=javascript>get_skin()</SCRIPT>
<table width=952 height=21 border=0 align=center cellpadding=0 cellspacing=0>
<tr align=middle bgcolor=#ffffff>
<td height=20 align=left valign=center class="tbl_top1">
<table width=952 border=0 cellpadding="0" cellspacing="0">
<tr>
<td align=left height=20 class="whitetop"><a href="javascript:chg()" class="whitetop">选择肤色</a>： <a onClick="ssk(7);return false" href="/"><font color="#E688FD">■</font></a> <a onClick="ssk(2);return false" href="/"><font color="#77b4ea">■</font></a> <a onClick="ssk(6);return false" href="/"><font color="#F5A37E">■</font></a> <a onClick="ssk(8);return false" href="/"><font color="#13D945">■</font></a> <a onClick="ssk(1);return false" href="/"><font color="#dbad00">■</font></a> <a onClick="ssk(3);return false" href="/"><font color="#7bc041">■</font></a> <a onClick="ssk(4);return false" href="/"><font color="#ffacc3">■</font></a> <a onClick="ssk(5);return false" href="/"><font color="#777">■</font></a> <A class="whitetop" name=StranLink>[繁体中文]</A> <SCRIPT language=javascript src="js/Fonts.js"></SCRIPT></TD>
<td align=right height=15><FONT color=#ffffff>| <A href="http://<%=iso8_siteurl%>" class="whitetop">首 页</A> | <A href="/news/index.asp" target="_blank" class="whitetop">站内新闻</A> | <a onClick="javascript:window.external.AddFavorite('http://<%=iso8_siteurl%>', '【<%=iso8_site%>】')" href="#" target=_self><font color=#ffffff>收藏本站</font></a> | <a style="BEHAVIOR: url(#default#homepage)" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=iso8_siteurl%>');return(false);" href="#"><font color=#ffffff>设为首页</font></a> |</font></div></td></tr>
<tr>
<td><div id="mu" style="display:none"></div></td>
</tr>
</table>
</td></tr>
</table>
<table width=952 border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="3"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=952 align=center bgColor=#ffffff border=0>
<TR>
<TD vAlign=bottom align=right width=180 height=60 class="logo_iso8"></TD>
<TD align=middle width=300><%=iso8_ads01%></TD>
<TD align=middle width=468><%=iso8_ads02%></TD>
</TR>
<TR>
<TD background=images/cao.gif colSpan=6 height=10></TD></TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=952 align=center border=0>
<tr>
<td class="tbl_top1" width=5 height=30></TD>
<td class="tbl_top1">
<FONT color=#ffffff><b>推荐栏目：</b></FONT>
<%
Set ads=Server.CreateObject("Adodb.Recordset")
SqlT="select top 8 id,iso8_title,iso8_url,iso8_se from iso8_ads where iso8_weizhi=1 and iso8_time>now() order by iso8_top desc,id"
ads.open SQLT,conn,1,1
numrow2=0
if ads.EOF and ads.BOF then
response.write "暂时没有内容"
else
numRows=0
While (Not ads.EOF)
if ads("iso8_se")=0 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#ffffff'>"&ads("iso8_Title")&"</font></a>"
else
if ads("iso8_se")=1 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#00ff00'>"&ads("iso8_Title")&"</font></a>"
else
if ads("iso8_se")=2 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#ffff00'>"&ads("iso8_Title")&"</font></a>"
else
if ads("iso8_se")=3 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#0000ff'>"&ads("iso8_Title")&"</font></a>"
else
if ads("iso8_se")=4 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#ff0000'>"&ads("iso8_Title")&"</font></a>"
else
if ads("iso8_se")=5 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#ffffff'><b>"&ads("iso8_Title")&"</b></font></a>"
else
if ads("iso8_se")=6 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#00ff00'><b>"&ads("iso8_Title")&"</b></font></a>"
else
if ads("iso8_se")=7 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#ffff00'><b>"&ads("iso8_Title")&"</b></font></a>"
else
if ads("iso8_se")=8 then
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#0000ff'><b>"&ads("iso8_Title")&"</b></font></a>"
else
response.write " <a class=word href="&ads("iso8_url")&" target=_blank><font color='#ff0000'><b>"&ads("iso8_Title")&"</b></font></a>"
end if
end if
end if
end if
end if
end if
end if
end if
end if
numRows=numRows+1
ads.MoveNext
if (numRows mod 8 =0) Then
numrow2=numrow2+1
end if
Wend
end if
ads.close
Set ads = Nothing
%> 
</TD></TR>
<TR>
<TD height=3></TD></TR>
</TABLE>

<TABLE class=tbl id=tbl height=25 cellSpacing=0 cellPadding=0 width="952" align=center border=0>
<TR>
<TD height=25><IMG src="images/pic_arrow.gif" border=0> <a href="/" target=_blank><FONT color=#ffffff><b>本站地图</b></FONT></a> → 
<%
'统计
Set ClassCount=Server.CreateObject("Adodb.Recordset")
Sql= "Select * from feilei order by classid"
ClassCount.open Sql,conn,1,1
Set QCount=Server.CreateObject("Adodb.Recordset")
Q_Sql="Select *  from detail"
QCount.open Q_Sql,conn,1,1
Set WebCount=Server.CreateObject("Adodb.Recordset")
Web_Sql="Select *  from detail where verity=1"
WebCount.open Web_Sql,conn,1,1
Set FCount=Server.CreateObject("Adodb.Recordset")
F_Sql="Select *  from detail where verity=0"
FCount.open F_Sql,conn,1,1
Set FFCount=Server.CreateObject("Adodb.Recordset")
FF_Sql="Select *  from detail where verity=2"
FFCount.open FF_Sql,conn,1,1
%>
<FONT color=#ffffff>分类总数:(<font color="#FF0000"><%=ClassCount.RecordCount%></font>)个 / 网站总数:(<font color="#FF0000"><%=QCount.RecordCount%></font>)个 / 已审网站:(<font color="#FF0000"><%=WebCount.RecordCount%></font>)个 / 未审网站:(<font color="#FF0000"><%=FCount.RecordCount%></font>)个 / 拉黑网站:(<font color="#FF0000"><%=FFCount.RecordCount%></font>)个</font>
<%
ClassCount.close 
Set ClassCount = Nothing
QCount.close 
Set QCount = Nothing
WebCount.close 
Set WebCount = Nothing
FCount.close 
Set FCount = Nothing
FFCount.close 
Set FFCount = Nothing		'统计结束
%>
</TD></TR></TABLE>
<TABLE class=tbl id=tbl height=25 cellSpacing=0 cellPadding=0 width=952 align=center border=0>
<TR bgColor=#ffffff>
<td>
    <%
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,pinyin,classname,verity from feilei where topclass=0",conn,1,3
while not rs(0).eof
fujia=""
response.write "<TABLE class=tbl id=tbl height=25 cellSpacing=0 cellPadding=0 width=100% align=center border=0>"
response.write "<TR bgColor=#ffffff>"
response.write "<td width=25% height=20><a class=word href=html/"&rs(0)("pinyin")&"_"&rs(0)("classid")&".htm target=_blank>"&rs(0)("classname")&fujia&"</A>-("&rs(0)("classid")&")"
response.write "</td></tr></table>"
call listunder(1)
rs(0).movenext
wend
rs(0).close
Set rs(0) = Nothing
%>
</td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width=952 align=center border=0>
<TR bgColor=#ffffff>
<TD height=3>
</TD></TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=952 align=center background=images/menum.gif border=0>
<TR>
<TD align=middle width="100%" background=images/menum.gif height=30>| <A
href="about.htm" target=_blank>关于本站</A> | 
<A href="mian.htm" target=_blank>免责声明</A> | 
<A href="help.htm" target=_blank>服务协议</A> | 
<A href="../ads/index.html" target=_blank>广告服务</A> | 
<A href="login.asp" target=_blank><FONT color=#ff0000><B>新站登录</B></FONT></A> | 
<A href="html/links.htm" target=_blank>友情连接</A> | 
<a href="Html/tjwz.htm"  target="_blank">本站推荐</a> | 
<A href="http://www.miibeian.gov.cn/" target=_blank><FONT color=#ff0000>沪ICP备13020581号-1</FONT></A> | </TD></TR>
<TR>
<TD align=middle width="100%" height=20>
<%=iso8_Copyright&iso8_Powered%>
</TD></TR>
</TABLE>
</TD></TR>
</TABLE>
<SCRIPT LANGUAGE="JavaScript">

          <!--

          function stopError() {
            return true;
          }

          window.onerror = stopError;

          // -->
          

</SCRIPT>
</body>
</html>
<%
FreeConn()
%>

