① asp视频下载的代码
把下面的代码保存为download.asp，然后把下载链接改成<a href="Download.asp?FileName=***.rm">下载视频</a>就可以了：
<%FileName=Request.Querystring("FileName")
Function GetFileName(longname)
while instr(longname,"/")
longname=right(longname,len(longname)-1)
wend
GetFileName=longname
End Function
Const adTypeBinary=1
FileExt=Mid(FileName,InStrRev(FileName,".")+1)
Response.Clear
Response.AddHeader "content-disposition","attachment;filename="&GetFileName(FileName)
Set Stream=server.CreateObject("ADODB.Stream")
Stream.Type=adTypeBinary
Stream.Open
'这里把DownloadFiles改成下载文件所在文件夹与本页的相对路径
TrueFileName="DownloadFiles/"&FileName
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024*64)
Wend
Stream.Close
Set Stream=Nothing
Response.Flush
Response.End%>
② 怎样用asp实现，下载指定网址文件，并重命名后保存到本地服务器上
download.asp
<%
'Code By oday
url =Trim(Request.QueryString("url")) '注意URL路径上的文件不能是被IIS解析的,如.txt就不行,要用的话自己改个后缀
fname=Trim(Request.QueryString("fname"))
if url <> "" then 'and fname<>"" then
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",url,False
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile Server.MapPath(".")&"/"&fname,2
set sGet = nothing
set sPOST = nothing
response.Write("下载成功！<br>")
end if
%>
test.asp
<script>
location.href="download1.asp?url="+escape("http://58.211.102.206/hi/流行音乐/青花瓷.mp3")+"&fname=demo.mp3"
</script>
现在 这个可以运行了！！原来那个 ajax 有点问题！
③ ASP.NET 中，实现download下载，弹出打开和保存对话框，不限制文件大小，跪求实现代码，谢谢了
思路很简单，读取服务器文件路径，然后再保存数据流，下面是实现代码：
（ps:因为要上班，来不及写很多注释，关键的地方加了几句注释哈）
using System;
using System.Collections;
using System.Configuration;
using System.Data;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using YTLib.Basic;
using YTLib.YTDBC;
using System.IO;
using System.Threading;
namespace siteadmin.admin
{
public partial class downfile : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
string strSQL = "";
YTNDBObject dbo = new YTNDBObject();
dbo.DataName = "Main";
Page.EnableViewState = false;
if(!IsPostBack)
{
string sid=Request["id"];
if(!YTLib.publicOP.IsNumString(sid)||sid==null)
sid="0";
strSQL = "select * from FileSource where ID=@ID";
dbo.PrepareCommand(strSQL);
dbo.SetCmdIntValue("@ID",int.Parse(sid));
DataTable dt=dbo.QueryData().Tables[0];
string sourceName = (string)dt.Rows[0]["FilePath"];
sourceName.Trim();//消除空格
string filesnames = sourceName.Substring(7, sourceName.Length - 8);
int index= sourceName.LastIndexOf(".");
string extend = sourceName.Substring(index+1);//扩展名
string fullPath = "~/uploaded/" + sourceName;
fullPath = Server.MapPath(fullPath);
//读出该资源的下载次数
int downloadtimes = 0;
downloadtimes = int.Parse(dt.Rows[0]["downloadCounts"].ToString());
Page.Response.Clear();
bool success = ResponseFile(Page.Request, Page.Response, filesnames, fullPath, 1024000);
if (!success) Response.Write("<script language=\"javascript\">alert(\"Download file error\");window.location.href=\"../Download.aspx\"</script>");
else
{
//记录下载次数
downloadtimes++;
string sqlStr = "update FileSource set downloadCounts=" + downloadtimes + " where ID=@IID";
dbo.PrepareCommand(sqlStr);
dbo.SetCmdIntValue("@IID",int.Parse(sid));
dbo.ExecuteNoQuery();
}
Response.Write("<script language=\"javascript\">window.location.href=\"../Download.aspx\"</script>");
}
}
public static bool ResponseFile(HttpRequest _Request, HttpResponse _Response, string _fileName, string _fullPath, long _speed)
{
try
{
FileStream myFile = new FileStream(_fullPath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite);
BinaryReader br = new BinaryReader(myFile);
try
{
_Response.AddHeader("Accept-Ranges", "bytes");
_Response.Buffer = false;//不缓冲
long fileLength = myFile.Length;
long startBytes = 0;
double pack = 10240;
//10K bytes
int sleep = 200;
//每秒5次 即5*10K bytes每秒 int sleep = (int)Math.Floor(1000 * pack / _speed) + 1;
if (_Request.Headers["Range"] != null)
{
_Response.StatusCode = 206;
string[] range = _Request.Headers["Range"].Split(new char[] { '=', '-' });
startBytes = Convert.ToInt64(range[1]);
}
_Response.AddHeader("Content-Length", (fileLength - startBytes).ToString());
if (startBytes != 0)
{
//Response.AddHeader("Content-Range", string.Format(" bytes {0}-{1}/{2}", startBytes, fileLength-1, fileLength));
}
_Response.AddHeader("Connection", "Keep-Alive");
_Response.ContentType = "application/octet-stream";
_Response.AddHeader("Content-Disposition", "attachment; filename=" + HttpUtility.UrlEncode(_fileName, System.Text.Encoding.UTF8));
br.BaseStream.Seek(startBytes, SeekOrigin.Begin);
int maxCount = (int)Math.Floor((fileLength - startBytes) / pack) + 1;
for (int i = 0; i < maxCount; i++)
{
if (_Response.IsClientConnected)
{
_Response.BinaryWrite(br.ReadBytes(int.Parse(pack.ToString())));
Thread.Sleep(sleep);
}
else
{
i = maxCount;
}
}
}
catch
{
return false;
}
finally
{
br.Close();
myFile.Close();
}
}
catch
{
return false;
}
return true;
}
}
}
④ asp流输出文件下载
fullpath 是指物理全路径。
例如： E:\web\download\aaaaa.rar
把组合好了的 fullpath 传递给这个参数就行了。 会自动打回开答下载。
使用: call downloadfile(server.MapPath("download/aaaaa.rar"))
⑤ 如何用ASP实现文件下载
调用
response.Write("<a href=down.asp?filename="&UpLoadPath&ls_array(i+1)&">"&ls_array
(i)&"</td></tr>")
down.asp文件内容如下：
<%
Const FilePath = "UploadFile/" '文件存放路径
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名！"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Response.Clear
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
TrueFileName= FilePath &FileName
Response.Write TrueFileName
Response.End
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>
⑥ ASP网站大文件下载的问题
<%
host=Request.ServerVariables("HTTP_HOST")
fwym="http://" & host & Request.ServerVariables("SCRIPT_NAME")
wenjian=request("wenjian")
select case true
case right(lcase(wenjian),4)=".asp"
response.write "该类型文件不允许下载。"
response.end
case right(lcase(wenjian),4)=".php"
response.write "该类型文件不允许下载。"
response.end
case right(lcase(wenjian),5)=".aspx"
response.write "该类型文件不允许下载。"
response.end
end select
wenjian=replace(wenjian,"/","\")
a=split(wenjian,"\")
filename=a(ubound(a))
Set fso = CreateObject("Scripting.FileSystemObject")
fileurl=left(fwym,len(fwym)-8) & wenjian
fileurl=replace(fileurl,"\","/")
if instr(1,wenjian,":")=0 then wenjian=server.mappath(wenjian)
'设置可下载文件大小上限
maxsize=50000000
'response.write wenjian
'response.end
set f1=fso.getfile(wenjian)
if f1.size>maxsize then
response.write "文件太大了，不允许下载。" & dxzh(f1.size) & "只支持" & dxzh(maxsize) & "以内的文件下载"
response.end
end if
if instr(1,wenjian,":")=0 then
'response.write fileurl
response.redirect fileurl
response.end
end if
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename =" & filename
set objstream = Server.CreateObject("adodb.stream")
objstream.Mode = 3
objstream.Type = 1
objstream.Open
objstream.LoadFromFile (wenjian)
BytesToBstr = objstream.Read
response.binarywrite BytesToBstr
function dxzh(dx)
zijieshu = dx & "字节"
kbshu = FormatNumber(dx / 1024, "0.0") & "KB"
mbshu = FormatNumber(dx / 1024 / 1024, 2) & "MB"
fsize = dx
If fsize / 1024 < 1 Then dxzh = zijieshu
If fsize / 1024 >= 1 And fsize / 1024 < 1024 Then dxzh = kbshu
If fsize / 1024 >= 1024 Then dxzh = mbshu
end function
%>
⑦ asp.net中用文件流方式下载文件，后台代码无错，前台浏览器没有下载反应
stringfilename=context.Request["fileName"].ToString();
stringfileName="【下载】"+filename;//客户端保存的文件名
stringfilePath=System.Web.HttpContext.Current.Request.MapPath("~/UpFile/TraceCode/"+filename+"");//路径
FileStreamfileStream=newFileStream(filePath,FileMode.Open);
byte[]bytes=newbyte[(int)fileStream.Length];
fileStream.Read(bytes,0,bytes.Length);
fileStream.Close();
System.Web.HttpContext.Current.Response.ContentType="application/octet-stream";
System.Web.HttpContext.Current.Response.AddHeader("Content-Disposition","attachment;filename="+fileName);
System.Web.HttpContext.Current.Response.BinaryWrite(bytes);
System.Web.HttpContext.Current.Response.Flush();
//System.Web.HttpContext.Current.Response.End();
//System.Web.HttpContext.Current.Response.Close();
System.Web.HttpContext.Current.ApplicationInstance.CompleteRequest();
⑧ ASP 如何实现文件下载
你把要下载的文件名传到下载页面，用request("fileNameField")获取文件名
下面这地方改一下
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath(request("fileNameField"))
点击回下载答的地方用<a href='下载页面路径?fileNameField=要下载的文件名'>下载文件</a>
这个