📄 index.asp
字号:
<% Response.Cookies("tgDate") = now()%>
<!--#include file="head.asp" -->
<!-- directory --><!--分类目录:开始-->
<table width=97% border=0 cellspacing=5 cellpadding=0 align=center>
<col width=33%><col width=33%><col width=33%>
</table>
<!--分类目录:结束-->
<!--网站列表:开始-->
<table width=600 border=0 cellspacing=0 cellpadding=0><tr><td height=1 background=images/bg01.gif><spacer type=block width=1></td></tr></table>
<table width=600 border=0 cellspacing=0 cellpadding=10>
<tr><td></td></tr>
</table>
<table width=97% border=0 cellspacing=0 cellpadding=2 align=center bgcolor=EEFFEF><CENTER><b><A class=cata HREF="index.asp">首页</A></b></center><br>
<table border="0" cellPadding="0" cellSpacing="0" height="237" width="90%">
<TBODY>
<tr>
<td align="center"><%
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String
sql = "select * from cat order by cat"
set rs = Conn.Execute (sql)
%>
<div align="center"><center><table border="0" width="90%">
<%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3
%>
<tr>
<td ALIGN="LEFT" VALIGN="top" WIDTH="45%"><br><a class=cata
href="showsub.asp?CatID=<%=rs("id")%>&cat=<%=server.urlencode(rs("cat"))%>"><b><%=rs("cat")%></b></a><%
ParentID = rs("id")
sqlcount = "SELECT count(url) FROM link2 where parentid='" & rs("id") & "' and show=1"
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)
Response.Write ("(" & rcounts & ")")
Response.Write "<br><br>"
subsql = "SELECT top 3 * FROM subcat where catID='" & ParentID & "' order by subcatname"
set rssubcat = conn.Execute(subsql)
count = rssubcat.RecordCount
count = 1
do while not rssubcat.EOF and count<=3
%>
<a
href="showlink.asp?CatID=<%=rssubcat("subcatID")%>&parentID=<%=rs("id")%>&parentname=<%=server.urlencode(rs("cat"))%>&Subname=<%=server.urlencode(rssubcat("Subcatname"))%>"><%=rssubcat("subcatname")%></a> </font>
<%
rssubcat.movenext
loop
%> </td>
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<td ALIGN="LEFT" VALIGN="top" WIDTH="45%"><br><a class=cata
href="showsub.asp?CatID=<%=rs("id")%>&cat=<%=server.urlencode(rs("cat"))%>"><b><%=rs("cat")%></b></FONT></a></font>
<%
ParentID = rs("id")
sqlcount = "SELECT count(url) FROM link2 where parentid='" & rs("id") & "' and show=1"
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)
Response.Write ("(" & rcounts & ")")
Response.Write "<br><br>"
subsql = "SELECT top 3 * FROM subcat where catID='" & ParentID & "' order by subcatname"
set rssubcat = conn.Execute(subsql)
count = rssubcat.RecordCount
count = 1
do while not rssubcat.EOF and count<=3
%> <a
href="showlink.asp?CatID=<%=rssubcat("subcatID")%>&parentID=<%=rs("id")%>&parentname=<%=server.urlencode(rs("cat"))%>&Subname=<%=server.urlencode(rssubcat("Subcatname"))%>"><%=rssubcat("subcatname")%></a>
<%
rssubcat.movenext
loop
%> </td>
<%
end if
ColNum = ColNum + 1
Loop
%>
</tr>
<%
if NOT rs.EOF then
rs.MoveNext
end if
Loop
%>
</table>
</center></div><% rs.close
Conn.Close
set Conn = nothing
%>
<p align="center"> </td>
</tr>
</TBODY>
</table>
<!-- directory end -->
<!--网站列表:结束-->
<!-- right col -->
<!--#include file="gg.asp" -->
<!-- right col end -->
</table>
<!--底部导航:开始-->
<!--#include file="foot.asp" -->
<!--底部导航:开始-->
</body>
</html>
<html></html>
<html></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -