my_file.asp

1.地址缩短

<!--#include file="boardconn.asp"-->
<!--#include file="inc/sql.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ip.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/my_img.asp"-->
<%
On Error Resume Next
Response.Buffer = True
Response.Clear

Function UseStream(FileName)
Dim FileStream,File
Set FileStream = Server.CreateObject("ADODB.Stream")
FileStream.Open
FileStream.Type = 1
File = server.MapPath(FileName)
FileStream.LoadFromFile(File)
'Response.ContentType = "application/octet-stream"

Response.BinaryWrite FileStream.Read 
Response.Flush

FileStream.Close
Set FileStream = Nothing
End Function

Function DownloadFile(FileName)
    On error resume next
	Server.ScriptTimeOut=999999
	Response.Clear
    Dim FileType,ADS,StrFileName,Data
    FileType=Lcase(Split(FileName,".")(ubound(Split(FileName,"."))))
	StrFileName=Server.Mappath(FileName)
	TempFileName = Split(StrFileName,"\")(Ubound(Split(StrFileName,"\")))
    Set ADS = Server.CreateObject("ADODB.Stream") 
	ADS.Open
	ADS.Type = 1 
    ADS.LoadFromFile(StrFileName)
	Data=ADS.Read
	Fsize=Clng(lenb(Data))
	If Err Then
       response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
       response.write "<tr><td style=font:9pt Verdana>"
       response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：禁止非法盗链本站资源...</u></font></center>"
       response.write "</td></tr></table></center>"
       Response.End 
    End If
	ADS.Close
    If Response.IsClientConnected Then 
       If FileType="gif" Or FileType="jpg" Or FileType="jpeg" Or FileType="bmp" Then 
	      Response.ContentType = "image/*"
	   Else
	      Response.AddHeader "Content-Disposition", "attachment; filename=" & TempFileName
		  Response.ContentType = "application/ms-download"
	   End If
	   Response.AddHeader "Content-Length", Fsize
 	   Response.CharSet = "GB3212" 
	   Response.ContentType = "application/octet-stream" 
	   Response.BinaryWrite Data
	   Response.Flush
	End If
End Function

Dim Server_v1,Server_v2,Path
Server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
Server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Server_v1<>"" And Mid(Server_v1,8,Len(Server_v2)) = Server_v2 Then
    Path=Request("Path")
	If Path="Face" Then
	   TFilePath=  FacePath & "/" & Request("/")
	Else
           TFilePath = FilePath & "/" & Request("/")
	End If
Else
	TFilePath = "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450><tr><td style=font:9pt Verdana><center><font face=Georgia,Tahoma size=2><u>友情提示：禁止非法盗链本站资源...</u></font></center></td></tr></table></center>"
End If

If ChkFile(TFilePath) Then
       response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
       response.write "<tr><td style=font:9pt Verdana>"
       response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：禁止非法盗链本站资源...</u></font></center>"
       response.write "</td></tr></table></center>"
       Response.End 
    End If
DownloadFile(TFilePath)
Function ChkFile(FileName)
Dim Temp,FileType
   ChkFile=False
   FileType=Lcase(Split(FileName,".")(ubound(Split(FileName,"."))))
   Temp="|asp|aspx|cgi|php|cdx|cer|asa|"
   If Instr(Temp,"|"&FileType&"|")>0 Then  ChkFile=True
End Function
%>