📄 index1.asp
字号:
<% Response.Cookies("tgDate") = now()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索频道</title>
<link rel="stylesheet" type="text/css" href="jgwy.css">
</head>
<body bgColor="#f7fdff" leftMargin="0" topMargin="10">
<!--#include file="head.asp" -->
<div align="center"><center>
<table>
<tr>
<td height="17" width="100%"><table bgColor="#a2d1f4" border="0" cellSpacing="0"
width="100%">
<TBODY>
<tr>
<td width="100%"><table bgColor="#f7fdff" border="0" cellPadding="0" cellSpacing="0"
width="100%">
<TBODY>
<tr>
<td align="left" vAlign="top" width="15%"> <table border="0" cellPadding="0"
cellSpacing="0" width="90%">
<TBODY>
<tr>
<td align="right" width="100%"><p align="center"><script language="vbscript"
src="countcj/count.asp?user=jgwy&view=yes&minu=2"></script><br>
<span class="small">(2001/6/1)</span> </td>
<td></td>
<td><form action="search.asp" method="get">
</form>
</td>
</tr>
<tr>
<td align="right" width="100%"><p align="center"><span class="small">搜索范围：<br>
</span></td>
</tr>
<tr>
<td align="right" width="100%"><form method="get" action="search.asp">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="middle" bgcolor="#CAE4F9"><input name="search" size="20"> <select name="xxx"
size="1">
<option value="1">所有站点</option>
<option value="2">指定站点</option>
</select> <input type="submit" value="搜索"> </td>
</tr>
<tr>
<td align="middle" bgcolor="#B5DBF7"><div align="center"><center><p>搜索数目 <input
type="radio" value="10" checked name="num"> 10 <input type="radio" name="num"
value="20">20 <input type="radio" name="num" value="30"> 30 <a
href="howto.asp" target="_blank">帮助</a> </td>
</tr>
</table>
</form>
</td>
</tr>
<tr align="center">
<td align="right" width="100%"><br>
<br>
<span calss="small"><br>
</span></td>
</tr>
<tr align="center">
<td width="100%"><span calss="small"></span></td>
</tr>
</TBODY>
</table>
</td>
<td align="center" vAlign="top" width="2%"><img src="line.gif" width="12" height="572"></td>
<td align="center" vAlign="top" width="83%"> <br>
<div align="center"><center><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="500">
<%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3
%>
<tr>
<td ALIGN="LEFT" VALIGN="top" WIDTH="250"><br><font face="仿宋" size="3"><a
href="showsub.asp?CatID=<%=rs("id")%>&cat=<%=server.urlencode(rs("cat"))%>"><%=rs("cat")%> </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>"
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
%>
<font face="仿宋" size="2""><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="250"><font face="仿宋" size="3"><a
href="showsub.asp?CatID=<%=rs("id")%>&cat=<%=server.urlencode(rs("cat"))%>"><%=rs("cat")%></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>"
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
%> <font face="仿宋" size="2"><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>
<%
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>
</center></div><p align="center"> </td>
</tr>
</TBODY>
</table>
</td>
</tr>
</TBODY>
</table>
</td>
</tr>
<tr align="center">
<td><table border="0" cellPadding="2" cellSpacing="0" width="100%">
<TBODY>
<tr>
<td bgColor="#A2D1F4" width="100%"> </td>
</tr>
</TBODY>
</table>
</td>
</tr>
</TBODY>
</table>
</center></div><!--#include file="foot.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -