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

📄 admin_category.asp

📁 网络电视免费版
💻 ASP
字号:
🔍 
<!--#include file="Config.asp" -->

<HTML><HEAD><TITLE>选择分类</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="视听新时空（网络电视，网络广播，免费电影：全球最大的中文网络电视，广播网站）">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<BODY leftMargin=0 topmargin="2">
<% 
if not isnull(UserName) and UserName<>"" then 
   call main()
else
  msgtitle="大类管理"
  msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp""  class=""ArticleList"">点此登录系统</a><li><a href=""./""  class=""ArticleList"">返回频道首页</a></li>" 
  call Sysmsg(msgtitle,msginfo) 
end if
sub main() %>
<table width="96%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
  <tr>
    <th height="25" >添加新节目时请选择相应的分类</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" >　<strong><%=rs("CateName")%></strong> </td>
  </tr>  
  <tr> 
    <td height="22" class="forumRow"> 
      <% 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 7)=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
  %> 
</table>
<% end sub 
   sub Sysmsg(msgtitle,msginfo)
		%> <br> <table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder" >
  <tr> 
   <th><%=msgtitle%></th>
  </tr>
  <tr>           
    <td class="forumRow"><%=msginfo%></td>
  </tr>
   <tr>           
    <td height="22" align="center" class="forumRowHighlight"><a href="javascript:history.go(-1)" >&lt;&lt; 
      返回上一页</a></td>
   </tr>
 </table>
      <br> 
	  <%end sub %> 
</BODY></HTML>
<%
CloseDatabase
%>

⌨️ 快捷键说明

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