📄 search.asp
字号:
<!-- #include file="conn.asp"-->
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from info where adminSiteName like '%"&request("q")&"%' and check=1 order by infoid asc"
rs.open sql,conn,1,1
rs.PageSize=10
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=request("q")%> - <%=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=6700B0700B101407208A&q=<%=request("q")%>&p=1"
}
</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="<%=request("q")%>">
<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">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> 目录搜索：<a href="inde.asp" class="linknov">首页</a> >
所有目录
</td>
<td align="right">约有 <b><%=rs.recordcount%></b> 项符合 <b><%=request("q")%></b> 的查询结果 </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="left" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="160" valign="bottom" style="padding:3px;">
<span class="f60b14">
所有目录
</span><br>
<span onClick="i_function(0)"><input id="i_0" name="i" type="radio" value="0" checked><label for="i_0">显示图片</label></span>
<span onClick="i_function(1)"><input id="i_1" name="i" type="radio" value="1" ><label for="i_1">隐藏图片</label></span>
</td>
<td align="right" valign="bottom" style="padding:3px;">
排序：<a href="search.asp?o=1&d=6700B0700B101407208A&q=<%=request("q")%>&i=0" class="linkNo" title="入站流量">入站流量</a> | <a href="search.asp?o=2&d=6700B0700B101407208A&q=<%=request("q")%>&i=0" class="linkNo" title="用户拜访量">出站流量</a> | <a href="search.asp?o=3&d=6700B0700B101407208A&q=<%=request("q")%>&i=0" class="linkNo" title="Google PageRank">PageRank</a> | <a href="search.asp?o=4&d=6700B0700B101407208A&q=<%=request("q")%>&i=0" class="linkNo" title="Alexa排名">Alexa排名</a> | <a href="search.asp?o=5&d=6700B0700B101407208A&q=<%=request("q")%>&i=0" class="linkNo" title="字母顺序">字母顺序</a> </td>
</tr>
<tr>
<td class="h1" colspan="2"></td>
</tr>
</table>
<br>
<%
if Len(Trim(Request("p")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("p")))
End if
if rs.bof and rs.eof then
response.write "<span class=""f60b14"">没有符合条件的信息！</span>"
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>
<%
if not( rs.bof and rs.eof )then
%>
<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>
<%End If%>
</table>
</td>
<td class="w1"></td>
<td class="right" valign="top">
<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>
<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
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:6px;margin-bottom:6px;display:none;">
<tr>
<td class="h1"></td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr></table>
<%=sitefoot%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -