一聚教程网:一个值得你收藏的教程网站

热门教程

asp文件下载代码

时间:2022-07-02 23:14:06 编辑:袖梨 来源:一聚教程网


<%
Dim url,strUrl,strPath
Dim strInceptFile
strInceptFile = "swf,fla,jpg,jpeg,gif,png,bmp,tif,iff,mp3,wma,rm,wmv,mid,rmi,cda,avi,mpg,mpeg,ra,ram,wov,asf"
url = Replace(Replace(Replace(Request("url"), "'", ""), "%", ""), "", "/")

If Len(url) > 3 Then
       If Left(url,1) = "/" Then
              Response.Redirect url
       End If
       If InStr(url, "../") > 0 Then
              Response.Redirect url
       End If
       strUrl = Left(url,10)
       If InStr(strUrl, "://") > 0 Then
              Response.Redirect  url
       End If
       If InStr(url, "/") > 0 Then
              url =Replace(url, "../", "")
              If CheckFileExt(url) Then
                     strPath = Server.MapPath(".") & "" & url
                     strPath = Replace(strPath, "/", "")
                     Call downThisFile(strPath)
              End If
       Else
              Response.Redirect url
       End If
End If

Sub downThisFile(thePath)
       Response.Clear
       On Error Resume Next
       Dim stream, fileName, fileContentType
       
       fileName = split(thePath,"")(UBound(split(thePath,"")))
       Set stream = Server.CreateObject("adodb.stream")
       stream.Open
       stream.Type = 1
       stream.LoadFromFile(thePath)
       Response.AddHeader "Content-Disposition", "attachment; filename=" & fileName
       Response.AddHeader "Content-Length", stream.Size
       Response.Charset = "UTF-8"
       Response.ContentType = "application/octet-stream"
       Response.BinaryWrite stream.Read
       Response.Flush
       stream.Close
       Set stream = Nothing
End Sub

Function CheckFileExt(ByVal strFile)
       Dim ArrInceptFile
       Dim i, strFileExt
       
       On Error Resume Next
       
       If Trim(strFile) = "" Or IsEmpty(strFile) Then
              CheckFileExt = False
              Exit Function
       End If
       
       strFileExt = GetFileExtName(strFile)
       strFileExt = LCase(strFileExt)
       strInceptFile = LCase(strInceptFile)
       If Len(strInceptFile) = 0 Then
              CheckFileExt = True
              Exit Function
       End If
       ArrInceptFile = Split(strInceptFile, ",")
       
       For i = 0 To UBound(ArrInceptFile)
              If Trim(strFileExt) = Trim(ArrInceptFile(i)) Then
                     CheckFileExt = True
                     Exit Function
              Else
                     CheckFileExt = False
              End If
       Next
       CheckFileExt = False
End Function
Function GetFileExtName(ByVal strFilePath)
       Dim strExtName
       strExtName = Mid(strFilePath, InStrRev(strFilePath, ".") + 1)
       If InStr(strExtName, "?") > 0 Then
              GetFileExtName = Left(strExtName, InStr(strExtName, "?") - 1)
       Else
              GetFileExtName = strExtName
       End If
End Function
%>

热门栏目