<%
response.contenttype="application/x-unknown"
response.addheader "Content-Disposition","attachment; filename=" & chr(34) & "hahahahah.doc" & chr(34)response.binarywrite getBinaryFile("c:\xx.xls")function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
%>
response.contenttype="application/x-unknown"
response.addheader "Content-Disposition","attachment; filename=" & chr(34) & "hahahahah.doc" & chr(34)response.binarywrite getBinaryFile("c:\xx.xls")function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
%>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货