发信人: i_am_trueman(粗蚊)
整理人: i_am_trueman(2003-10-22 16:49:55), 站内信件
|
【 在 qcrsoft 的大作中提到:】
:呃……以前yahoo说过,好象修改iis配置,加http头什么的,记不太清了
:......
嗯,刚才在本版搜了一下,发现了jason0717的例程:
Dim Stream
Dim Contents
Dim FileName
FileName="aaa.htm"
Response.ContentType="application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream=Server.CreateObject("ADODB.Stream")
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
Contents=Stream.ReadText
Response.BinaryWrite Contents
Stream.Close
Set Stream=Nothing
---------
这个例程是对应纯文本的,我改了一下,变成支持doc的,如下:
Response.AddHeader "Content-Disposition", "attachment;filename=tm.doc"
response.ContentType="application/x-msword"
Const adTypeBinary = 1
Dim strFilePath
strFilePath = "c:\a.doc"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
----
|
|