www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_sort.asp
<html>
<head>
<title>新闻文章管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<!--#include file="check.asp"-->
<!--#include file="top.asp"-->
<%
if CheckAdmin("DownAdminAll",xoYuStudioAdminAdmin) then
else
if CheckAdmin("DownAdd",xoYuStudioAdminAdmin) then
NotMe=xoYuStudioAdminName
else
response.write("<li>您没有进入本页面的权限!")
response.end
end if
end if%>
<!--#include file="mdb_path_down.asp"-->
<!--#include file="Downconfig.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
thistype=thistype & "<a class=xoYuStudioSort href=down_sort.asp>软件首页</a>"
if request("id")<>"" then
rs.open "select * from downtype 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=down_sort.asp?id="&TI(i)&">"&TN(i)&"</a>"
next
Response.Write("<input type=""hidden"" name=""id"" value=""" & rs("id") & """>")
Response.Write("<input type=""hidden"" name=""tname"" value=""" & rs("tname") & """>")
Response.Write("<input type=""hidden"" name=""ts"" value=""" & rs("ts") & """>")
Response.Write("<input type=""hidden"" name=""tj"" value=""" & rs("tj") & """>")
else
response.write "<b>错误：</b>此ID号的类别不存在或已被删除!"
response.end
end if
rs.close
end if
%>
<script language="javascript">
function deltype(id)
{
if (confirm('\n真的要删除该分类目录及其下面的所有分类和程序吗?'))
if (confirm('\n再次确认!!!\n\n\n真的要删除该分类目录及其下面的所有分类和程序吗!?'))
location="down_type_del.asp?sortid=<%=request("id")%>&id="+id
}
function delcx(id)
{window.open("down_cx_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("down_makesoft.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 class="forumrow" topmargin="1" leftmargin="1">
<table border="0" width="98%" align=center class="tableBorder">
<tr>
<td width="100%" class="tableHeaderText" height=25> <B>栏目位置：</B><%=thistype%></td>
</tr>
<tr>
<td width="100%" class="forumrow">
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<tr>
<th width="25%" class="forumHeaderBackgroundAlternate" height=25>
<p align="left"> 栏目名称
</th>
<th class="tableHeaderText" height=25>
<p align="left">操作
</th>
</tr>
<%
set rs_list=server.CreateObject("ADODB.RecordSet")
if request("id")<>"" then
rs_list.open "select * from downtype where tn="&request("id")&" order by id",conn,1,1
else
rs_list.open "select * from downtype where tj=1 order by id",conn,1,1
end if
if NOT rs_list.EOF then
do while NOT rs_list.EOF
%>
<tr colspan="2">
<%
for t=1 to 1
if NOT rs_list.EOF then
TTNN=split(rs_list("tname"),"|")(rs_list("tj")-1)
Response.Write("<td width='25%' nowrap class='forumrow'><img src=images/plus.gif width=15 height=15>")%>
<b><a href=down_sort.asp?id=<%=rs_list("id")%>><%=TTNN%></a></b> (栏目ID:<%=rs_list("id")%>)</td><td class="forumrow">
<div align="right"><a href='javascript:deltype(<%=rs_list("id")%>)' title="删除分类"><font color="#000066"><U>删除分类</U></font></a> | <a href="down_type_edit.asp?id=<%=rs_list("id")%>" title="修改类别"><font color="#000066"><U>修改类别</U></font></a> | <a href="down_makesortall.asp?type=all&ts=<%=ts%><%=rs_list("id")%>," title="生成当前类目及其以下所有子类的HTM页"><font color="#000066"><U>生成分类</U></font></a> | <a href="../d/L<%=rs_list("id")%>_1.html" title="查看列表页" target="_blank"><font color="#000066"><U>静态文件</U></font></a> |<a href="makesoftjs.asp?tid=<%=rs_list("id")%>" title="生成本类最新文章js代码"><font color="#000066"><U>刷新JS</U></font></a>| <a href="down_sort.asp?id=<%=rs_list("id")%>" title="查看本栏目下的软件"><font color="#000066"><U>查看软件</U></font></a> | <a href="down_cx_add.asp?id=<%=rs_list("id")%>" title="在本栏目下添加软件"><font color="#000066"><U>添加软件</U></font></a></div></td>
<%rs_list.MoveNext
end if
next
%></tr>
<%
loop
else
Response.Write "此目录下没有子类别了"
end if
%>
</table>
</td>
</tr>
</table>
<table border="0" cellspacing="0" width="98%" cellpadding="0" class="tableBorder" align=center>
<tr>
<form name=add method="post" action="down_type_add.asp?id=<%=request("id")%>&tname=<%=tname%>&ts=<%=ts%>&tj=<%=tj%>">
<td class="forumHeaderBackgroundAlternate">
<p align="left"><b>
</b>当前类目操作：<INPUT TYPE="text" size=15 NAME="tname_add"><INPUT value="新建分类" type='submit'><b> <a href="down_cx_add.asp?id=<%if request("tj")>1 then%><%=request("id")%><%end if%>" title="在当前类目下添加新软件">添加软件</a></b></td>
</form>
<td height="8" class="forumHeaderBackgroundAlternate">
<form action="down_cx_add1.asp" method=post>
<input type="checkbox" name="id" value="<%=request("id")%>">当前目录<input type="checkbox" name="d" value="add" checked><a href="javascript:" title="此功能用于当你要添加新软件时查找软件是否以存在,如果不存在则自动进入添加软件页面;使用此功能时只搜索[全部软件]软件名">添加查找</a><input name="k" size="12"><input type="submit" value="查找"></td>
</form> </td>
</table>
<br>
<table border="0" width="98%" cellspacing="1" class="tableBorder" align=center>
<tr>
<td width="100%">
<table border="0" cellspacing="0" class="tableBorder" width="100%" cellpadding="0">
<tr>
<th nowrap width="10%" class="tableHeaderText" height=25><b>相关软件</b></th>
<th nowrap width="90%" align="right" class="tableHeaderText" height=25>
<%if request("id")<>"" then%>当前目录操作：
<a title="生成当前类目及其以下所有子类的HTM页" href="down_makesortall.asp?type=all&ts=<%=ts%>">生成(全)HTM页</a>
<a title="只生成当前类目的HTM页(不包括其下的子类或单个软件)" href="down_makesortall.asp?type=page&id=<%=request("id")%>">生成(单)HTM页</a>
<a target="_blank" href="../d/L<%=request("id")%>_1.html">查看HTM页</a> <a href="down_type_edit.asp?id=<%=request("id")%>">编辑类目</a>
<a href="javascript:deltype(<%=request("id")%>)" title="删除">删除类目</a>
<a href="down_cx_add.asp?id=<%=request("id")%>">添加软件</a><%end if%></th>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" class="forumrow">
<%if request("id")<>"" then
set rs_type=server.CreateObject("ADODB.RecordSet")
sql_type="select * from downtype 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 (cxn like '%"&request("k")&"%' or cxv like '%"&request("k")&"%')"
end if
if NotMe<>"" then
sss=sss&" and user='"&NotMe&"'"
end if
if request("id")<>"" then
sql="select * from down where tid in ("&sqqq&")"&sss&" order by date desc"
else
sql="select top 36 * from down 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 '得到总页数
%>
<table border="0" width="100%" cellspacing="1" align=center>
<form action="down_sort_save.asp?id=<%=request("id")%>&page=<%=currentPage%>&k=<%=request("k")%>" method=post name="xoYuStudioH">
<tr>
<td width="100%" class="forumrow" colspan="7"><%call page()%></td>
</tr>
<tr>
<th width="8%" align="center" class="tableHeaderText" height=25>ID</th>
<th width="4%" nowrap class="tableHeaderText" height=25><a href="javascript:xoYuStudio()">选择</a></th>
<th width="100%" align="center" class="tableHeaderText" height=25>程 序 名 称</th>
<th width="4%" nowrap class="tableHeaderText" height=25>推荐</th>
<th width="4%" nowrap class="tableHeaderText" height=25>会员</th>
<th width="100%" align="center" nowrap class="tableHeaderText" height=25>更新日期</th>
<th width="100%" align="center" nowrap class="tableHeaderText" height=25>单项操作</th>
</tr>
<%
i=0
do while not rs.EOF%>
<tr class="forumrow">
<td width="8%" class="forumrow" align="center"><a target="_blank" href="../software/2kySoft_<%=rs("id")%>.html"><%=rs("id")%></a></td>
<td width="4%" class="forumrow" align="center"><input type="checkbox" name="xoYuStudioID" value="<%=rs("id")%>"></td>
<td width="100%" class="forumrow"><a href=../d/<%=rs("id")%>.html target=blank><%=rs("cxn")%> <%=rs("cxv")%></a></td>
<td width="4%" class="forumrow" align="center"><%if rs("show")="1" then%><font color="#FF0000">√</font><%else%><font color="#808080">×</font><%end if%></td>
<td width="4%" class="forumrow" align="center"><%if rs("hy")="2" then%><font color="#FF0000">②</font><%elseif rs("hy")="1" then%><font color="#008080">①</font><%else%><font color="#808080">○</font><%end if%></td>
<td width="100%" class="forumrow" nowrap align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
<td width="100%" class="forumrow" nowrap align="center"><a href=down_cx_edit.asp?id=<%=rs("id")%> title="修改">修改</a>|<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>
<th width="8%" align="center" class="tableHeaderText" height=25>ID</th>
<th width="4%" nowrap class="tableHeaderText" height=25><a href="javascript:xoYuStudio()">选择</a></th>
<th width="100%" align="center" class="tableHeaderText" height=25>程 序 名 称</th>
<th width="4%" nowrap class="tableHeaderText" height=25>推荐</th>
<th width="4%" nowrap class="tableHeaderText" height=25>会员</th>
<th width="100%" align="center" nowrap class="tableHeaderText" height=25>更新日期</th>
<th width="100%" align="center" nowrap class="tableHeaderText" height=25>单项操作</th>
</tr>
<tr>
<td width="100%" colspan="7" class="forumrow">
<div align="center"><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页">| <select name="hot">
<option selected value=""></option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select><input onClick="{if(confirm('确定修改选定软件评级吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="星级" type="submit" title="更改选定软件的星级">| <select name="show">
<option selected value=""></option>
<option value="0">取消</option>
<option value="1">推荐</option>
</select><input onClick="{if(confirm('确定更改选定软件推荐度吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="推荐" type="submit" title="更改选定软件是否推荐">| <select name="cd">
<option selected value=""></option>
<%
if xoYuDownLb<>"" then
LB=split(xoYuDownLb,",")
for i=0 to ubound(LB)
if LB(i)<>"在线电影" and LB(i)<>"精彩动画" and LB(i)<>"特别软件" then
response.write "<option value='"&LB(i)&"'>"&LB(i)&"</option>"
end if
next
end if
%>
</select><input onClick="{if(confirm('确定更改选定软件类别吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="类别" type="submit" title="更改选定软件的类别">| <select name="hy">
<option selected value=""></option>
<option value="0">取消限制</option>
<option value="1">普通会员</option>
<option value="2">高级会员</option>
</select><input onClick="{if(confirm('确定更改选定软件会员下载级别吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" name="xoYuStudioDo" value="会员" type="submit" title="更改选定软件是否会员软件"></div></td>
</tr>
<tr>
<td width="100%" 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="#008000"><-</font><a title="生成此类目下所有软件下载HTML页 (类目请看最上面)" href="down_makesoftall.asp?type=list&ts=<%=ts%>"><font color="#008000">生成本类下载页</font></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=down_sort.asp?id=<%=request("id")%>&k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=down_sort.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=down_sort.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=down_sort.asp?id=<%=request("id")%>&page=<%=pageno+1%>&k=<%=request("k")%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=down_sort.asp?id=<%=request("id")%>&page=<%=mpage%>&k=<%=request("k")%>><%end if%>->></a> ]<%
end sub%>
</td>
</tr>
</form>
</table>
<%end if%>
</td>
</tr>
</table>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing%>