<%'定义函数，用ADODB.Stream读取二进制数据Function ReadBinaryFile(FileName) Const adTypeBinary = 1 Dim BinaryStream Set BinaryStream = CreateObject( ADODB.Stream ) BinaryStream.Type = adTypeBinary BinaryStream.Open BinaryStream.LoadFromFile FileName ReadBinaryFile = BinaryStream.ReadEnd FunctionResponse.AddHeader Content-Disposition , attachment;filename=2.gif '文件名Response.ContentType = image/GIF ’设置（1）response.Binarywrite ReadBinaryFile(server.mappath( 2.gif ))'就是你读取存在本地的文件，防止被别人知道真实路径盗连的。%>（...
查看详细内容 >>