www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/html_listLB.asp
<html> <head> <title>管理中心 -共享世纪新闻文章管理系统</title> <meta copy="WWW.2KY.CN 共享世纪"> <link rel="stylesheet" href="admin.css" type="text/css"> <!--#include file="check.asp"--> <!--#include file="mdb_path_info.asp"--> <!--#include file="config.asp"--> <!--#include file="top.asp"--> <% '========================================== ' ' 晓宇听幽新闻文章管理系统 2004 ' ' 主页地址:http://www.xoYu.com ' '========================================== '程序名称:晓宇听幽新闻文章管理系统 '英文名称:xoYu News 2004 Professional '程序创建时间:2003-7-10 '程序完成时间:2003-9-11 '最后修改时间:2003-10-10 '========================================== set rs=server.CreateObject("ADODB.RecordSet") if xoYuStudioAdminDj=2 and request("id")="" then errmsg=errmsg & ""您没有进入本页面的权限!" \n" if xoYuStudioAdminDj=2 and request("id")<>"" then rs.open "select * from infotype where id="&request("id"),conn,1,1 TM=rs("typemaster") if instr("|"&TM&"|","|"&xoYuStudioAdminName&"|")<1 then errmsg=errmsg & ""您没有进入本页面的权限!" \n" rs.close end if if errmsg<>"" then response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") else %> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <th width="100%" class="tableHeaderText" colspan=2 height=25>文章分类管理 </th> </tr> <tr> <td class="forumrow" colspan=2> <p><B>注意</B>:<BR>①删除分类同时将删除该分类下所有文章!删除分类同时删除下属分类和其中文章! 操作时请完整填写表单信息。<BR>②如果选择<B>复位所有版面</B>,则所有版面都将作为一级分类,这时您需要重新对各个版面进行归属的基本设置,<B>不要轻易使用该功能</B>,仅在做出了错误的设置而无法复原版面之间的关系和排序的时候使用 </td> </tr> <% sql="select * from Mb where mbtype='1' order by ID" rs.Open sql,conn,1,1 if rs.EOF then choose1=choose1&"<option value=""无"">暂无模版可捆绑</option>" else MbName=rs("mbname") while not rs.EOF choose1=choose1&"<option value="""&rs("id")&""">"&rs("MbName")&"</option>" rs.MoveNext wend rs.close end if thistype=thistype & "<a class=xoYuNewsSort href=html_listLB.asp>文章首页</a>" if request("id")<>"" then rs.open "select * from infotype where id="&request("id"),conn,1,1 if not rs.EOF then tname=rs("tname") ts=rs("ts") tj=rs("tj") TN=split(rs("tname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 thistype=thistype & ">> <a class=xoYuStudioSort href=html_listLB.asp?id="&TI(i)&">"&TN(i)&"</a>" next else response.write "<b>错误:</b>此ID号的类别不存在或已被删除!" response.end end if rs.close end if %> <tr> <td class="forumrow"> <B>文章分类位置:</B> <%=thistype%> </td> </tr> </table> <script language="javascript"> function deltype(id) { if (confirm('\n真的要删除该分类目录及其下面的所有分类和文章吗?')) if (confirm('\n再次确认!!!\n\n\n真的要删除该分类目录及其下面的所有分类和文章吗!?')) location="type_del.asp?sortid=<%=request("id")%>&id="+id } function delcx(id) {window.open("info_del.asp?id="+id,"","width=150,height=20,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");} function xoYuStudioMakeHTML(id) {window.open("info_makeinfo.asp?type=page&id="+id,"","width=150,height=20,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");} function xoYuStudio() { for (var i=0;i<document.xoYuStudioH.xoYuStudioID.length;i++) { var e=document.xoYuStudioH.xoYuStudioID[i]; e.checked=!e.checked; } } </script> <p></p> <table width="95%" cellspacing="1" cellpadding="1" align=center class="tableBorder"> <tr> <th width="35%" class="tableHeaderText" height=25>分类名称 </th> <th width="35%" class="tableHeaderText" height=25>操作 </th> </tr> <% set rs_list=server.CreateObject("ADODB.RecordSet") if request("id")<>"" then rs_list.open "select * from infotype where tn="&request("id")&" order by id",conn,1,1 else rs_list.open "select * from infotype where tj=1 order by id",conn,1,1 end if if NOT rs_list.EOF then do while NOT rs_list.EOF %> <% for t=1 to 4 if NOT rs_list.EOF then TTNN=split(rs_list("tname"),"|")(rs_list("tj")-1) %> <tr> <td height="25" width=35% class="forumrow"> <% if rs_list("last")="2" then%> <a href=html_listLB.asp?id=<%=rs_list("id")%>><img src="images/plus.gif" width="15" height="15" border="0"></a> <% else %> <img src="images/nofollow.gif" width="15" height="15"> <% end if %> <a href=html_listLB.asp?id=<%=rs_list("id")%>><%=TTNN%></a> (分类ID:<%=rs_list("id")%>) </td> <td width=65% align=right class="forumrow"><a href='javascript:deltype(<%=rs_list("id")%>)' title="删除分类"><font color="#000066"><U>删除分类</U></font></a> | <a href="type_edit.asp?id=<%=rs_list("id")%>" title="修改分类"><font color="#000066"><U>修改分类</U></font></a> | <a href="makehtmlall.asp?type=all&ts=<%=ts%><%=rs_list("id")%>," title="生成当前类目及其以下所有子类的HTM页"><font color="#000066"><U>生成文件</U></font></a> | <a href="../list/list_<%=rs_list("id")%>_1.html" title="查看文章列表页" target="_blank"><font color="#000066"><U>查看文件</U></font></a> | <a href="makelistjs.asp?tid=<%=rs_list("id")%>" title="生成本类最新文章js代码"><font color="#000066"><U>刷新JS</U></font></a> | <a href="html_list.asp?id=<%=rs_list("id")%>" title="查看本分类下的文章"><font color="#000066"><U>查看文章</U></font></a> | <a href="html_add.asp?id=<%=rs_list("id")%>" title="在本分类下添加文章"><font color="#000066"><U>添加文章</U></font></a> </td> </tr> <%rs_list.MoveNext end if next %> <% loop else Response.Write "此目录下没有子类别了" end if %> </tr> </table><BR><BR> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <form name=add method="post" action="type_add.asp?id=<%=request("id")%>&tname=<%=tname%>&ts=<%=ts%>&tj=<%=tj%>"> <input type="hidden" name="MaxPerPage" value="<%=MaxPerPageset%>"> <input type="hidden" name="jschalen" value="<%=jschalen%>"> <input type="hidden" name="toplen" value="<%=topchalen%>"> <input type="hidden" name="chalen" value="<%=chalen%>"> <input type="hidden" name="TypePicmore" value="<%=TypePicmore%>"> <input type="hidden" name="topshu" value="<%=topshu%>"> <input type="hidden" name="jsshu" value="<%=jsshu%>"> <input type="hidden" name="newshuset" value="<%=newshuset%>"> <input type="hidden" name="imagevwid" value="<%=imagevwid%>"> <input type="hidden" name="imagevlen" value="<%=imagevlen%>"> <input type="hidden" name="Imagevshu" value="<%=Imagevshu%>"> <input type="hidden" name="imagewid" value="<%=imagewid%>"> <input type="hidden" name="imagelen" value="<%=imagelen%>"> <input type="hidden" name="imageshu" value="<%=imageshu%>"> <td width="100%" class="forumrow"> <b> 当前分类下添加分类</b>:名称:<INPUT TYPE="text" size=45 NAME="tname_add"> 捆绑模版:<select name="MbName" size="1"> <%if MbName="" then %> <option value="" selected>暂无模版可被捆绑</option> <%else%> <%=choose1%> <%end if %> </select> <select size="1" name="last"> <option selected value="2">中间分类页</option> <option value="1">终端分类页</option> </select><INPUT value="新建分类" type='submit'></td> </form> </tr> </table> <p></p> <% end if %>