⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 showcate.asp

📁 .asp网站程序。专业的二手汽车商店网站。功能强大
💻 ASP
字号:
🔍 
<!--#include file="Config.asp" -->
<%dim Rs,SubRs
  set Rs=server.createobject("adodb.recordset")
  set SubRs=server.createobject("adodb.recordset")
%>
<HTML><HEAD><TITLE><%= Title_Name %><%= CategoryName_CHS %> ==>> 信息分类 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="安徽二手市场">
<LINK href="style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY text=#003300 vLink=#002200 bgColor=#cccccc leftMargin=0 topMargin=0>
<!--#include file="top.asp" -->
<!--#include file="navbar.asp" -->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td colspan="7" valign="top" bgcolor="#FFFFFF" ><table width="100%" border="0" align="center">
        <tr> 
          <td><img src="images/dotdb.gif" width="10" height="10" align="absmiddle"> 
            当前位置：<a class=white_bg 
            href="/">首页</a> &gt;&gt; <a class=white_bg 
            href="./"><%= CategoryName_CHS %></a> &gt;&gt; 信息分类</td>
        </tr>
      </table>
      <% rs.open "select * from "&CategoryName&"_Cate order by CateID asc",conn,1,1
        if err.number <> 0 then
	           response.write "数据库出错"
           else
	           if rs.bof and rs.eof then
		        response.write "没有添加大类"
	           else
			  do while not rs.eof %> <table width="98%" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr> 
          <td height="25" bgcolor="#EFEFEF" class="tdbBig">　　<img src="images/dotdb.gif" width="10" height="10" align="absmiddle"> 
            <strong><a href="SoftList.asp?CateID=<%=rs("CateID")%>" class="ArticleList"><%=rs("CateName")%></a></strong> </td>
        </tr>
      </table>
      <table width="98%" border="0" align="center">
        <tr> 
          <td height="22"> <% SubRs.open "select * from "&CategoryName&"_SubCate where CateID="&Rs("CateID")&" order by SubCateID asc",conn,1,1
        if err.number <> 0 then
	           response.write "数据库出错"
           else
	           if SubRs.bof and SubRs.eof then
		        response.write "没有添加小类"
	           else
			   i=1
			 do while not SubRs.eof 			 
			 %> <a href="SoftList.asp?CateID=<%=SubRS("CateID")%>&SubCateID=<%=SubRS("SubCateID")%>" class="ArticleList"><%=SubRS("SubCateName")%></a> · 
            <% 
			if (i mod 8)=0 then response.write "<br>"
			i=i+1
			SubRs.movenext
	               loop
	           end if
  end if
  SubRs.close
  %> </td>
        </tr>
      </table>
      <% rs.movenext
	               loop
	           end if
  end if
  rs.close
  %>  </td>
  </tr>
</table>
<!--#include file="end.asp" -->
</BODY></HTML>
<%
  set rs=nothing
  set Subrs=nothing
CloseDatabase
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -