在ASP.NET中下载Text文�g�Q�而不是在��览器中打开�?�?

freebird — Mon, 18 Feb 2008 06:32:00 GMT

介绍

让用户从我们的网站上下蝲各种�c�d��的文件是一个比较常用的功能�Q�这��文章就是告诉您如何创徏一�?txt文�g�q�让用户下蝲�?/font>

使用代码

虽然在示例里�Q�我先创��Z��一个text文�g�Q�但是你不一定也要这么做�Q�因��个文件可能在你的�|�站里已�l�存在了。如果是�q�样的话�Q�你只需要��用FileStream去读取它��可以了�?/font>

首先�Q�我们将�q�个text文�g��d��C��个byte数组中，然后使用Response对象��文件写到客��L��可以了�?/font>

						Response.AddHeader("Content-disposition", "attachment; filename=" + sGenName);
Response.ContentType = "application/octet-stream";
Response.BinaryWrite(btFile);
Response.End();
				

�q�段代码是完成这个功能的主要代码。第一句在输出中添加了一个Header�Q�告诉浏览器我们发送给它的是一个附件类型的文�g。然后我们设�|�输出的ContentType�?application/octet-stream"�Q�即告诉��览器要下蝲�q�个文�g�Q�而不是在��览器中昄��它�?br />
下面是一个MIME�c�d��的列表�?/div>

".asf" = "video/x-ms-asf"
".avi" = "video/avi"
".doc" = "application/msword"
".zip" = "application/zip"
".xls" = "application/vnd.ms-excel"
".gif" = "image/gif"
".jpg"= "image/jpeg"
".wav" = "audio/wav"
".mp3" = "audio/mpeg3"
".mpg" "mpeg" = "video/mpeg"
".rtf" = "application/rtf"
".htm", "html" = "text/html"
".asp" = "text/asp"

'所有其它的文�g
= "application/octet-stream"

下面是一个完整的如何下蝲文本文�g的示例代�?br />C#

protectedvoid Button1_Click(object sender, EventArgs e)
{
string sFileName = System.IO.Path.GetRandomFileName();
string sGenName = "Friendly.txt";
//YOu could omit these lines here as you may not want to save the textfile to the server
//I have just left them here to demonstrate that you could create the text file 
using (System.IO.StreamWriter SW = new System.IO.StreamWriter(Server.MapPath("TextFiles/" + sFileName + ".txt")))
{
SW.WriteLine(txtText.Text);
SW.Close();
}

System.IO.FileStream fs = null;
fs = System.IO.File.Open(Server.MapPath("TextFiles/" + sFileName + ".txt"), System.IO.FileMode.Open);
byte[] btFile = newbyte[fs.Length];
fs.Read(btFile, 0, Convert.ToInt32(fs.Length));
fs.Close();
Response.AddHeader("Content-disposition", "attachment; filename=" + sGenName);
Response.ContentType = "application/octet-stream";
Response.BinaryWrite(btFile);
Response.End();
}

VB.NET

Dim strFileName AsString = System.IO.Path.GetRandomFileName()
Dim strFriendlyName AsString = "Friendly.txt"

Using sw AsNew System.IO.StreamWriter(Server.MapPath("TextFiles/" + strFileName + ".txt"))
sw.WriteLine(txtText.Text)
sw.Close()
EndUsing

Dim fs As System.IO.FileStream = Nothing


fs = System.IO.File.Open(Server.MapPath("TextFiles/" + strFileName + ".txt"), System.IO.FileMode.Open)
Dim btFile(fs.Length) AsByte
fs.Read(btFile, 0, fs.Length)
fs.Close()
With Response
.AddHeader("Content-disposition", "attachment;filename=" & strFriendlyName)
.ContentType = "application/octet-stream"
.BinaryWrite(btFile)
.End()
EndWith

��结
使用�q�个�Ҏ��Q�你可以实现在Windows�pȝ��下下载所有的文�g�c�d��。但是在Macintosh�pȝ��下会有些问题�?/font>

freebird 2008-02-18 14:32 发表评论

一级日本不卡的影视,欧美日韩国产精品专区,日韩电影在线观看完整版

在ASP.NET中下载Text文�g�Q�而不是在���览器中打开�?�?

在ASP.NET中下载Text文�g�Q�而不是在��览器中打开�?�?