网站源码下载PR查询短网址
首页编程数据库网页图形冲浪邮件下载浏览器QQ系统办公软件站长安全手机邮件认证组网通信


网站首页 -> 网络编程 -> ASP技巧
ASP二进制流方法隐藏图片文件真实地址

发表日期:2006-11-17



功能描述:上传图片文件到指定目录后,在本文件根据URL传入的文件名加上文件所在目录根据文件完整路径。再将该文件二进制数据流写入服务页面,从而达到隐藏图片真实地址防止外部引用图片的效果。

以下是引用片段:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit

Const SysUrl="http://www.80Boby.com/uImg/"
Function ReadBinFile(fileName)
 Dim objStream,bin
 Set objStream = Server.CreateObject("ADODB.Stream")
 objStream.Open
 objStream.Type = 1
 objStream.LoadFromFile fileName 
    bin = objStream.Read
 objStream.Close
 ReadBinFile = bin
End Function
Function isSelfRefer() 
Dim sHttp_Referer, sServer_Name 
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER")) 
if instr(sServer_Name,"80boby.com")<>0 or instr(sServer_Name,"freeat63.cn")<>0 then
IsSelfRefer = True 
Else 
IsSelfRefer = False 
End If 
End Function 
if request.QueryString("Mark")="getPic" then
 Dim RealUrl,fso
 Dim uFileName:uFileName=Request.QueryString("x")
 RealUrl=Server.MapPath("文件真实路径"&uFileName)
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("logo.gif")
 
 if Not(isSelfRefer) then
 RealUrl=Server.MapPath("logo.gif")
 end if
 response.contenttype = "image/jpeg" 
 response.BinaryWrite ReadBinFile(RealUrl)
 response.end
end if
%>



上一篇:将内容自动添加到指定文本域的JS 人气:7488
下一篇:ASP实现可显示和隐藏的树型菜单 人气:9683
网站文章搜索
邮件订阅服务
输入你的邮件地址,你将不会错过任何关于<ASP技巧教程>的内容
今日更新文章
·教你一种新思路调色教程
·使用Lab颜色通道调出照片完美色彩
·PS打造柔美风格色调教程
·教你给宝宝皮肤美白教程
·利用风景图片制作特色明信片
·PS给照片制作蓝天背景
·Photoshop制作沧桑颓废的城市海报
·如何才能出现”添加至百度首页“标志
·没学历 没文凭 没背景 我选择了SEO
·不可小觑的论坛式外链
·SEO的价值并不仅仅体现在搜索引擎上
·Photoshop打造完美江景
本栏目推荐文章
·ConnectionManager适应多数据库环境
·ASP.NET2.0瞎记-加密链接字符串
·JAR 文件揭密
·C++ 对象与数组
·J2ME蓝牙程序开发实战入门
·Java编程思想(完整的中文简体第二版)
·[视频教程]PHP100视频教程69:PHPMysql新
·3D编程指南第二部分:光的3D理论与定位
·办公之星控件在Delphi里的使用
·用ASP.NET建立一个在线RSS新闻聚合器
·asp.net StreamReader 创建文件
·IBM增添Web服务工具
Copyright © 2005-2012 www.Devdao.com All rights reserved | 沪ICP备05001343号 sitemap