📄 index.asp
字号:
<!-- #include file="conn.asp"-->
<%
If request("d")="" Then
Response.Redirect "../index.asp"
End If
set rs1=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where sid='"&request("d")&"' and bid<>''"
rs1.open sql,conn,1,1
if rs1.bof and rs1.eof then
rs1.close
set rs1=nothing
set rs1=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where bid='"&request("d")&"'"
rs1.open sql,conn,1,1
rs1bid=rs1("bigclass")
rs1title=rs1("bigclass")
rt="1"
else
rs1bid=rs1("bigclass")
rs1bdd=rs1("bid")
rs1title=rs1("smclass")
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where classbid='"&rs1("bid")&"'"
rs.open sql,conn,1,1
rsd=rs.recordcount
rs.close
set rs=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=rs1title%> - <%=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 webmaster.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>
<script language="javascript" type="text/javascript">
function i_function(s){
document.location="?i="+s+"&o=&d=141EE04E0E20220EA0BA&p=1"
}
function menuChange()
{
if(menu.style.display=="block")
{
menu.style.display="none";
menuimg.src="../images/menu_show.gif";
}else{
menu.style.display="block";
menuimg.src="../images/menu_hidden.gif";
}
}
</script>
</head>
<body bgcolor="#FFFFFF">
<DIV id=Head>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="220" align="center" style="padding:1px 0px 0px 0px;"><a href="../index.asp" onFocus="this.blur();"><img src="../images/dir_logo_coodir.gif" width=206 height=50 vspace=7 border=0 alt="酷帝网站目录"></a></td>
<td valign="top" style="padding:1px 0px 0px 0px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:8px;">
<tr>
<td align="right" valign="top" nowrap="nowrap" style="padding:6px 16px 0px 0px;">
<a href="../index.asp">网站目录首页</a> - <a href="/accounts/login.asp">登录</a>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="/search.asp" name=dirform method="get">
<tr>
<td width="266" valign="top" nowrap="nowrap" style="padding:0px 0px 4px 0px;">
<input maxlength=80 name=q size=25 value="">
<input type=submit value="搜索目录" class="searchB"></td>
<td nowrap="nowrap"> <a href="/help/" title="网站目录帮助">网站目录帮助</a></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="navborder">
<tr>
<td class="navbg"> 您的位置：<a href="../index.asp" class="linknov">首页</a> > <a href="../browse/?d=<%=request("d")%>" class="linknov"><%=rs1("smclass")%></a> <img src="../images/menu_hidden.gif" alt="显示/隐藏目录" name="menuimg" width="70" height="20" hspace="3" border="0" align="absmiddle" id="menuimg" onclick="menuChange();" style="cursor:pointer;"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="left" valign="top">
<table width="500" border="0" cellspacing="1" cellpadding="2" id="menu" style="display:block;">
<tr>
<td><a href="../browse/?d=<%=rs1bdd%>" class="link14b"><%=rs1("bigclass")%></a><span class="grayi">(<%=rsd%>)</span><br>
<table border="0" cellspacing="1" cellpadding="2"><tr>
<%
rs1.close
set rs1=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from menu where bigclass='"&rs1bid&"' order by menuid asc"
rs.open sql,conn,1,1
do until rs.eof
i=i+1
if i=6 or i=11 or i=16 or i=21 then
response.write "</tr><tr>"
end if
set rs1=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where ClassID_id='"&rs("sid")&"'"
rs1.open sql,conn,1,1
%>
<td width=20%>• <a href="../browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a><span class="grayi">(<%=rs1.recordcount%>)</span></td>
<%
rs1.close
set rs1=nothing
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr></table>
</td>
</tr>
</table>
<script>
var ss=document.getElementById("menu");
var count_ss=ss.getElementsByTagName("a").length;
for(var i=0;i<count_ss;i++){
if(ss.getElementsByTagName("a")[i].id=="141EE04E0E20220EA0BA"){
ss.getElementsByTagName("a")[i].className="itemAct";
}
}
menu.style.display="block";
menuimg.src="../images/menu_hidden.gif";
</script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#F4F4F5">
<td align="right" valign="bottom" style="padding:3px;">
排序：<a href="?o=1&d=<%=request("d")%>&i=1" class="linkNo" title="入站流量">入站流量</a> | <a href="?o=2&d=<%=request("d")%>&i=1" class="linkNo" title="用户拜访量">出站流量</a> | <a href="?o=3&d=<%=request("d")%>&i=1" class="linkNo" title="Google PageRank">PageRank</a> | <a href="?o=4&d=<%=request("d")%>&i=1" class="linkNo" title="Alexa排名">Alexa排名</a> | <a href="?o=5&d=<%=request("d")%>&i=1" class="linkNo" title="字母顺序">字母顺序</a> </td>
</tr>
<tr>
<td class="h1" colspan="2"></td>
</tr>
</table>
<%
if Len(Trim(Request("p")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("p")))
End if
set rs=Server.CreateObject("ADODB.RecordSet")
if rt="1" then
sql="select * from info where classbid='"&request("d")&"' and check=1 order by infoid asc"
else
sql="select * from info where ClassID_id='"&request("d")&"' and check=1 order by infoid asc"
end if
rs.open sql,conn,1,1
rs.PageSize=10
if rs.bof and rs.eof then
response.write "<br><center><b>该分类暂没添加网站！</b></center>"
end If
if not (rs.bof and rs.eof) then
rs.AbsolutePage=page
for k=1 to rs.PageSize
%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" style="margin-top:12px;border-bottom:0px dotted #A5BAC6;">
<tr>
<td valign="top"><a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(8895);" class="link14b" title="访问此网站"><%=rs("adminSiteName")%></a><span class="small"> - </span><span class="gray">PageRank：</span><img src="../images/GoogleImg/6pagerank<%=rs("pr")%>.gif" width="58" height="11" align="absmiddle"> <span class="gray">AlexaRank：</span><span class="AlexaRank"><%=rs("alexa")%></span><br>
<%=rs("adminDes")%><br>
<span class="greendomain"><%=rs("DomainName")%></span><span class="small"> - </span><a href="../browse/siteinfo.asp?id=<%=rs("infoid")%>" class="siteinfo" title="网站详细信息">网站信息<img src="../images/site_info.gif" alt="网站详细信息" width="13" height="13" hspace="3" border="0" align="absmiddle"></a> </td></tr>
</table>
<%
rs.movenext
if rs.EOF Then Exit For
next
end if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:10px;">
<tr>
<td class="h1"></td>
</tr>
<tr>
<td align="center" style="padding:5px;">结果页码：
<%
if page <>1 then
Response.Write "<a href=?page=1>首页</a> "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"<a href=?page="&tmppage&"&d="&request("d")&">上一页</a>"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " <a href=?page="&tmppage&"&d="&request("d")&">下一页</a> "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "<a href=?page="&rs.PageCount&"&d="&request("d")&">尾页</a>"
end if
Response.Write " "&rs.RecordCount&" 条记录 "
if Cstr(rs.PageCount) <> 0 then
Response.Write "" & page & " / "&rs.PageCount&"页"
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
<td width="1" background="../images/dot_line.gif"></td>
<td width="300" valign="top" style="padding:10px 0px 10px 6px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
<tr>
<td class="f60b14"> 推荐网站</td>
</tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where top='1'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无推荐网站"
end if
do until rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:7px;border-bottom:0px dotted #A5BAC6;">
<tr>
<td valign="top" style="line-height:14px;"><a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(8580);" title="访问此网站"><%=rs("adminSiteName")%></a><br>
<%=Left(rs("adminDes"),20)%>...<br>
<span class="greendomain"><%=rs("DomainName")%></span></td></tr>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:6px;margin-bottom:6px;">
<tr>
<td class="h1"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
<tr>
<td class="f60b14"> 快速链接</td>
</tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where quick=1"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无快速网站"
end if
do until rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
<tr>
<td valign="top"> <a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(29);" title="访问此网站"><%=rs("adminSiteName")%></a> <span class="greenDomain"><%=rs("DomainName")%></span><span class="small"> - </span><a href="../browse/siteinfo.asp?id=<%=rs("infoid")%>" class="siteinfo" title="网站详细信息"><img src="../images/site_info.gif" alt="网站详细信息" width="13" height="13" hspace="3" border="0" align="absmiddle"></a></td>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:6px;margin-bottom:6px;">
<tr>
<td class="h1"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td class="f60b14"> <%=rs1title%> > 最新加入站点</td>
</tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from info order by infoid desc"
rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
<tr>
<td valign="top"><span class="gray"><%=i%>.</span> <a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(13624);" title="访问此网站"><%=rs("adminSiteName")%></a> <span class="greenDomain"><%=rs("adminSiteName")%></span><span class="small"> - </span><a href="siteinfo.asp?id=<%=rs("infoid")%>" class="siteinfo" title="网站详细信息"><img src="../images/site_info.gif" alt="网站详细信息" width="13" height="13" hspace="3" border="0" align="absmiddle"></a></td>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%=sitefoot%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -