📄 admin_loaddown_up.asp
字号:
<!--#include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/Getfunction.asp"-->
<!--#include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<title>电子书管理 - 终点小说管理系统</title>
</head>
<body>
<%
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
cndb=request.querystring("cndb")
set rs2=server.CreateObject("ADODB.recordset")
sql2="select list_name from list_book where id="&id&" ORDER BY id"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
Call ShowAdminErrMsg("<li>作品不存在！</li><br>","javascript:window.close();")
response.end
else
list_name=rs2("list_name")
end if
rs2.close
set rs2=nothing
Select Case request.querystring("info")
Case "ALLTXT"
Call ALLTXT()
Case "listrar"
Call listrar()
Case "listjar"
Call listjar()
Case "listumd"
Call listumd()
end select
Sub ALLTXT()
if cndb="add" then
Makealltxt(id)
call connclose()
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("<li>作品 "&list_name&" 全文TXT生成操作成功！</li><br>","javascript:window.close();")
elseif cndb="up" then
%>
<table height="90%" cellspacing="0" cellpadding="0" width="100%" align="center" border="0" id="table1">
<tr>
<td valign="center" align="middle">
<table class="tBorder" cellspacing="1" cellpadding="0" width="500" align="center" border="0" id="table2">
<tr>
<td class="thead" height="25">终点小说连载系统 电子书上传 - 上传作品 <%=list_name%> 全文TXT</td>
</tr>
<tr>
<td class="alt3" valign="top" height="120">
<div id="panx1">
<table class="panel" height="120" cellspacing="1" cellpadding="1" width="500" align="center" border="0" id="table3">
<form name="formALLTXT" method="post" action="admin_loaddown_updo.asp?info=ALLTXT&cndb=<%=cndb%>&id=<%=id%>" enctype="multipart/form-data">
<tr>
<td height="28" align="left" valign="middle">上传作品 <%=list_name%> 全文TXT<br>
</td>
</tr>
<tr>
<td height="28" align="left" valign="middle">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="info" value="ALLTXT">
<input type="file" name="file1" size="50" class="form">
<input type="submit" class="form" name="Submit" value="上 传"></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<tr align="middle" height="25">
<td class="alt2" style="BORDER-TOP: #0b198c 1px solid">
<a style="COLOR: blue" href="javascript:window.close();">点击这里关闭窗口</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%elseif cndb="uup" then%>
<table height="90%" cellspacing="0" cellpadding="0" width="100%" align="center" border="0" id="table1">
<tr>
<td valign="center" align="middle">
<table class="tBorder" cellspacing="1" cellpadding="0" width="500" align="center" border="0" id="table2">
<tr>
<td class="thead" height="25">终点小说连载系统 电子书上传 - 更新作品 <%=list_name%> 全文TXT</td>
</tr>
<tr>
<td class="alt3" valign="top" height="120">
<div id="panx1">
<table class="panel" height="120" cellspacing="1" cellpadding="1" width="500" align="center" border="0" id="table3">
<form name="formALLTXT1" method="post" action="admin_loaddown_updo.asp?info=ALLTXT&cndb=<%=cndb%>&id=<%=id%>" enctype="multipart/form-data">
<tr>
<td height="28" align="left" valign="middle">更新上传 <%=list_name%> 全文TXT<br>
</td>
</tr>
<tr>
<td height="28" align="left" valign="middle">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="info" value="ALLTXT">
<input type="file" name="file1" size="50" class="form">
<input type="submit" class="form" name="Submit" value="上 传"></td>
</tr>
<tr>
<td height="28" align="center" valign="middle"><a style="COLOR: blue" href="admin_loaddown_up.asp?info=ALLTXT&cndb=add&id=<%=id%>">点击这里重新生成全文TXT</a></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<tr align="middle" height="25">
<td class="alt2" style="BORDER-TOP: #0b198c 1px solid">
<a style="COLOR: blue" href="javascript:window.close();">点击这里关闭窗口</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%elseif cndb="del" then
fileurl=server.MapPath(SiteSystemPath&"booktext/"&id&".txt")
Set Myfso=Server.CreateObject("Scripting.FileSystemObject")
IF Myfso.FileExists(fileurl) then
Set objCountFile = Myfso.GetFile(fileurl)
objCountFile.delete
Set objCountFile = Nothing
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("<li>作品 "&list_name&" 全文TXT文件删除操作成功！</li><br>","javascript:window.close();")
else
Call ShowAdminErrMsg("<li>作品 "&list_name&" 全文TXT文件不存在！</li><br>","javascript:window.close();")
end if
Set Myfso=Nothing
end if
end sub
Sub listrar()
if cndb="del" then
fileurl=server.MapPath(SiteSystemPath&"uploadpath/"&id&".rar")
Set Myfso=Server.CreateObject("Scripting.FileSystemObject")
IF Myfso.FileExists(fileurl) then
Set objCountFile = Myfso.GetFile(fileurl)
objCountFile.delete
Set objCountFile = Nothing
conn.execute ("update list_book set list_rar='' where id="&id)
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("<li>作品 "&list_name&" RAR压缩包文件删除操作成功！</li><br>","javascript:window.close();")
else
Call ShowAdminErrMsg("<li>作品 "&list_name&" RAR压缩包文件不存在！</li><br>","javascript:window.close();")
end if
Set Myfso=Nothing
else%>
<table height="90%" cellspacing="0" cellpadding="0" width="100%" align="center" border="0" id="table1">
<tr>
<td valign="center" align="middle">
<table class="tBorder" cellspacing="1" cellpadding="0" width="500" align="center" border="0" id="table2">
<tr>
<td class="thead" height="25">终点小说连载系统 电子书上传 - <%if cndb="up" then
response.write "上传"
elseif cndb="uup" then
response.write "更新"
end if%>作品 <%=list_name%> ZIP/RAR压缩包</td>
</tr>
<tr>
<td class="alt3" valign="top" height="120">
<div id="panx1">
<table class="panel" height="120" cellspacing="1" cellpadding="1" width="500" align="center" border="0" id="table3">
<form name="formlistrar" method="post" action="admin_loaddown_updo.asp?info=listrar&cndb=<%=cndb%>&id=<%=id%>" enctype="multipart/form-data">
<tr>
<td height="28" align="left" valign="middle"><%if cndb="up" then
response.write "上传"
elseif cndb="uup" then
response.write "更新"
end if%>作品 <%=list_name%> ZIP/RAR压缩包
</td>
</tr>
<tr>
<td height="28" align="left" valign="middle">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="info" value="listrar">
<input type="file" name="file1" size="50" class="form">
<input type="submit" class="form" name="Submit" value="上 传"></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<tr align="middle" height="25">
<td class="alt2" style="BORDER-TOP: #0b198c 1px solid">
<a style="COLOR: blue" href="javascript:window.close();">点击这里关闭窗口</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
end sub
Sub listjar()
if cndb="del" then
fileurl=server.MapPath(SiteSystemPath&"uploadpath/"&id&".jar")
Set Myfso=Server.CreateObject("Scripting.FileSystemObject")
IF Myfso.FileExists(fileurl) then
Set objCountFile = Myfso.GetFile(fileurl)
objCountFile.delete
Set objCountFile = Nothing
conn.execute ("update list_book set list_jar='' where id="&id)
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("<li>作品 "&list_name&" jar文件删除操作成功！</li><br>","javascript:window.close();")
else
Call ShowAdminErrMsg("<li>作品 "&list_name&" jar文件不存在！</li><br>","javascript:window.close();")
end if
Set Myfso=Nothing
else%>
<table height="90%" cellspacing="0" cellpadding="0" width="100%" align="center" border="0" id="table1">
<tr>
<td valign="center" align="middle">
<table class="tBorder" cellspacing="1" cellpadding="0" width="500" align="center" border="0" id="table2">
<tr>
<td class="thead" height="25">终点小说连载系统 电子书上传 - <%if cndb="up" then
response.write "上传"
elseif cndb="uup" then
response.write "更新"
end if%>作品 <%=list_name%> jar文件<br></td>
</tr>
<tr>
<td class="alt3" valign="top" height="120">
<div id="panx1">
<table class="panel" height="120" cellspacing="1" cellpadding="1" width="500" align="center" border="0" id="table3">
<form name="formlistjar" method="post" action="admin_loaddown_updo.asp?info=listjar&cndb=<%=cndb%>&id=<%=id%>" enctype="multipart/form-data">
<tr>
<td height="28" align="left" valign="middle"><%if cndb="up" then
response.write "上传"
elseif cndb="uup" then
response.write "更新"
end if%>作品 <%=list_name%> jar文件<br>
</td>
</tr>
<tr>
<td height="28" align="left" valign="middle">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="info" value="listjar">
<input type="file" name="file1" size="40" class="form">
<input type="submit" class="form" name="Submit" value="上 传"></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<tr align="middle" height="25">
<td class="alt2" style="BORDER-TOP: #0b198c 1px solid">
<a style="COLOR: blue" href="javascript:window.close();">点击这里关闭窗口</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
end sub
Sub listumd()
if cndb="del" then
fileurl=server.MapPath(SiteSystemPath&"uploadpath/"&id&".UMD")
Set Myfso=Server.CreateObject("Scripting.FileSystemObject")
IF Myfso.FileExists(fileurl) then
Set objCountFile = Myfso.GetFile(fileurl)
objCountFile.delete
Set objCountFile = Nothing
conn.execute ("update list_book set list_umd='' where id="&id)
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg("<li>作品 "&list_name&" UMD文件删除操作成功！</li><br>","javascript:window.close();")
else
Call ShowAdminErrMsg("<li>作品 "&list_name&" UMD文件不存在！</li><br>","javascript:window.close();")
end if
Set Myfso=Nothing
else%>
<table height="90%" cellspacing="0" cellpadding="0" width="100%" align="center" border="0" id="table1">
<tr>
<td valign="center" align="middle">
<table class="tBorder" cellspacing="1" cellpadding="0" width="500" align="center" border="0" id="table2">
<tr>
<td class="thead" height="25">终点小说连载系统 电子书上传 - <%if cndb="up" then
response.write "上传"
elseif cndb="uup" then
response.write "更新"
end if%>作品 <%=list_name%> UMD文件</td>
</tr>
<tr>
<td class="alt3" valign="top" height="120">
<div id="panx1">
<table class="panel" height="120" cellspacing="1" cellpadding="1" width="500" align="center" border="0" id="table3">
<form name="formlistumd" method="post" action="admin_loaddown_updo.asp?info=listumd&cndb=<%=cndb%>&id=<%=id%>" enctype="multipart/form-data">
<tr>
<td height="28" align="left" valign="middle"><%if cndb="up" then
response.write "上传"
elseif cndb="uup" then
response.write "更新"
end if%>作品 <%=list_name%> UMD文件<br>
</td>
</tr>
<tr>
<td height="28" align="left" valign="middle">
<input type="hidden" name="cndb" value="<%=cndb%>">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="info" value="listumd">
<input type="file" name="file1" size="40" class="form">
<input type="submit" class="form" name="Submit" value="上 传"></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<tr align="middle" height="25">
<td class="alt2" style="BORDER-TOP: #0b198c 1px solid">
<a style="COLOR: blue" href="javascript:window.close();">点击这里关闭窗口</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -