{"id":323,"date":"2008-06-10T13:58:47","date_gmt":"2008-06-10T13:58:47","guid":{"rendered":""},"modified":"2013-02-27T12:23:08","modified_gmt":"2013-02-27T04:23:08","slug":"323","status":"publish","type":"post","link":"https:\/\/1vr.cn\/?p=323","title":{"rendered":"\u8fdc\u7a0b\u5f15\u7528\u7f51\u6613\u76f8\u518c\u56fe\u7247(xmlhttp+\u7f13\u5b58)"},"content":{"rendered":"

163\u7684\u76f8\u518c\u6709\u9632\u76d7\u94fe\u7684\u529f\u80fd,\u5728\u5176\u4ed6\u57df\u540d\u4e0b\u5f15\u7528\u56fe\u7247\u65f6\u5019\u4f1a\u5f97\u4e0d\u5230\u6570\u636e.
\u4f53\u73b0\u5728\u6d4f\u89c8\u5668\u4e0a,\u5c31\u662f\u4e00\u4e2a\u7ea2X.
\u6211\u4eec\u5229\u7528httprequest\u548capplication\u7f13\u5b58\u6280\u672f,\u53ef\u4ee5\u7834\u89e3\u8fd9\u79cd\u9632\u76d7\u94fe.<\/p>\n

\u4fdd\u5b58\u6210\u4e00\u4e2aasp\u6587\u4ef6\u5728\u4f60\u7f51\u7ad9\u76ee\u5f55,\u5c31\u53ef\u4ee5\u7528\u5982\u4e0b\u7684\u65b9\u5f0f\u8c03\u7528\u7f51\u6613\u7684\u56fe\u7247\u4e86.\u9664\u4e86\u7f51\u6613,\u6211\u60f3\u5176\u4ed6\u52a0\u4e86\u9632\u76d7\u94fe\u7684\u56fe\u7247\u90fd\u53ef\u4ee5\u7528\u8fd9\u4e2a\u65b9\u6cd5,\u6bd4\u5982\u767e\u5ea6,\u6bd4\u5982QQ\u76f8\u518c.\u7b49\u7b49<\/p>\n

http:\/\/\u4f60\u7684\u7f51\u7ad9\/aspname.asp?url=\u56fe\u7247\u5730\u5740<\/font><\/p>\n

<%
'\u4ee3\u7801\u4f5c\u8005:siyizhu \u65e5\u671f:2006-05-22
Dim url, body, myCache<\/p>\n

url = Request.QueryString(\"url\")<\/p>\n

Set myCache = new cache
myCache.name = \"picindex\"&url
If myCache.valid Then
body = myCache.value
Else
body = GetWebData(url)
myCache.add body,dateadd(\"d\",1,now)
End If<\/p>\n

If Err.Number = 0 Then
Response.CharSet = \"UTF-8\"
Response.ContentType = \"application\/octet-stream\"
Response.BinaryWrite body
Response.Flush
Else
Wscript.Echo Err.Description
End if<\/p>\n

'\u53d6\u5f97\u6570\u636e
Public Function GetWebData(ByVal strUrl)
Dim curlpath
curlpath = Mid(strUrl,1,Instr(8,strUrl,\"\/\"))
Dim Retrieval
Set Retrieval = Server.CreateObject(\"Microsoft.XMLHTTP\")
With Retrieval
.Open \"Get\", strUrl, False,\"\",\"\"
.setRequestHeader \"Referer\", curlpath
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function<\/p>\n

'cache\u7c7b<\/p>\n

class Cache
private obj 'cache\u5185\u5bb9
private expireTime '\u8fc7\u671f\u65f6\u95f4
private expireTimeName '\u8fc7\u671f\u65f6\u95f4application\u540d
private cacheName 'cache\u5185\u5bb9application\u540d
private path 'url<\/p>\n

private sub class_initialize()
path=request.servervariables(\"url\")
path=left(path,instrRev(path,\"\/\"))
end sub<\/p>\n

private sub class_terminate()
end sub<\/p>\n

public property get blEmpty
'\u662f\u5426\u4e3a\u7a7a
if isempty(obj) then
blEmpty=true
else
blEmpty=false
end if
end property<\/p>\n

public property get valid
'\u662f\u5426\u53ef\u7528(\u8fc7\u671f)
if isempty(obj) or not isDate(expireTime) then
valid=false
elseif CDate(expireTime)<now then
valid=false
else
valid=true
end if
end property<\/p>\n

public property let name(str)
'\u8bbe\u7f6ecache\u540d
cacheName=str & path
obj=application(cacheName)
expireTimeName=str & \"expires\" & path
expireTime=application(expireTimeName)
end property<\/p>\n

public property let expires(tm)
'\u91cd\u8bbe\u7f6e\u8fc7\u671f\u65f6\u95f4
expireTime=tm
application.lock
application(expireTimeName)=expireTime
application.unlock
end property<\/p>\n

public sub add(var,expire)
'\u8d4b\u503c
if isempty(var) or not isDate(expire) then
exit sub
end if
obj=var
expireTime=expire
application.lock
application(cacheName)=obj
application(expireTimeName)=expireTime
application.unlock
end sub<\/p>\n

public property get value
'\u53d6\u503c
if isempty(obj) or not isDate(expireTime) then
value=null
elseif CDate(expireTime)<now then
value=null
else
value=obj
end if
end property<\/p>\n

public sub makeEmpty()
'\u91ca\u653eapplication
application.lock
application(cacheName)=empty
application(expireTimeName)=empty
application.unlock
obj=empty
expireTime=empty
end sub<\/p>\n

public function equal(var2)
'\u6bd4\u8f83
if typename(obj)<>typename(var2) then
equal=false
elseif typename(obj)=\"Object\" then
if obj is var2 then
equal=true
else
equal=false
end if
elseif typename(obj)=\"Variant()\" then
if join(obj,\"^\")=join(var2,\"^\") then
equal=true
else
equal=false
end if
else
if obj=var2 then
equal=true
else
equal=false
end if
end if
end function
end class
%><\/code><\/p>\n

Php\u7248\u672c:<\/p>\n

<?php
\/**********************************************************************
\u7a81\u7834\u9632\u76d7\u94fe\u7684\u663e\u793a\u56fe\u7247\u6807\u7b7e[simg],PHP\u7a0b\u5e8f\u90e8\u5206
\u4f5c\u8005\uff1at1000
\u5f00\u53d1\u8bba\u575b\uff1a\u6c34\u5ba2\u574a\u8bba\u575b
*********************************************************************\/
ob_start();
$img=$_GET['url'];<\/p>\n

$host=$path=str_replace('http:\/\/<\/a>','',$img);
$host=explode('\/',$host);
$host=$host[0];
$path=strstr($path,'\/');
$fp = fsockopen($host, 80, $errno, $errstr, 30);
if ($fp)
{
@fputs($fp, \"GET $path HTTP\/1.1
\n\");
@fputs($fp, \"Host: $host
\n\");
@fputs($fp, \"Accept: *\/*
\n\");
@fputs($fp, \"Referer: http:\/\/<\/a>$host\/
\n\");
@fputs($fp, \"User-Agent: Mozilla\/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
\n\");
@fputs($fp, \"Connection: Close<\/p>\n

\");
}<\/p>\n

$Content = '';
while ($str = fread($fp, 4096))
$Content .= $str;
@fclose($fp);
$pos=strpos($Content,\"<\/p>\n

\");
$head=substr($Content,0,$pos);
$text=substr($Content,$pos+4);
header($head);
echo $text;
?><\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

163\u7684\u76f8\u518c\u6709\u9632\u76d7\u94fe\u7684\u529f\u80fd,\u5728\u5176\u4ed6\u57df\u540d\u4e0b\u5f15\u7528\u56fe\u7247\u65f6\u5019\u4f1a\u5f97\u4e0d\u5230\u6570\u636e.\u4f53\u73b0\u5728\u6d4f\u89c8\u5668\u4e0a,\u5c31\u662f\u4e00\u4e2a\u7ea2X.\u6211\u4eec\u5229\u7528htt … Continue reading \u8fdc\u7a0b\u5f15\u7528\u7f51\u6613\u76f8\u518c\u56fe\u7247(xmlhttp+\u7f13\u5b58)<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-323","post","type-post","status-publish","format-standard","hentry","without-featured-image"],"_links":{"self":[{"href":"https:\/\/1vr.cn\/index.php?rest_route=\/wp\/v2\/posts\/323","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/1vr.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/1vr.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/1vr.cn\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/1vr.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=323"}],"version-history":[{"count":1,"href":"https:\/\/1vr.cn\/index.php?rest_route=\/wp\/v2\/posts\/323\/revisions"}],"predecessor-version":[{"id":1009,"href":"https:\/\/1vr.cn\/index.php?rest_route=\/wp\/v2\/posts\/323\/revisions\/1009"}],"wp:attachment":[{"href":"https:\/\/1vr.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=323"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/1vr.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=323"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/1vr.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=323"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}