所属类别：ASP编程

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

将下边的文件保存为Download.asp就可以了，然后根据需要传要下载的文件过来就可以了。格式：Download.asp?FileName=要下载的文件名[复制此代码]CODE:Dim StreamDim ContentsDim FileNameDim FileExtConst adTypeBinary = 1FileName = Request.QueryString("FileName")if FileName = "" ThenResponse.Write "无效文件名."Response.EndEnd if' 下面是不希望下载的文件FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)Select Case UCase(FileExt)Case "ASP", "ASA", "ASPX", "ASAX", "MDB"Response.Write "受保护文件,不能下载."Response.EndEnd Select' 下载这个文件Response.ClearResponse.ContentType = "application/octet-stream"Response.AddHeader "content-disposition", "attachment; filename=" & FileNameSet Stream = server.CreateObject("ADODB.Stream")Stream.Type = adTypeBinaryStream.OpenStream.LoadFromFile Server.MapPath(FileName)While Not Stream.EOSResponse.BinaryWrite Stream.Read(1024 * 64)WendStream.CloseSet Stream = NothingResponse.FlushResponse.End

....