📄 admin_loadlist.asp

📁 小说站源代码文件
💻 ASP
字号:
<!--#include file="../conn.asp" --><%Response.buffer=False %>
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/GetFunction.asp"-->
<!--#include file="../inc/upfile.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">
</head>

<body>

<%
Server.ScriptTimeOut=48000 '设定操作超时的时间（因为程序运行速度慢啊）
info=request.querystring("info")
If info="" Then
	ErrCodes = ErrCodes & "<li>参数传递错误！</li><br>"
	FoundErr=True
End If
id=trim(request("checked"))
If ID="" Then
	ErrCodes = ErrCodes & "<li>您至少需要选择一部作品！</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close();")
else
	ID=replace(ID," ","")
	Select Case info
		Case "删除ZIP/RAR"
			Call listrardel()
		Case "删除jar文件"
			Call listjardel()
		Case "删除UMD文件"
			Call listumddel()
		Case "删除全文TXT"
			Call listtxtdel()
		Case "生成全文TXT"
			Call listtxt()
	end select 

	sub listrardel()
		viewArray=Split(ID, ",")
		Set Myfso=Server.CreateObject("Scripting.FileSystemObject") 
		For i=0 To UBound(viewArray)
			fileurl=server.MapPath(SiteSystemPath&"uploadpath/"&viewArray(i)&".rar")
			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="&viewArray(i))
			end if
		Next
		Set Myfso=Nothing
		call connclose() 
		response.write ("<script>opener.location.reload();</script>")
		Call ShowAdminSuccessMsg(Success &"<li>批量删除ZIP/RAR操作成功！</li><br>","javascript:window.close();")
	end sub

	sub listjardel()
		viewArray=Split(ID, ",")
		Set Myfso=Server.CreateObject("Scripting.FileSystemObject") 
		For i=0 To UBound(viewArray)
			fileurl=server.MapPath(SiteSystemPath&"uploadpath/"&viewArray(i)&".jar")
			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="&viewArray(i))
			end if
		Next
		Set Myfso=Nothing
		call connclose() 
		response.write ("<script>opener.location.reload();</script>")
		Call ShowAdminSuccessMsg(Success &"<li>批量删除jar文件操作成功！</li><br>","javascript:window.close();")
	end sub

	sub listumddel()
		viewArray=Split(ID, ",")
		Set Myfso=Server.CreateObject("Scripting.FileSystemObject") 
		For i=0 To UBound(viewArray)
			fileurl=server.MapPath(SiteSystemPath&"uploadpath/"&viewArray(i)&".UMD")
			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="&viewArray(i))
			end if
		Next
		Set Myfso=Nothing
		call connclose() 
		response.write ("<script>opener.location.reload();</script>")
		Call ShowAdminSuccessMsg(Success &"<li>批量删除UMD文件操作成功！</li><br>","javascript:window.close();")
	end sub

	sub listtxtdel()
		viewArray=Split(ID, ",")
		Set Myfso=Server.CreateObject("Scripting.FileSystemObject") 
		For i=0 To UBound(viewArray)
			fileurl=server.MapPath(SiteSystemPath&"booktext/"&viewArray(i)&".txt")
			IF Myfso.FileExists(fileurl) then
	  			Set objCountFile = Myfso.GetFile(fileurl) 
					objCountFile.delete 
	  			Set objCountFile = Nothing
			end if
		Next
		Set Myfso=Nothing
		call connclose() 
		response.write ("<script>opener.location.reload();</script>")
		Call ShowAdminSuccessMsg(Success &"<li>批量删除全文TXT操作成功！</li><br>","javascript:window.close();")
	end sub

	sub listtxt()
		viewArray=Split(ID, ",")
		For i=0 To UBound(viewArray)
			Makealltxt(viewArray(i))
		Next
		call connclose() 
		response.write ("<script>opener.location.reload();</script>")
		Call ShowAdminSuccessMsg(Success &"<li>作品批量生成全文TXT操作成功！</li><br>","javascript:window.close();")
	end sub
end if
%>
<br>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -