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

📄 admin_category.asp

📁 .asp网站程序。专业的二手汽车商店网站。功能强大
💻 ASP
字号:
🔍 
<!--#include file="Config.asp" -->
<!-- #include file="top.asp" -->
<!--#include file="navbar.asp" -->
<HTML><HEAD><TITLE>选择分类</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="安徽二手市场">
<link rel="stylesheet" href="css.css" type="text/css">
</HEAD>
<BODY leftMargin=0 topmargin="2">
<% 
if not isnull(UserName) and UserName<>"" then 
   call main()
else
  msgtitle="二手信息添加"
  msginfo="<li>操作错误，你没有登录系统！</li><br><br><li><a href=""User.Asp""  class=""ArticleList"">点此登录系统</a><br><br><li><a href=""User.Asp?action=UserReg""  class=""ArticleList"">没有注册请点这里免费申请</a><br><br><li><a href=""./""  class=""ArticleList"">返回频道首页</a></li>" 
  call Sysmsg(msgtitle,msginfo) 
end if
sub main() %>
<table width="780" border="0" align="center" cellpadding="3" cellspacing="1" class="index">
  <tr>
    <th height="25" width="755" >添加信息时请选择相应的分类</th>
  </tr>
  <%dim Rs,SubRs
  set Rs=server.createobject("adodb.recordset")
  set SubRs=server.createobject("adodb.recordset")
  
   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 %>
  <tr> 
    <td class="forumRowHighlight" width="755" >　<strong><%=rs("CateName")%></strong> </td>
  </tr>  
  <tr> 
    <td height="22" class="forumRow" width="755"> 
      <% 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="Admin_SoftInfo.asp?CateID=<%=SubRS("CateID")%>&SubCateID=<%=SubRS("SubCateID")%>" class="ArticleList"><%=SubRS("SubCateName")%></a> ·   
      <%   
			if (i mod 10)=0 then response.write "<br>"  
			i=i+1  
			SubRs.movenext  
	               loop  
	           end if  
  end if  
  SubRs.close  
    
   rs.movenext  
	               loop  
	           end if  
  end if  
  rs.close  
  set rs=nothing  
  set Subrs=nothing  
  %> 
      <br> <br>  
</table>  
<% end sub   
   sub Sysmsg(msgtitle,msginfo)  
		%> <br> <table width="780" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder" >  
  <tr>   
   <th width="668"><%=msgtitle%></th>  
  </tr>  
  <tr>             
    <td class="forumRow" width="668"><%=msginfo%></td>  
  </tr>  
   <tr>             
    <td height="22" align="center" class="forumRowHighlight" width="668"><a href="javascript:history.go(-1)" >&lt;&lt;   
      返回上一页</a></td>  
   </tr>  
 </table> <br>  
	  <%end sub %>   
</BODY></HTML>  
<%  
CloseDatabase  
%>  
<!-- #include file="end.asp" -->

⌨️ 快捷键说明

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