📄 admin_loaddown.asp
字号:
<!--#include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!--#include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<link href="css.css" rel="stylesheet" type="text/css">
<title><%=Sitename%> - 电子书管理模块 - Powered By CnEnd Novelsmanagement</title>
<script language="javaScript" SRC="../js/js.js"></SCRIPT>
<style type="text/css">
<!--
.style1 {color: #FF0000}
#table td{
border-color: #4A4AFF;
border-style: solid;
border-width: 1px;
background-color: #5369E8;
}
-->
</style>
</head>
<body>
<div id=topmomo><a href="admin_loaddown.asp?info=load" target="right">
电子书管理</a>
| <a href="admin_loaddown.asp?info=down" target="right">
电子书下载管理</a>
| <a href="admin_loaddown.asp?info=other" target="right">
其他信息</a></div><br>
<%
select case request.QueryString("info")
case "load"
call load()
case "down"
call down()
case "other"
call other()
end select
'----------------相关函数定义开始----------------
function load()
dim listName,listlei,listClass,listDate,listsql,Rs
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set Rs = server.CreateObject("adodb.recordset")
listsql = "select list_book.id as id, list_book.list_name as listname, list_book.list_rar as listrar,list_book.list_jar as listjar,list_book.list_umd as listumd from list_book order by id desc"
'MySQL需要如下语句
conn.CursorLocation=3
Rs.open listsql, conn,1,1
if rs.bof and Rs.eof Then
if err.number>0 Then
response.Write err.number&"<br>"
response.Write err.source&"<br>"
response.Write err.description&"<br>"
end if
response.write "<tr align=center><td height=22 colspan=9 valign=middle class=alt2>暂时没有任何作品，请添加！</td></tr>"
exit function
else%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b>电子书管理</b></td>
</tr>
<tr height=25 align="center">
<td width="5%" class="tcat">ID</td>
<td width="4%" class="tcat">选择</td>
<td width=23% class="tcat">作品名称</td>
<td width=17% class="tcat">全文TXT</td>
<td width=17% class="tcat">ZIP/RAR压缩包</td>
<td width=17% class="tcat">jar文件</td>
<td width=17% class="tcat">UMD文件</td>
</tr>
<%
Rs.PageSize=MaxDbookPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
Set Myfso=Server.CreateObject("Scripting.FileSystemObject")
do while not rs.eof
fileurl=server.MapPath(SiteSystemPath&"booktext/"&Rs("id")&".txt")
%>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_loadlist.asp">
<tr height=22 align="center">
<td class="alt1"><%=rs("id")%></td>
<td class="alt2"><input type="checkbox" name="checked" value="<%=rs("id")%>" class="form"></td>
<td class="alt1" align="left"> <a href=<%=SiteSystemPath%>look_book.asp?id=<%=Rs("id")%> target=_blank><%=Rs("listname")%></a></td>
<td class="alt2"><%if MyFSO.FileExists(fileurl) then
response.write "<input class='button' type='button' name='ALLTXT' value='更 新' onclick=""javascript:window.open('admin_loaddown_up.asp?info=ALLTXT&cndb=uup&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
response.write "<input class='button' type='button' name='ALLTXT' value='删 除' onclick=""javascript:window.open('admin_loaddown_up.asp?info=ALLTXT&cndb=del&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
else
response.write "<input class='button' type='button' name='ALLTXT' value='上 传' onclick=""javascript:window.open('admin_loaddown_up.asp?info=ALLTXT&cndb=up&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
response.write "<input class='button' type='button' name='ALLTXT' value='生 成' onclick=""javascript:window.open('admin_loaddown_up.asp?info=ALLTXT&cndb=add&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
end if%></td>
<td class="alt1">
<%if (Rs("listrar")<>"") then
response.write "<input class='button' type='button' name='listrar' value='更 新' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listrar&cndb=uup&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
response.write "<input class='button' type='button' name='listrar' value='删 除' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listrar&cndb=del&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
else
response.write "<input class='button' type='button' name='listrar' value='上 传' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listrar&cndb=up&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
end if%></td>
<td class="alt2">
<%if (Rs("listjar")<>"") then
response.write "<input class='button' type='button' name='listjar' value='更 新' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listjar&cndb=uup&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
response.write "<input class='button' type='button' name='listjar' value='删 除' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listjar&cndb=del&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
else
response.write "<input class='button' type='button' name='listjar' value='上 传' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listjar&cndb=up&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
end if%></td>
<td class="alt1">
<%if (Rs("listumd")<>"") then
response.write "<input class='button' type='button' name='listumd' value='更 新' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listumd&cndb=uup&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
response.write "<input class='button' type='button' name='listumd' value='删 除' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listumd&cndb=del&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
else
response.write "<input class='button' type='button' name='listumd' value='上 传' onclick=""javascript:window.open('admin_loaddown_up.asp?info=listumd&cndb=up&id="&rs("id")&"','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')"" style='width: 60; height: 20'>"
end if%></td>
</tr>
<%
i=i+1
If i>=MaxDbookPerPage Then Exit Do
Rs.MoveNext
Loop
%><tr>
<input type="hidden" name="Page" value="<%=CurrentPage%>">
<input type="hidden" name="urltype" value="list">
<td height="20" align="center" colspan="9" class="alt3">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="生成全文TXT" name="info" style="width: 80; height: 20">
<input class="button" type="submit" value="删除全文TXT" name="info" style="width: 80; height: 20">
<input class="button" type="submit" value="删除ZIP/RAR" name="info" style="width: 80; height: 20">
<input class="button" type="submit" value="删除jar文件" name="info" style="width: 80; height: 20">
<input class="button" type="submit" value="删除UMD文件" name="info" style="width: 80; height: 20">
</td>
</tr>
</form>
<%end if
Set Myfso=Nothing '释放MyFso
Rs.Close
Set Rs=Nothing%>
<tr align="center">
<td height="25" colspan="9" valign="middle" class="alt2"><%Response.Write ShowPage("admin_loaddown.asp?info=load",CurrentPage,Num,MaxDbookPerPage,True,True," 个项目")%></td>
</tr>
</table>
<%end function
'作用:下载管理
'=====================
sub down()
%>
<table width="90%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>暂未开发，</td>
</tr>
</table>
<%
end sub
sub other
%>
<table width="90%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>暂未开发，</td>
</tr>
</table>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -