ASP二进制流方法隐藏图片文件真实地址

ReadyGo!技术成就梦想网络搜索 efish 2008-2-24 3:06:51

功能描述：上传图片文件到指定目录后，在本文件根据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
%>

责任编辑: efish 参与评论查找更多：

相关文章

PRB：ASP 返回“Operation Must Use an Updateable … PRB：ASP 返回“Operation Must Use an Updateable Query”（操作必须使用可更新的查询）错误

对ASP动态包含文件方法的改进对ASP动态包含文件方法的改进

整站二进制数据库文件还原整站二进制数据库文件还原

实用的ASP连接数据库的函数实用的ASP连接数据库的函数

ASP提高数据显示效率-缓存探幽 ASP提高数据显示效率-缓存探幽

ASP日期和时间函数示例 ASP日期和时间函数示例

Access与Sql Server之ASP代码比较 Access与Sql Server之ASP代码比较

用ASP生成ZT条型码用ASP生成ZT条型码

批量对加密的asp代码解密的asp程序批量对加密的asp代码解密的asp程序

身份验证常用正则表达式身份验证常用正则表达式

2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

ASP二进制流方法隐藏图片文件真实地址

2秒记住本站域名

分类导航