<?php
if($_SERVER['HTTP_REFERER']!=''){
@header("Content-type:image/jpeg");
echo file_get_contents("1.jpg");
}
else{
@header("location:http://hi.baidu.com/flyabout");
}
这段代码 怎么转成ASP的

<%
'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
%>
 

收到的鲜花

• kaihua 于 2009-10-31 19:19 送鲜花  1朵   附言：热情帮助

谢谢 yms123

谢谢 yms123

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

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

1.jpg的路径正确？

<%
'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
%>