Web 在線代理的 ASP 版！（開源）

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   
2. <%Response.Charset = "utf-8"%>
   
3. <%
   & F" w" O6 N' T
4. Server.ScriptTimeout=9999999;
   
5. var Surl = String(Request.QueryString("url"));
   
6. if(Surl == "undefined"){
   
7. Response.Write("<p style="font-size:9pt;margin:30px;padding:10px;text-align:center;background-color:#FFCCCC;border: 1px solid #999999;">金光論壇 ASP WEB 在線代理程序 1.0 版</p>");
   
8. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
   $ }8 N" \& O% J3 l/ K  Y' M
9. Response.Write("<form action="#" method="get" >");
   
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    ( [3 ~0 @# M  d8 u9 c
11. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="text" name="url"></p>");
    
12. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="submit"  value="GoWeb"></p>");
    ' ~- c( |. t8 _1 g" n7 G$ W( u8 @
13. Response.Write("</div>");
    
14. }
    6 t  s( v) c- T# T  n2 m
15. else if(Surl == ""){
    
16. Response.Write("<p style="font-size:9pt;margin:30px;padding:10px;text-align:center;background-color:#FFCCCC;border: 1px solid #999999;">金光論壇 ASP WEB 在線代理程序 1.0 版</p>");
    
17. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
    
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    ; l  H4 d  K# T, d! {) A
19. Response.Write("</div>");
    2 b& }& d0 w& T5 i: {
20. }
    
21. else{
    0 A3 X. F" S# |6 N
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    
23. Response.Write(send_request(Surl));
    / b2 [" x3 R8 |) f. S
24. }
    
25. function send_request(url) {
    
26.     var codedtext;
    0 j; I5 v4 W5 e9 e! Z
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    9 C( g2 N& S) k/ d7 f) i* A
28.     try{
    9 D$ q4 n" y1 Q+ z& c7 f+ v
29.     http_request.Open("GET",url,false);
    " y. d1 m' a' o# q2 A
30.     http_request.Send(null);
    
31.     }
    
32.     catch(e)
    
33.     {
    0 {1 r+ N8 J1 x: i- q
34.     Response.Write(e.description);
    7 @; \- N) X; f8 N* d( H5 R& q9 U
35.     }
    + f2 }+ V8 P( T( I
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    2 k# {4 N: n" q
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    / X9 ]' b4 _/ _; X2 M9 n
40.         var Cset = charresult[1];
    
41.         }else{Cset = "utf-8"}
    
42.         //自動判斷編碼結束
    
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    ( S, ~. z: l& S, D8 b
44.         }else{
    
45.         codedtext = "Erro";
    ; s1 G' i+ D+ ?- K5 o6 r8 Y
46.         }
    
47.         //替換超連接
    
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    0 o, f5 t2 ]0 ^( x3 ?# X0 }1 m8 U
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    2 Q# G# N" J% q! e: a: L
50.     return(codedtext);
    
51. }
    , h! C* n0 Z2 s
52. function bytesToBSTR(body,Cset){
    , j& Q( X+ E/ p. R/ |8 I9 q
53.     var objstream;
    
54.     objstream = Server.CreateObject("Adodb.Stream");
    
55.     objstream.Type = 1;
    6 L. t( W% P! h3 u( [
56.     objstream.Mode = 3;
    6 V# p% f' N, ?5 e
57.     objstream.Open();
    
58.     objstream.Write(body);
    
59.     objstream.Position = 0;
    4 m: w, q1 i, B( L) y4 A
60.     objstream.Type = 2;
    
61.     objstream.Charset = Cset;
    
62.     bytesToBSTR = objstream.Readtext;
    ( R" A/ {" G7 j% h3 _; i
63.     objstream.Close;
      V$ i0 t, O6 f
64.     return(bytesToBSTR);
    
65. }
    
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    
67.     var Retrieval,Ads;
    ) G1 }+ j7 e" v- D: B
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    8 F' t4 j" u0 f: b1 _2 H7 l' x5 L& O
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    
70.     Retrieval.Send(null);
    
71.     if (Retrieval.ReadyState == 4){
    4 a, A, `9 l; \# H2 h
72.     Ads = Server.CreateObject("Adodb.Stream");
    ' F( ?1 Y; l" `* t
73.     Ads.Type = 1;
    
74.     Ads.Open();
    8 I$ D7 H) I, i5 a# t; X7 O
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    
77.     Ads.Cancel;
    
78.     Ads.Close;
    8 q( C( j/ W9 x) D
79.     }
    ( ^# a* m1 W! B6 R* B% O
80. }
    ; p6 W6 E( y( M
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    
82. %>

複製代碼