www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/html_list.asp

    <html>
<head>
<title>管理中心 -共享世纪新闻文章管理系统</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.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>
<%
thistype=thistype & "<a class=xoYuStudioSort href=html_listLB.asp>文章首页</b></a>"
if request("id")<>"" then
  rs.open "select * from infotype 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("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><p>
<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("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>&nbsp;<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="makelistall.asp?type=all&ts=<%=ts%>">
      <font color="#FFFFFF">生成(全)HTM页</font></a><font color="#FFFFFF"> </font>
      <a title="只生成当前类目的HTM页(不包括其下的子类或单篇文章)" href="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="../List/List_<%=request("id")%>_1.Html">
      <font color="#FFFFFF">查看HTM页</font></a><font color="#FFFFFF"> </font> <a href="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?id=<%=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 infotype 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 tid 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="41" align="center" class=forumHeaderBackgroundAlternate>ID</td>
      <td width="20" align="center" class=forumHeaderBackgroundAlternate><a href="javascript:xoYuStudio()">
      <font color="#FFFFFF">选择</font></a></td>
      <td width="350" align="center" class=forumHeaderBackgroundAlternate>文 章 名 称</td>
      <td width="85" align="center" class=forumHeaderBackgroundAlternate>添加到js列表</td>
      <td width="71" align="center" nowrap class=forumHeaderBackgroundAlternate>更新日期</td>    
      <td width="20" align="center" nowrap class=forumHeaderBackgroundAlternate>编辑</td>    
      <td width="54" align="center" nowrap class=forumHeaderBackgroundAlternate>单项操作</td>    
    </tr>
<%
i=0
do while not rs.EOF
fileming=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))%>
    <tr bgcolor="#FFFFFF">
      <td width="41" class=forumrow align="center"><a target="_blank" href="../html/<%=fileming%>-1.Html"><%=rs("id")%></a></td>
      <td width="20" class=forumrow align="center"><input type="checkbox" name="xoYuStudioID" value="<%=rs("id")%>"></td>
      <td width="350" class=forumrow><a href=html_edit.asp?id=<%=rs("id")%>><%=rs("title")%></a></td>
      <td align="center" width="85" class=forumrow>
      <a href="NewsAddJS.asp?filename=<%=rs("id")%>">添加到JS列表</a></td>
      <input type=hidden Name=FileName value=<%=rs("id")%>>
      <td width="71" nowrap align="center" class=forumrow><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
      <td width="20" nowrap align="center" class=forumrow><%=rs("user")%></td>
      <td width="54" nowrap align="center" class=forumrow><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="41" class=forumHeaderBackgroundAlternate align="center">ID</td>
      <td width="20" class=forumHeaderBackgroundAlternate align="center"><a href="javascript:xoYuStudio()">
      <font color="#FFFFFF">选择</font></a></td>
      <td width="350" class=forumHeaderBackgroundAlternate align="center">文 章 名 称</td>
      <td width="85" class=forumHeaderBackgroundAlternate align="center">添加到js列表</td>
      <td width="71" class=forumHeaderBackgroundAlternate align="center" nowrap>更新日期</td>    
      <td width="20" class=forumHeaderBackgroundAlternate align="center" nowrap>
      编辑</td>    
      <td width="54" class=forumHeaderBackgroundAlternate align="center" nowrap>单项操作</td>    
    </tr>
    <tr>
      <td width="713" colspan="7" 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="713" colspan="7" 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="makehtmlall.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?id=<%=request("id")%>&page=<%=mpage%>&k=<%=request("k")%>><%end if%>-&gt;&gt;</a> ]<%
end sub%>
     </td>
    </tr>
   </form>
  </table><p>
<%end if%> 
<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")%>">当前目录&nbsp;<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>  
<%
end if
set rs=nothing  
conn.close  
set conn=nothing%>