📄 down_sort.asp
字号:
<html>
<head>
<title>MyFlash管理中心</title>
<style>
td{font-size:9pt;line-height:140%}
body{font-size:9pt;line-height:140%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #4D9CC8; text-decoration: none }
a:hover { color: #4D9CC8; text-decoration: underline}
a.JyDownSort:link { color: #FFFFFF; text-decoration: none }
a.JyDownSort:visited { color: #FFFFFF; text-decoration: none }
a.JyDownSort:hover { color: #DFDFDF; text-decoration: underline}
</style>
<!--#include file="check.asp"-->
<%if CheckAdmin("DownAdminAll",JyDownAdminAdmin) then
else
if CheckAdmin("DownAdd",JyDownAdminAdmin) then
NotMe=JyDownAdminName
else
response.write("<li>您没有进入本页面的权限!")
response.end
end if
end if%>
<!--#include file="mdb_path_down.asp"-->
<!--#include file="config.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
Response.Write("<form name=""listform"" action=""down_list.asp"" method=""GET"" target=""JyDown_w32"">")
thistype=thistype & "<a class=JyDownSort 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
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=JyDownSort 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
Response.Write("<input type=""hidden"" name=""type"" value=""" & thistype & """></form>")
Response.Write("<script language=""JavaScript"">document.listform.submit()</script>")
%>
<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 JyDownMakeHTML(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 JyDown() {
for (var i=0;i<document.JyDownH.JyDownID.length;i++) {
var e=document.JyDownH.JyDownID[i];
e.checked=!e.checked;
}
}
</script>
</head>
<body bgcolor="#FFFFFF" topmargin="1" leftmargin="1">
<table border="0" width="100%" bgcolor="#cococo" cellspacing="1" style="border-collapse: collapse">
<tr>
<td width="100%" bgcolor="#4D9CC8"><b><%=thistype%></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<%
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>
<%
for t=1 to 4
if NOT rs_list.EOF then
TTNN=split(rs_list("tname"),"|")(rs_list("tj")-1)
Response.Write("<td width='25%' nowrap><li>")%>
<a href='javascript:deltype(<%=rs_list("id")%>)' title="删除分类"><font color="#4D9CC8">删</font></a>/<a href="down_type_edit.asp?id=<%=rs_list("id")%>" title="修改类别"><font color="#008000">改</font></a>/<a href="down_makesortall.asp?type=all&ts=<%=ts%><%=rs_list("id")%>," title="生成当前类目及其以下所有子类的HTM页"><font color="#4D9CC8">制</font></a>/<a href="../flash_fl/<%=rs_list("id")%>_1.htm" title="查看作 品列表页" target="_blank"><font color="#008000">页</font></a>||<a href=down_sort.asp?id=<%=rs_list("id")%>><%=TTNN%></a>
<%rs_list.MoveNext
end if
next
%></tr>
<%
loop
else
Response.Write "此目录下没有子类别了"
end if
%>
</table>
</td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" height="1">
<tr>
<td width="100%"></td>
</tr>
</table>
<table border="0" width="100%" bgcolor="#cococo" cellspacing="1" style="border-collapse: collapse">
<tr>
<td width="100%" bgcolor="#9F9F9F">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td nowrap width="10%"><b>相关作 品</b></td>
<td nowrap width="90%" align="right">
<%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="../flash_fl/<%=request("id")%>_1.htm">查看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%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<%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 * 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" bgcolor="#F4F4F4" style="border-collapse: collapse" bordercolor="#111111">
<form action="down_sort_save.asp?id=<%=request("id")%>&page=<%=currentPage%>&k=<%=request("k")%>" method=post name="JyDownH">
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="7"><%call page()%></td>
</tr>
<tr>
<td width="8%" bgcolor="#C0C0C0" align="center">ID</td>
<td width="4%" bgcolor="#C0C0C0" nowrap><a href="javascript:JyDown()">选择</a></td>
<td width="100%" bgcolor="#C0C0C0" align="center">作 品 名 称</td>
<td width="4%" bgcolor="#C0C0C0" nowrap>推荐</td>
<td width="4%" bgcolor="#C0C0C0" nowrap>会员</td>
<td width="100%" bgcolor="#C0C0C0" align="center" nowrap>更新日期</td>
<td width="100%" bgcolor="#C0C0C0" align="center" nowrap>单项操作</td>
</tr>
<%
i=0
do while not rs.EOF%>
<tr bgcolor="#FFFFFF">
<td width="8%" bgcolor="#E9E9E9" align="center"><a target="_blank" href="../flash/<%=rs("id")%>.htm"><%=rs("id")%></a></td>
<td width="4%" bgcolor="#E9E9E9" align="center"><input type="checkbox" name="JyDownID" value="<%=rs("id")%>"></td>
<td width="100%"><a href=down_cx_edit.asp?id=<%=rs("id")%>><%=rs("cxn")%></a></td>
<td width="4%" align="center"><%if rs("show")="1" then%><font color="#4D9CC8">√</font><%else%><font color="#808080">×</font><%end if%></td>
<td width="4%" align="center"><%if rs("hy")="2" then%><font color="#4D9CC8">②</font><%elseif rs("hy")="1" then%><font color="#008080">①</font><%else%><font color="#808080">○</font><%end if%></td>
<td width="100%" nowrap align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
<td width="100%" nowrap align="center"><a href="javascript:delcx(<%=rs("id")%>)" title="删除">删除</a>|<a href="javascript:JyDownMakeHTML(<%=rs("id")%>)" title="生成HTML页">生成</a></td>
</tr>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop %>
<tr>
<td width="8%" bgcolor="#C0C0C0" align="center">ID</td>
<td width="4%" bgcolor="#C0C0C0" nowrap><a href="javascript:JyDown()">选择</a></td>
<td width="100%" bgcolor="#C0C0C0" align="center">作 品 名 称</td>
<td width="4%" bgcolor="#C0C0C0" nowrap>推荐</td>
<td width="4%" bgcolor="#C0C0C0" nowrap>会员</td>
<td width="100%" bgcolor="#C0C0C0" align="center" nowrap>更新日期</td>
<td width="100%" bgcolor="#C0C0C0" align="center" nowrap>单项操作</td>
</tr>
<tr>
<td width="100%" colspan="7" bgcolor="#F4F4F4">
<p align="center">
<input onClick="{if(confirm('确定删除选定作 品吗!?')){this.document.JyDownH.submit();return true;}return false;}" name="JyDownDo" value="删除" type="submit" title="删除选定记录"> | <input onClick="{if(confirm('确定移动选定作 品吗!?')){this.document.JyDownH.submit();return true;}return false;}" name="JyDownDo" value="移动" type="submit" title="移动选定记录">
| <input onClick="{if(confirm('确定生成选定作 品下载HTML页面吗!?')){this.document.JyDownH.submit();return true;}return false;}" name="JyDownDo" 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.JyDownH.submit();return true;}return false;}" name="JyDownDo" 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.JyDownH.submit();return true;}return false;}" name="JyDownDo" value="推荐" type="submit" title="更改选定作 品是否推荐"> | <select name="cd">
<option selected value=""></option>
<%
if webDownLb<>"" then
LB=split(webDownLb,",")
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.JyDownH.submit();return true;}return false;}" name="JyDownDo" 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.JyDownH.submit();return true;}return false;}" name="JyDownDo" value="会员" type="submit" title="更改选定作 品是否会员作 品"></td>
</tr>
<tr>
<td width="100%" colspan="7" bgcolor="#FFFFFF">
<%
call page()
sub page()%>页次：<b><font color="#4D9CC8"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,<%if request("k")<>"" then%><font color="#4D9CC8">搜到</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="#4D9CC8"><%=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%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -