showsub.asp

这是一个用SQL Server和ASP开发的搜索引擎网站

<!--#include file="head.asp" -->
<!--分类目录:开始-->
<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>
<%  Response.Cookies("tgDate") = now()%>

<% catname = Request.QueryString("Cat")%>
<CENTER><b><A class=cata HREF="index.asp">首页</A> >> <FONT COLOR="#FF0000"><%=catname%></FONT></b></center>
           </b></font><br>     <br>             
 <%
cat = Request.QueryString("CatID")  
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 subcat where CatID='" & cat & "' order by subcatname"
	set rs = Conn.Execute (sql)	
%>
</center>
<CENTER>
	<table border="0" cellspacing=5 width=90%>
<tr>
	<% 
	Do while NOT rs.EOF 
	ColNum = 1 
	 Do while ColNum < 3
	%>				
<TD ALIGN=LEFT VALIGN=top ><a class=cata href="showlink.asp?CatID=<%=rs("subcatid")%>&parentID=<%=cat%>&subname=<%=server.urlencode(rs("subcatname"))%>&parentname=<%=server.urlencode(catname)%>"><%=rs("subcatname")%> </a>
<% 
sSQL = "SELECT count(url) FROM link2 where category='" & rs("subcatid") & "' and show=1"
Set RScount = Conn.Execute(sSQL)
rcount = RScount(0)
Response.Write ("(" & rcount & ")")
%>
</TD>			
<% 
if NOT rs.EOF then 
 rs.MoveNext 
end if 
 ColNum = ColNum + 1 
if NOT rs.EOF then 
%>
<TD ALIGN=LEFT VALIGN=top ><a class=cata href="showlink.asp?CatID=<%=rs("subcatid")%>&parentID=<%=cat%>&subname=<%=server.urlencode(rs("subcatname"))%>&parentname=<%=server.urlencode(catname)%>"><%=rs("subcatname")%> </a>
<% 
sSQL = "SELECT count(url) FROM link2 where category='" & rs("subcatid") & "' and show=1"
Set RScount = Conn.Execute(sSQL)
rcount = RScount(0)
Response.Write ("(" & rcount & ")")
%>
</TD>				
<% 
end if
ColNum = ColNum + 1 
Loop 
%>
	</TR>
<% 
if NOT rs.EOF then  
rs.MoveNext  
end if 
 Loop 
 %>
	</TABLE>	
	<% rs.close
	Conn.Close
	set Conn = nothing	
	%>
<br>
<!--网站列表:结束-->	
<!-- right col -->
<!--#include file="gg.asp" -->
<!-- right col end -->
</table>
<!--底部导航:开始-->
<!--#include file="foot.asp" -->
<!--底部导航:开始-->
</body>
</html>