機能説明: 指定したディレクトリに画像ファイルをアップロードした後、ファイルのフルパスに基づいて、URL で渡されたファイル名がファイルが存在するディレクトリに追加されます。次に、ファイルのバイナリ データ ストリームがサービス ページに書き込まれることで、イメージの実アドレスが隠蔽され、イメージが外部から参照されるのを防ぐ効果が得られます。
ここに引用があります:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
オプション Explicit
Const SysUrl=" http://www.80Boby.com/uImg/ "
関数 ReadBinFile(ファイル名)
Dim objStream、bin
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile ファイル名
bin = objStream.Read
objStream.Close
ReadBinFile = ビン
終了機能
関数 isSelfRefer()
Dim sHttp_Referer、sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
if instr(sServer_Name,"80boby.com")<>0 または instr(sServer_Name,"freeat63.cn")<>0 then
IsSelfRefer = True
それ以外
IsSelfRefer = False
終了の場合
終了機能
request.QueryString("Mark")="getPic" の場合
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")
Not(isSelfRefer) の場合
RealUrl=Server.MapPath("logo.gif")
終了する場合
response.contenttype = "画像/jpeg"
応答.BinaryWrite ReadBinFile(RealUrl)
応答.終了
終了する場合
%>