zoukankan
html css js c++ java
asp二进制输出图片的源代码
'
8*******************************************8
'
需要在你的服务器上安装 MDAC 2.6 或MDAC2.7
'
8*******************************************8
<
%
Dim
strFilePath, strFileSize, strFileName
Const
adTypeBinary
=
1
Response.Buffer
=
True
strFileName
=
"
logo.gif
"
FilePath
=
Server.MapPath(
"
manage/images/
"
&
strFileName)
Response.Clear
Set
objStream
=
Server.CreateObject(
"
ADODB.Stream
"
)
objStream.Open
objStream.Type
=
adTypeBinary
objStream.LoadFromFile FilePath
strFileSize
=
objStream.size
strFileType
=
lcase
(
Right
(strFileName,
4
))
'
文件扩展名
'
通过文件扩展名判断 Content-Types
Select
Case
strFileType
Case
"
.asf
"
ContentType
=
"
video/x-ms-asf
"
Case
"
.avi
"
ContentType
=
"
video/avi
"
Case
"
.doc
"
ContentType
=
"
application/msword
"
Case
"
.zip
"
ContentType
=
"
application/zip
"
Case
"
.xls
"
ContentType
=
"
application/vnd.ms-excel
"
Case
"
.gif
"
ContentType
=
"
image/gif
"
Case
"
.jpg
"
,
"
jpeg
"
ContentType
=
"
image/jpeg
"
Case
"
.wav
"
ContentType
=
"
audio/wav
"
Case
"
.mp3
"
ContentType
=
"
audio/mpeg3
"
Case
"
.mpg
"
,
"
mpeg
"
ContentType
=
"
video/mpeg
"
Case
"
.rtf
"
ContentType
=
"
application/rtf
"
Case
"
.htm
"
,
"
html
"
ContentType
=
"
text/html
"
Case
"
.asp
"
ContentType
=
"
text/asp
"
Case
Else
'
Handle All Other Files
ContentType
=
"
application/octet-stream
"
End
Select
'
Response.AddHeader "Content-Disposition", "attachment; filename= "&strFileName&""
Response.AddHeader
"
Content-Length
"
, strFileSize
Response.Charset
=
"
UTF-8
"
'
客户端浏览器的字符集UTF-8
Response.ContentType
=
ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set
objStream
=
Nothing
%
>
查看全文
相关阅读:
计算器的代码
个人简介
实验四
《现代软件工程构建之法》读后感
写一个程序,用于分析一个字符串中各个单词出现的频率,并将单词和它出现的频率输出显示。(单词之间用空格隔开,如“Hello World My First Unit Test”)
把一个英语句子中的单词次序颠倒后输出。例如输入“how are you”,输出“you are how”
第五次作业——《构建之法》读后感
把一个英语句子中的单词次序颠倒后输出。例如输入“how are you”,输出“you are how”
写一个程序,用于分析一个字符串中各个单词出现的频率,并将单词和它出现的频率输出显示。(单词之间用空格隔开,如“Hello World My First Unit Test”)
《软件测试》实验四 黑盒测试
原文地址:https://www.cnblogs.com/zzh/p/320470.html
最新文章
《构建之法》观后感
第三次博客作业
实验三 白盒测试
我的个人简历
我的第一个博客
《构建之法读后感》
实验五
实验四
实验一
自我介绍
热门文章
构建之法感悟
第四次博客作业
test5
实验四
test3
个人简介
软件测试 第二次作业
实验四 白盒测试
实验三 白盒测试
《构建之法》读后感
Copyright © 2011-2022 走看看