www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/special_list.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="top.asp"--> <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> <% '========================================== ' ' 晓宇听幽新闻文章管理系统 2004 ' ' 主页地址:http://www.xoYu.com ' '========================================== '程序名称:晓宇听幽新闻文章管理系统 '英文名称:xoYu News 2004 Professional '程序创建时间:2003-7-10 '程序完成时间:2003-9-11 '最后修改时间:2003-10-10 '========================================== set rs=server.CreateObject("ADODB.RecordSet") thistype=thistype & "<a class=xoYuStudioSort href=SpecialLB.asp>专题首页</a>" if request("id")<>"" then rs.open "select * from Specialx where id="&request("id"),conn,1,1 if not rs.EOF then ts=rs("ts") tj=rs("tj") last=rs("last") MaxPerPage=rs("MaxPerPage") TN=split(rs("sname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 thistype=thistype & ">> <a class=xoYuStudioSort href=SpecialLB.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><p> <script language="javascript"> function deltype(id) { if (confirm('\n真的要删除该分类目录及其下面的所有分类和文章吗?')) if (confirm('\n再次确认!!!\n\n\n真的要删除该分类目录及其下面的所有分类和文章吗!?')) location="special_type_del.asp?sortid=<%=request("id")%>&id="+id } function delcx(id) {window.open("Html_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("makehtml.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> </head> <body> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <th width="15%" colspan=2><b> <img border="0" src="images/t_log.gif"> <font color="#FFFFFF">相关文章</font></b></th> <th width="85%" colspan=2 align="right"> <%if request("id")<>"" then%><font color="#FFFFFF">当前目录操作: </font> <a title="生成当前类目及其以下所有子类的HTM页" href="Special_makeListall.asp?type=all&ts=<%=ts%>"> <font color="#FFFFFF">生成(全)HTM页</font></a><font color="#FFFFFF"> </font> <a title="只生成当前类目的HTM页(不包括其下的子类或单篇文章)" href="Special_makeListall.asp?type=page&id=<%=request("id")%>&ts=<%=ts%>&last=<%=last%>&MaxPerPage=<%=MaxPerPage%>"> <font color="#FFFFFF">生成(单)HTM页</font></a><font color="#FFFFFF"> </font> <a target="_blank" href="../Special/List_<%=request("id")%>_1.Html"> <font color="#FFFFFF">查看HTM页</font></a><font color="#FFFFFF"> </font> <a href="spcial_type_edit.asp?id=<%=request("id")%>"> <font color="#FFFFFF">编辑类目</font></a><font color="#FFFFFF"> </font> <a href="javascript:deltype(<%=request("id")%>)" title="删除"> <font color="#FFFFFF">删除类目</font></a><font color="#FFFFFF"> </font> <a href="Html_add.asp?spid=<%=request("id")%>"><font color="#FFFFFF">添加文章</font></a><font color="#FFFFFF"><%end if%></font></th> </tr> </table> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <%if request("id")<>"" then set rs_type=server.CreateObject("ADODB.RecordSet") sql_type="select * from Specialx where ts like '"&ts&"%'" rs_type.open sql_type,conn,1,1 do while not rs_type.EOF sqqq=sqqq&""&rs_type("id")&", " rs_type.MoveNext loop rs_type.close end if if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=18 '###每页显示条数 if request("k")<>"" then sss=" and title like '%"&request("k")&"%'" end if if NotMe<>"" then sss=sss&" and user='"&NotMe&"'" end if if request("id")<>"" then sql="select * from info where sid in ("&sqqq&")"&sss&" order by date desc" else sql="select * from info where id<>0"&sss&" order by date desc" end if rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>还没找到文章</p>" else totalPut=rs.recordcount rs.move (currentPage-1)*MaxPerPage rs.pagesize=MaxPerPage '得到每页数 mpage=rs.pagecount '得到总页数 %> <form action="Html_List_save.asp?id=<%=request("id")%>&page=<%=currentPage%>&k=<%=request("k")%>" method=post name="xoYuStudioH"> <tr> <td width="61" align="center" class=forumHeaderBackgroundAlternate>ID</td> <td width="31" align="center" class=forumHeaderBackgroundAlternate><a href="javascript:xoYuStudio()"> <font color="#FFFFFF">选择</font></a></td> <td width="520" align="center" class=forumHeaderBackgroundAlternate>文 章 名 称</td> <td width="140" align="center" class=forumHeaderBackgroundAlternate>添加到js列表</td> <td width="60" align="center" nowrap class=forumHeaderBackgroundAlternate>更新日期</td> <td width="60" align="center" nowrap class=forumHeaderBackgroundAlternate>单项操作</td> </tr> <% i=0 do while not rs.EOF%> <tr bgcolor="#FFFFFF"> <td width="61" class="forumrow" align="center"><a target="_blank" href="../html/<%=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))%>-1.Html"><%=rs("id")%></a></td> <td width="31" class="forumrow" align="center"><input type="checkbox" name="xoYuStudioID" value="<%=rs("id")%>"></td> <td width="520" class="forumrow"><a href=Html_edit.asp?id=<%=rs("id")%>><%=rs("title")%></a></td> <td align="center" width="140" class="forumrow"> <a href="NewsAddJS.asp?filename=<%=rs("id")%>">添加到JS列表</a></td> <input type=hidden Name=FileName value=<%=rs("id")%>> <td width="60" class="forumrow" align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td> <td width="55" class="forumrow" align="center"><a href="javascript:delcx(<%=rs("id")%>)" title="删除">删除</a>|<a href="javascript:xoYuStudioMakeHTML(<%=rs("id")%>)" title="生成HTML页">生成</a></td> </tr> <%i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> <tr> <td width="61" class=forumHeaderBackgroundAlternate align="center">ID</td> <td width="31" class=forumHeaderBackgroundAlternate align="center"><a href="javascript:xoYuStudio()"> <font color="#FFFFFF">选择</font></a></td> <td width="520" class=forumHeaderBackgroundAlternate align="center">文 章 名 称</td> <td width="140" class=forumHeaderBackgroundAlternate align="center">添加到js列表</td> <td width="60" class=forumHeaderBackgroundAlternate align="center" nowrap>更新日期</td> <td width="55" class=forumHeaderBackgroundAlternate align="center" nowrap>单项操作</td> </tr> <tr> <td width="100%" colspan="6" class=forumrow> <p> <input onClick="{if(confirm('确定删除选定文章吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="删除" type="submit" title="删除选定记录"> | <input onClick="{if(confirm('确定移动选定文章吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="移动" type="submit" title="移动选定记录"> | <input onClick="{if(confirm('确定生成选定文章HTML页吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="生成" type="submit" title="生成选定文章的HTML页"></td> </tr> <tr> <td width="100%" colspan="6" class="forumrow"> <% call page() sub page()%>页次:<b><font color="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>篇,<%if request("k")<>"" then%><font color="#FF0000">搜到</font><%else%>当前<%end if%>文章<b><%=totalPut%></b>篇(<font color="#000000">生成操作:</font><a title="生成此类文章html页面" href="Html_makeinfoall.asp?type=list&ts=<%=ts%>"><img border="0" src="images/t_html.gif"></a>) <% pageno=currentPage if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then pageno=1 end if %> [ <%if cint(pageno)>1 then%><a href=Html_List.asp?id=<%=request("id")%>&k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=Html_List.asp?id=<%=request("id")%>&page=<%=pageno-1%>&k=<%=request("k")%>><%end if%><-</a><% pp=cint(pageno)-3 if pp<1 then pp=1 end if for pno=pp to mpage p=p+1 if pno=cint(pageno) then%> <font color="#FF0000"><%=pno%></font><%else%> <a href=Html_List.asp?id=<%=request("id")%>&page=<%=pno%>&k=<%=request("k")%>><%=pno%></a><%end if%> <% if p>=7 then exit for next%> <%if cint(pageno)< mpage then%> <a href=Html_List.asp?id=<%=request("id")%>&page=<%=pageno+1%>&k=<%=request("k")%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=Html_List.asp?id=<%=request("id")%>&page=<%=mpage%>&k=<%=request("k")%>><%end if%>->></a> ]<% end sub%> </td> </tr> </form> </table> <%end if%> </td> </tr> </table><br> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <form action="Html_add1.asp" method=post> <th width="100%"><p align="left"><input type="checkbox" name="id" value="<%=request("id")%>">当前目录 <input type="checkbox" name="d" value="add"><a href="javascript:" title="此功能用于当你要添加新的文章时查找文章是否以存在,如果不存在则自动进入添加文章页面;"><b><font color="#FFFFFF">添加查找</font></b></a><input name="k" size="18"><input type="submit" value="文章查找" ></th> </form> </th> </table> </body> </html> <% set rs=nothing conn.close set conn=nothing%>