📄 index.asp
字号:
<!-- #include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=sitetitle%> - 网站首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=sitekey%>" />
<meta name="description" content="<%=sitemeta%>" />
<meta http-equiv="Content-Language" content="zh-cn" />
<link rel="icon" href="favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="imagetoolbar" content="no" />
<meta name="distribution" content="global" />
<meta name="Robots" content="index,follow" />
<meta content="Copyright 2007 netsoz.com" name="copyright" />
<link href="css/dir.css" type="text/css" rel="stylesheet" />
<script language="javascript" type="text/javascript" src="/js/setHome.js"></script>
<script language="javascript" type="text/javascript" src="/js/click_stat.js"></script>
<script language="javascript" type="text/javascript" src="/js/dir.js"></script>
<script language="javascript" type="text/javascript" src="/js/city.js"></script>
</head>
<body bgcolor="#FFFFFF">
<DIV id=Head>
<table Width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="30%"> </td>
<td width="40%" align="center" style="padding:1px 0px 0px 0px;">
<a href="index.asp" onFocus="this.blur();"><img src="images/logo_coodir.gif" width=286 height=70 vspace=7 border=0 alt="netsoz 中文网站目录"></a></td>
<td width="30%" align="right" valign="top" nowrap style="padding:7px 16px 0px 0px;">
<a href="index.asp">网站目录首页</a> - <a href="accounts/login.asp">登录</a>
</td>
</tr>
</table>
<table class="Tabwidth" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="search.asp" name="dirform" method="get">
<tr>
<td align="center" valign="top" style="padding:0px 0px 1px 0px;">
<table border="0" cellspacing="0" cellpadding="0" align="center" style="margin-bottom:6px;">
<tr>
<td align="center">
<input maxlength="80" name="q" size=25>
<input type="submit" class="searchB" value="搜索目录"> <a href="help/">网站目录帮助</a><br>
</td>
</tr>
</table>
酷帝网站目录 - 全力打造互动式中文网站分类目录(中文网站导航)，提供网站分类目录检索功能，网站目录免费收录网站。<a href="accounts/addsite.asp">提交网站</a>
</td>
</tr>
</form>
</table>
<table class="Tabwidth" border="0" cellspacing="0" cellpadding="0" align="center" style="border-top:1px solid #99B2CC;margin-top:1px;">
<tr>
<td valign="top" style="padding:6px 10px 10px 4px;">
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where classbid='141EE04E0E20220EA0BA'"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="browse/?d=141EE04E0E20220EA0BA" class="link14b">休闲娱乐</a><span class="grayi">(<%=rs.recordcount%>)</span>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<%
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where bigclass='休闲娱乐' order by menuid asc"
rs.open sql,conn,1,1
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 then
response.write "</tr><tr>"
end if
%>
<td width=20%>• <a href="browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-bottom:5px;">
<tr>
<td class="h1"></td>
</tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where classbid='4A13E4A30EA0AC0C00C4'"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="browse/?d=4A13E4A30EA0AC0C00C4" class="link14b">电脑网络</a><span class="grayi">(<%=rs.recordcount%>)</span>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<%
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where bigclass='电脑网络' order by menuid asc"
rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 then
response.write "</tr><tr>"
end if
%>
<td width=20%>• <a href="browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-bottom:5px;">
<tr>
<td class="h1"></td>
</tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where classbid='4B1363B306101B040052'"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="browse/?d=4B1363B306101B040052" class="link14b">商业经济</a><span class="grayi">(<%=rs.recordcount%>)</span>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<%
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where bigclass='商业经济' order by menuid asc"
rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 then
response.write "</tr><tr>"
end if
%>
<td width=20%>• <a href="browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-bottom:5px;">
<tr>
<td class="h1"></td>
</tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where classbid='2E1071E007B0B80C90C2'"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="browse/?d=2E1071E007B0B80C90C2" class="link14b">生活服务</a><span class="grayi">(<%=rs.recordcount%>)</span>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<%
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where bigclass='生活服务' order by menuid asc"
rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 then
response.write "</tr><tr>"
end if
%>
<td width=20%>• <a href="browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-bottom:5px;">
<tr>
<td class="h1"></td>
</tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where classbid='2E1071E007B0B80C90C2'"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="browse/?d=5314423404202307A0D0" class="link14b">教育文化</a><span class="grayi">(<%=rs.recordcount%>)</span>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<%
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where bigclass='教育文化' order by menuid asc"
rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 then
response.write "</tr><tr>"
end if
%>
<td width=20%>• <a href="browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-bottom:5px;">
<tr>
<td class="h1"></td>
</tr>
</table>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -