📄 dir.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<title><%=WebSite_Title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<script language=javascript>
function one(){
var url="one.asp";
document.form.action=url;
}
function search(){
var url="search.asp";
document.form.action=url;
}
</script>
</head>
<body leftmargin="5" topmargin="0" marginwidth="0" marginheight="5">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100"> </td>
<td width="268" align="center"><img src="image/logo.gif" width="200" height="60"></td>
<td> </td>
</tr>
<tr>
<td height="20" colspan="3"></td>
</tr>
</table>
<table border="0" align="center" cellpadding="5" cellspacing="0">
<tr align="center" bgcolor="#f5f5f5">
<td width="55" height="20"><a href="index.asp">网站搜索</a></td>
<td width="55" bgcolor="#f5f5f5"><a href="dir.asp"><strong>分类目录</strong></a></td>
<td width="55" bgcolor="#f5f5f5"><a href="protocol.asp">网站登录</a></td>
<td width="55" bgcolor="#f5f5f5"><a href="admin.asp">网站修改</a></td>
<td width="55" bgcolor="#f5f5f5"><a href="help.asp">搜索帮助</a></td>
</tr>
</table>
<!--#include file="query.asp" -->
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20"></td>
</tr>
<tr>
<td height="70"> <%
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from sort where sort_id=0",conn,1,1
if rs.eof or rs.bof then
response.write ""
else
do while not rs.eof
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="195" height="60">
<%if not rs.eof then%>
<% if rs("move_id")>0 then %>
<a href="list.asp?sort_id=<%=rs("move_id")%>" class="search"><b><%=rs("sort")%></b></a>
<% else %>
<a href="list.asp?sort_id=<%=rs("id")%>" class="search"><b><%=rs("sort")%></b></a>
<% end if %>
<br> <br>
<%
set rss=conn.execute("select * from sort where sort_id="&rs("id")&" and show=1 order by id")
if rss.eof and rss.bof then
response.write ""
else
do while not rss.eof
%>
<% if rss("move_id")>0 then %>
<a href="list.asp?sort_id=<%=rss("move_id")%>"><%=rss("sort")%></a>
<% else %>
<a href="list.asp?sort_id=<%=rss("id")%>"><%=rss("sort")%></a> <% end if %>
<%
rss.movenext
loop
end if
rss.close
set rss = nothing
%>
<%
rs.movenext
end if
%>
</td>
<td width="195">
<%if not rs.eof then%>
<% if rs("move_id")>0 then %>
<a href="list.asp?sort_id=<%=rs("move_id")%>" class="search"><b><%=rs("sort")%></b></a>
<% else %>
<a href="list.asp?sort_id=<%=rs("id")%>" class="search"><b><%=rs("sort")%></b></a>
<% end if %>
<br> <br>
<%
set rss=conn.execute("select * from sort where sort_id="&rs("id")&" and show=1 order by id")
if rss.eof and rss.bof then
response.write ""
else
do while not rss.eof
%>
<% if rss("move_id")>0 then %>
<a href="list.asp?sort_id=<%=rss("move_id")%>"><%=rss("sort")%></a>
<% else %>
<a href="list.asp?sort_id=<%=rss("id")%>"><%=rss("sort")%></a> <% end if %>
<%
rss.movenext
loop
end if
rss.close
set rss = nothing
%>
<%
rs.movenext
end if
%>
</td>
<td width="195">
<%if not rs.eof then%>
<% if rs("move_id")>0 then %>
<a href="list.asp?sort_id=<%=rs("move_id")%>" class="search"><b><%=rs("sort")%></b></a>
<% else %>
<a href="list.asp?sort_id=<%=rs("id")%>" class="search"><b><%=rs("sort")%></b></a>
<% end if %>
<br> <br>
<%
set rss=conn.execute("select * from sort where sort_id="&rs("id")&" and show=1 order by id")
if rss.eof and rss.bof then
response.write ""
else
do while not rss.eof
%>
<% if rss("move_id")>0 then %>
<a href="list.asp?sort_id=<%=rss("move_id")%>"><%=rss("sort")%></a>
<% else %>
<a href="list.asp?sort_id=<%=rss("id")%>"><%=rss("sort")%></a>
<% end if %>
<%
rss.movenext
loop
end if
rss.close
set rss = nothing
%>
<%
rs.movenext
end if
%>
</td>
</tr>
</table>
<%
loop
end if
rs.close
set rs=nothing
%>
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="20" align="center"><a href="new.asp">最新加入50个网站</a> | <a href="commend.asp">最新推荐50个网站</a>
| <a href="hot.asp">酷站排行榜TOP50</a> | <a href="#" onclick="this.style.behavior='url(#default#homepage)'; this.setHomePage('http://www.lucoo.com/ksearch/');">设为首页</a>
| <a href="#" onclick="javascript:window.external.AddFavorite('http://www.lucoo.com/ksearch/', 'K风搜索')">收藏本站</a>
| <a href="http://www.lucoo.com/" target="_blank">绿色互联</a></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"></td>
</tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>
<%
conn.close
set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -