📄 down_book.asp

📁 小说站源代码文件
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%
if htmlphem=1 then
htmlphe="htm"
elseif htmlphem=2 then
htmlphe="html"
elseif htmlphem=3 then
htmlphe="shtml"
elseif htmlphem=4 then
htmlphe="asp"
else
htmlphe="html"
end if

id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
set rs2=server.CreateObject("ADODB.recordset")
sql2="select list_name,list_rar,list_jar,list_umd from list_book where id="&id&" ORDER BY id"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
	response.write "<br><br><br><fieldset style='width:365; height:65' align=center class=zt><legend>&nbsp;提示信息&nbsp;</legend><br><div align=center><p>本站无该ID作品资料,可能没有收录或已经被删除.<br><p>请您稍后再试,或向管理员反映.<br><p>谢谢你的合作!<br><p><a href='javascript:window.close();'>关闭窗口</a><br><br></fieldset>"
else
	TXTfName=rs2("list_name")&".txt"
	rarfName=rs2("list_name")&".rar"
	jarfName=rs2("list_name")&".jar"
	umdfName=rs2("list_name")&".umd"
	htmfName=rs2("list_name")&"."&htmlphe
	TXTfileurl=server.MapPath(SiteSystemPath&"booktext/"&id&".txt") 
	rarfileurl=server.MapPath(SiteSystemPath&"uploadpath/"&id&".rar") 
	jarfileurl=server.MapPath(SiteSystemPath&"uploadpath/"&id&".jar") 
	umdfileurl=server.MapPath(SiteSystemPath&"uploadpath/"&id&".umd") 
	htmfileurl=server.MapPath(SiteSystemPath&"html/"&id&"/ALLbook"&id&"."&htmlphe) 
	Set Myfso=Server.CreateObject("Scripting.FileSystemObject") 
	if request.querystring("downtrue")="TXT" then
		IF MyFSO.FileExists(TXTfileurl) then
			'使用Adodb.Stream组件
			If Not IsObjInstalled("ADODB.Stream") Then
				response.write "组件不支持"
			else
				'创建Myfso,使用FSO组件 
				Set f=Myfso.getfile(TXTfileurl) '定义FSO对象f 
					fsize=f.size '文件大小 
				Set f=Nothing	 '释放f 
				Set Myfso=Nothing '释放MyFso 

				Set MyStream = Server.CreateObject("ADODB.Stream") 
				MyStream.Open 
				MyStream.Type = 1 
				MyStream.LoadFromFile TXTfileurl 

				Response.AddHeader "Content-Disposition", "attachment; filename=" & TXTfName
				Response.AddHeader "Content-Length", fsize 
				Response.Charset = "UTF-8" 
				Response.ContentType = "text/plain" 
				Response.BinaryWrite MyStream.Read 
				Response.Flush 

				'释放MyStream 
				MyStream.Close 
				Set MyStream = Nothing
			End if
		Else
			response.write "<br><br><br><fieldset style='width:365; height:65' align=center class=zt><legend>&nbsp;提示信息&nbsp;</legend><br><div align=center><p>作品 "&rs2("list_name")&" <font color=#FF0000>全文TXT</font> 文件不存在,可能已经被删除.<br><p>请您稍后再试,或向管理员反映.<br><p>谢谢你的合作!<br><p><a href='javascript:window.close();'>关闭窗口</a><br><br></fieldset>"
		End if
	elseif request.querystring("downtrue")="rar" then
		IF MyFSO.FileExists(rarfileurl) then
			'使用Adodb.Stream组件
			If Not IsObjInstalled("ADODB.Stream") Then
				response.write "组件不支持"
			else
				'创建Myfso,使用FSO组件 
				Set f=Myfso.getfile(rarfileurl) '定义FSO对象f 
					fsize=f.size '文件大小 
				Set f=Nothing	 '释放f 
				Set Myfso=Nothing '释放MyFso 

				Set MyStream = Server.CreateObject("ADODB.Stream") 
				MyStream.Open 
				MyStream.Type = 1 
				MyStream.LoadFromFile rarfileurl 

				Response.AddHeader "Content-Disposition", "attachment; filename=" & rarfName
				Response.AddHeader "Content-Length", fsize 
				Response.Charset = "UTF-8" 
				Response.ContentType = "application/octet-stream" 
				Response.BinaryWrite MyStream.Read 
				Response.Flush 

				'释放MyStream 
				MyStream.Close 
				Set MyStream = Nothing
			End if
		Else
			response.write "<br><br><br><fieldset style='width:365; height:65' align=center class=zt><legend>&nbsp;提示信息&nbsp;</legend><br><div align=center><p>作品 "&rs2("list_name")&" <font color=#FF0000>rar压缩包</font> 文件不存在,可能已经被删除.<br><p>请您稍后再试,或向管理员反映.<br><p>谢谢你的合作!<br><p><a href='javascript:window.close();'>关闭窗口</a><br><br></fieldset>"
		End if
	elseif request.querystring("downtrue")="jar" then
		IF MyFSO.FileExists(jarfileurl) then
			'使用Adodb.Stream组件
			If Not IsObjInstalled("ADODB.Stream") Then
				response.write "组件不支持"
			else
				'创建Myfso,使用FSO组件 
				Set f=Myfso.getfile(jarfileurl) '定义FSO对象f 
					fsize=f.size '文件大小 
				Set f=Nothing	 '释放f 
				Set Myfso=Nothing '释放MyFso 

				Set MyStream = Server.CreateObject("ADODB.Stream") 
				MyStream.Open 
				MyStream.Type = 1 
				MyStream.LoadFromFile jarfileurl 

				Response.AddHeader "Content-Disposition", "attachment; filename=" & jarfName
				Response.AddHeader "Content-Length", fsize 
				Response.Charset = "UTF-8" 
				Response.ContentType = "application/octet-stream" 
				Response.BinaryWrite MyStream.Read 
				Response.Flush 

				'释放MyStream 
				MyStream.Close 
				Set MyStream = Nothing
			End if
		Else
			response.write "<br><br><br><fieldset style='width:365; height:65' align=center class=zt><legend>&nbsp;提示信息&nbsp;</legend><br><div align=center><p>作品 "&rs2("list_name")&" <font color=#FF0000>jar文件</font> 不存在,可能已经被删除.<br><p>请您稍后再试,或向管理员反映.<br><p>谢谢你的合作!<br><p><a href='javascript:window.close();'>关闭窗口</a><br><br></fieldset>"
		End if
	elseif request.querystring("downtrue")="umd" then
		IF MyFSO.FileExists(umdfileurl) then
			'使用Adodb.Stream组件
			If Not IsObjInstalled("ADODB.Stream") Then
				response.write "组件不支持"
			else
				'创建Myfso,使用FSO组件 
				Set f=Myfso.getfile(umdfileurl) '定义FSO对象f 
					fsize=f.size '文件大小 
				Set f=Nothing	 '释放f 
				Set Myfso=Nothing '释放MyFso 

				Set MyStream = Server.CreateObject("ADODB.Stream") 
				MyStream.Open 
				MyStream.Type = 1 
				MyStream.LoadFromFile umdfileurl 

				Response.AddHeader "Content-Disposition", "attachment; filename=" & umdfName
				Response.AddHeader "Content-Length", fsize 
				Response.Charset = "UTF-8" 
				Response.ContentType = "application/octet-stream" 
				Response.BinaryWrite MyStream.Read 
				Response.Flush 

				'释放MyStream 
				MyStream.Close 
				Set MyStream = Nothing
			End if
		Else
			response.write "<br><br><br><fieldset style='width:365; height:65' align=center class=zt><legend>&nbsp;提示信息&nbsp;</legend><br><div align=center><p>作品 "&rs2("list_name")&" <font color=#FF0000>umd文件</font> 不存在,可能已经被删除.<br><p>请您稍后再试,或向管理员反映.<br><p>谢谢你的合作!<br><p><a href='javascript:window.close();'>关闭窗口</a><br><br></fieldset>"
		End if
	elseif request.querystring("downtrue")="htm" then
		IF MyFSO.FileExists(htmfileurl) then
			'使用Adodb.Stream组件
			If Not IsObjInstalled("ADODB.Stream") Then
				response.write "组件不支持"
			else
				'创建Myfso,使用FSO组件 
				Set f=Myfso.getfile(htmfileurl) '定义FSO对象f 
					fsize=f.size '文件大小 
				Set f=Nothing	 '释放f 
				Set Myfso=Nothing '释放MyFso 

				Set MyStream = Server.CreateObject("ADODB.Stream") 
				MyStream.Open 
				MyStream.Type = 1 
				MyStream.LoadFromFile umdfileurl 

				Response.AddHeader "Content-Disposition", "attachment; filename=" & htmfName
				Response.AddHeader "Content-Length", fsize 
				Response.Charset = "UTF-8" 
				Response.ContentType = "text/html" 
				Response.BinaryWrite MyStream.Read 
				Response.Flush 

				'释放MyStream 
				MyStream.Close 
				Set MyStream = Nothing
			End if
		Else
			response.write "<br><br><br><fieldset style='width:365; height:65' align=center class=zt><legend>&nbsp;提示信息&nbsp;</legend><br><div align=center><p>作品 "&rs2("list_name")&" <font color=#FF0000>htm文件</font> 不存在,可能已经被删除.<br><p>请您稍后再试,或向管理员反映.<br><p>谢谢你的合作!<br><p><a href='javascript:window.close();'>关闭窗口</a><br><br></fieldset>"
		End if
	else
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs2("list_name")%> 打包下载 -  <%=SiteName%></title>
<script>
function iftime(){
setTimeout("close()",10000);
}
</script>
</head>

<body  onLoad="iftime()"  style="background-color:buttonface;border:none;margin-top:7px">
<%
	response.write "<br><br><fieldset style='width:500; height:65' align=center class=zt><legend>&nbsp; "&rs2("list_name")&" 相关电子书&nbsp;</legend><br><div align=center>"
if MyFSO.FileExists(TXTfileurl) then
	response.write "<p>本站提供 <a href='Down_book.asp?id="&id&"&downtrue=TXT'><font color=#FF0000>全文TXT</font></a> 文件下载.<br>"
else
	response.write "<p>本站无全文TXT文件可供下载,可能已经被删除.<br>"
end if
if rs2("list_rar")<>"" then
	response.write "<p>本站提供 <a href='Down_book.asp?id="&id&"&downtrue=rar'><font color=#FF0000>RAR压缩包</font></a> 下载.<br>"
else
	response.write "<p>本站无rar压缩包文件可供下载,可能已经被删除.<br>"
end if
if rs2("list_jar")<>"" then
	response.write "<p>本站提供 <a href='Down_book.asp?id="&id&"&downtrue=jar'><font color=#FF0000>jar文件</font></a> 下载.<br>"
else
	response.write "<p>本站无jar文件可供下载,可能已经被删除.<br>"
end if
if rs2("list_umd")<>"" then
	response.write "<p>本站提供 <a href='Down_book.asp?id="&id&"&downtrue=umd'><font color=#FF0000>umd文件</font></a> 下载.<br>"
else
	response.write "<p>本站无umd文件可供下载,可能已经被删除.<br>"
end if
if MyFSO.FileExists(htmfileurl) then
	response.write "<p>本站提供 <a href='Down_book.asp?id="&id&"&downtrue=htm'><font color=#FF0000>全文htm</font></a> 文件下载.<br>"
else
	response.write "<p>本站无全文htm文件可供下载,可能已经被删除.<br>"
end if
	response.write "<p>如果提示没有文件可供下载请您稍后再试,或向管理员反映.<br><p><a href='javascript:window.close();'>关闭窗口</a>,或三十秒后自动关闭<br><br></fieldset>"
%></body>
&nbsp;</html><%
end if
Set Myfso=Nothing '释放MyFso 
end if
rs2.close
set rs2=nothing
%>
💿 文件大小 692 K
👤 上传用户 glossary
📂 所属分类其他
🏷️ 相关标签

#源代码
⌨️ 快捷键说明

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