php 转 ASP - 编程论坛

#2

yms1232009-10-31 14:10

<%
'ASP读取图片文件函数
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.ReadEnd
Function
if Request.ServerVariables("HTTP_REFERER")<>"" Then
  Response.ContentType="image/jpeg"
  'ASP里显示图片在网页上要用
  Response.BinaryWrite ReadBinaryFile("1.jpg")
Else
  '跳转URL地址
  Response.Redirect("http://hi.baidu.com/flyabout")
End IF
%>

#3

kaihua2009-10-31 19:19

谢谢 yms123

#4

kaihua2009-10-31 19:52

谢谢 yms123

这段代码达不到 PHP 那段代码的效果图片显示不出来

#5

kaihua2009-10-31 19:53

echo file_get_contents("1.jpg");
我想主要还是 file_get_contents 这个函数的问题

#6

yms1232009-10-31 22:37

1.jpg的路径正确？

#7

e_ivy2009-11-01 12:34

<%
'ASP读取图片文件函数
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.Read
End Function
if Request.ServerVariables("HTTP_REFERER")<>"" Then
  Response.ContentType="image/jpeg"
  'ASP里显示图片在网页上要用
  Response.BinaryWrite ReadBinaryFile("1.jpg")
Else
  '跳转URL地址
  Response.Redirect("http://hi.baidu.com/flyabout")
End IF
%>