وكيل الويب عبر الإنترنت (إصدار Asp)
الكاتب：Eve Cole
وقت التحديث：2009-06-23 17:01:33
يمكن استخدام برنامج وكيل الويب المكتوب بلغة asp لاختراق قيود البوابة، وما إلى ذلك. ويتم استخدامه بشكل أساسي مع Ajax (بسبب مشكلات الوصول عبر النطاق في Firefox) الإصدار 0.1 المؤلف LlinZzi
تحدد الوظيفة رمز موقع الويب، وتدعم التحويل التلقائي للارتباطات التشعبية بأي لغة، ولها وظيفة لم يتم حلها لتنزيل الصور عن بعد. حاليًا، لا يمكن استخدامها إلا لرمز موقع الويب، ولم يتم إعادة توجيه الصور والبيانات الأخرى بعد مكتمل.
[انسخ هذا الكود]الكود:
< %@LANGUAGE="JavaSCRIPT " CODEPAGE="65001"%>
<%Response.Charset = "utf-8"%>
<%
Server.ScriptTimeout=9999999;
var Surl = String(Request.QueryString("url"));
إذا (سورل == "غير محدد"){
Response.Write("<p style="font-size:9pt;margin:30px;padding:10px;text-align:center;background-color:#FFCCCC;border: 1px Solid #999999;">Asp proxy بواسطة لينزي</p>");
Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px Solid #999999;">");
Response.Write("<form action="#" way="get" >");
Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">الرجاء إدخال عنوان URL</p>");
Response.Write("<p><input style="background-color: #FFCCCC;border: 1px Solid #999999;" type="text" name="url"></p>" );
Response.Write("<p><input style="background-color: #FFCCCC;border: 1px Solid #999999;" type="submit" value="GoWeb"></p>" );
Response.Write("</div>");
}
آخر إذا (سورل == ""){
Response.Write("<p style="font-size:9pt;margin:30px;padding:10px;text-align:center;background-color:#FFCCCC;border: 1px Solid #999999;">Asp proxy بواسطة لينزي</p>");
Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px Solid #999999;">");
Response.Write("<p>العنوان فارغ، يرجى إدخاله بتنسيق مثل www.tom.com </p>");
Response.Write("</div>");
}
آخر{
Surl = (Surl.substr(0,7) != "http://") ? " http://"+Surl : Surl;
Response.Write(send_request(Surl));
}
وظيفة send_request(url) {
فار مشفر النص؛
http_request = Server.CreateObject("Microsoft.XMLHTTP");
يحاول{
http_request.Open("GET",url,false);
http_request.Send(null);
}
قبض (ه)
{
Response.Write(e.description);
}
إذا (http_request.ReadyState == 4){
// تحديد بداية الترميز تلقائيًا
var charresult = http_request.ResponseText.match(/CharSet=(S+)"/i);
إذا (نتيجة!= فارغة){
var Cset = charresult[1];
}else{Cset = "utf-8"}
// تحديد نهاية الترميز تلقائيًا
codedtext = bytesToBSTR(http_request.Responsebody,Cset);
}آخر{
codedtext = "خطأ";
}
// استبدال الارتباط التشعبي
codedtext = codedtext.replace(/href="/?/ig,"href=""+url+"/");
codedtext = codedtext.replace(/(<a.*href=")/ig,"$1servergate.asp?url=");
return(codetext);
}
الدالة bytesToBSTR(body,Cset){
فار objstream;
objstream = Server.CreateObject("Adodb.Stream");
objstream.Type = 1;
objstream.Mode = 3;
objstream.Open();
objstream.Write(body);
objstream.Position = 0;
objstream.Type = 2;
objstream.Charset = Cset;
bytesToBSTR = objstream.Readtext;
objstream.Close;
return(bytesToBSTR);
}
وظيفة SaveRemoteFile(LocalFileName,RemoteFileUrl){
فار استرجاع,إعلانات;
Retrieval = Server.CreateObject("Microsoft.XMLHTTP");
Retrieval.Open("GET",RemoteFileUrl,false);
Retrieval.Send(null);
إذا (Retrieval.ReadyState == 4){
Ads = Server.CreateObject("Adodb.Stream");
نوع الإعلانات = 1؛
Ads.Open();
Ads.Write(Retrieval.Responsebody);
Ads.SaveToFile(Server.MapPath(LocalFileName),2);
إلغاء الإعلانات؛
Ads.Close;
}
}
//SaveRemoteFile("aa.gif"،/images/XrssFile/2007-1/12/2007112124640411.gif");
%>
