📄 xxdown_sort.asp
字号:
<html>
<head>
<title>管理中心 - 下.载.系.统.(.H.T.M.L.版.)</title>
<style>
td{font-size:9pt;line-height:120%}
body{font-size:9pt;line-height:120%}
a:link { color: #666666; text-decoration: none }
a:visited { color: #666666; text-decoration: none }
a:active { color: #666666; text-decoration: none }
a:hover { color: #000000; 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_info.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
Response.Write("<form name=""listform"" action=""xxdown_list.asp"" method=""GET"" target=""JyDown_w32"">")
thistype=thistype & "<a class=JyDownSort href=xxdown_sort.asp>文章首页</a>"
if request("id")<>"" then
rs.open "select * from infotypedown 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=stock_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="xxdown_type_del.asp?sortid=<%=request("id")%>&id="+id
}
function delcx(id)
{window.open("xxdown_del.asp?id="+id,"","width=250,height=20,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
function JyDownMakeHTML(id)
{window.open("xxdown_makeinfo.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="#E6E6E6" cellspacing="1" style="border-collapse: collapse">
<tr>
<td width="100%" bgcolor="#BBAADD" height="26"> <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 infotypedown where tn="&request("id")&" order by id",conn,1,1
else
rs_list.open "select * from infotypedown 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>·")%>
<a href=xxdown_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="#E6E6E6" cellspacing="1">
<tr>
<td width="100%" bgcolor="#ffffff">
<table border="0" cellspacing="0" width="100%" cellpadding="0" height="24">
<tr>
<td nowrap width="10%" bgcolor="#BBAADD"> <b><font color="#FFFFFF">相关文章</font></b></td>
<td nowrap width="90%" align="right" bgcolor="#BBAADD">
<%if request("id")<>"" then%>当前目录操作：
<a href="xxdown_add.asp?id=<%=request("id")%>"><font color="#FF0000">添加软件</font></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 infotypedown 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 infodown where tid in ("&sqqq&")"&sss&" order by date desc"
else
sql="select * from infodown 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="xxdown_sort_save.asp?id=<%=request("id")%>&page=<%=currentPage%>&k=<%=request("k")%>" method=post name="JyDownH">
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="5" height="20"> <%call page()%></td>
</tr>
<tr>
<td width="8%" bgcolor="#BBAADD" align="center" height="22"><font color="#FFFFFF">ID</font></td>
<td width="4%" bgcolor="#BBAADD" nowrap height="22"><a href="javascript:JyDown()"><font color="#FFFFFF">选择</font></a></td>
<td width="100%" bgcolor="#BBAADD" align="center" height="22"><font color="#FFFFFF">程 序 名 称</font></td>
<td width="100%" bgcolor="#BBAADD" align="center" nowrap height="22"><font color="#FFFFFF">更新日期</font></td>
<td width="100%" bgcolor="#BBAADD" align="center" nowrap height="22"><font color="#FFFFFF">单项操作</font></td>
</tr>
<%
i=0
do while not rs.EOF%>
<tr bgcolor="#FFFFFF">
<td width="8%" bgcolor="#E9E9E9" align="center"><a target="_blank" href="../down/<%=rs("id")%>.asp"><%=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=xxdown_edit.asp?id=<%=rs("id")%>><%=rs("title")%></a></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="100%" colspan="5" bgcolor="#FFFFFF" height="20">
<%
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>个
<%
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=xxdown_sort.asp?id=<%=request("id")%>&k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=xxdown_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=xxdown_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=xxdown_sort.asp?id=<%=request("id")%>&page=<%=pageno+1%>&k=<%=request("k")%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=xxdown_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 + -