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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   9 I% Y7 z+ x& ?( C0 l6 {
2. <%Response.Charset = "utf-8"%>
     c* I( J  X) C. o3 Y1 B2 G
3. <%
   
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>");
   " S# ?  O; f' Q' t/ e) w; v5 |$ F
8. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
   $ X0 k7 b. E1 P- ?
9. Response.Write("<form action="#" method="get" >");
   
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    $ W. n+ ~# c3 E3 ^
11. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="text" name="url"></p>");
    9 G- u4 w2 Z8 w* K- n8 F% M
12. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="submit"  value="GoWeb"></p>");
    
13. Response.Write("</div>");
    
14. }
    
15. else if(Surl == ""){
    6 }# a" F0 L  k+ Y
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>");
    # I9 I2 y* d# i# i5 d1 \4 p2 N
17. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
    * _; ]% b, @' N8 v" e6 w' ^1 w
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    - ^/ H) ~' @5 y0 F' _
19. Response.Write("</div>");
    
20. }
    ; @* u- }6 l1 n
21. else{
    * I. j% ?9 \5 k: S& o5 p
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    ) `5 k7 f, e( p" [/ h, e3 J. M
23. Response.Write(send_request(Surl));
    
24. }
    ' p' {% {! r2 x
25. function send_request(url) {
    0 {' u5 U% V3 W' N5 p7 F$ F  z' D
26.     var codedtext;
    ( ~: P$ @7 @% q9 @  m! g* ]6 d
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    0 ~2 d: y9 ?# G$ @+ j3 y8 A
28.     try{
    3 @" ~* |( U1 x7 D% [! ]
29.     http_request.Open("GET",url,false);
    
30.     http_request.Send(null);
    $ U6 e# |1 Y4 E, ~3 C6 g3 Z
31.     }
    ( M6 o$ O+ m3 e/ _% b6 K5 v
32.     catch(e)
    ' z, r' H) N7 ~8 x) J+ K/ K3 `3 B
33.     {
    
34.     Response.Write(e.description);
      z9 E# n# I3 H: I) T
35.     }
    
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    4 ^" p, O9 _+ U/ K3 K
40.         var Cset = charresult[1];
    9 [  |3 E" V# F6 q6 @
41.         }else{Cset = "utf-8"}
    
42.         //自動判斷編碼結束
    1 k0 x& x$ @; ^) {8 J
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    
44.         }else{
    # _3 \9 A& g: @& u! I
45.         codedtext = "Erro";
      @" W) g# ^% U( O* z$ o* o; x  e) N
46.         }
    * h0 W2 N8 g" v
47.         //替換超連接
    , c* C9 h" x- `+ Q
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    
51. }
    & ~2 i$ x5 k4 Y, R
52. function bytesToBSTR(body,Cset){
    
53.     var objstream;
    0 F0 y$ H* F2 {' u8 U
54.     objstream = Server.CreateObject("Adodb.Stream");
    
55.     objstream.Type = 1;
    
56.     objstream.Mode = 3;
    9 h7 p  t& n  |
57.     objstream.Open();
    
58.     objstream.Write(body);
    4 P# b- O* Y6 [( K( m( B( x
59.     objstream.Position = 0;
    $ o2 N  Q% o1 u: ^- u
60.     objstream.Type = 2;
    
61.     objstream.Charset = Cset;
    
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    4 w7 N) g) T4 E" `
64.     return(bytesToBSTR);
    * r  X. c! N. L* L
65. }
    9 q5 v! T/ D) S2 g/ x
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    
67.     var Retrieval,Ads;
    
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    7 B9 T1 w$ o5 @0 \+ w+ U! p! z
70.     Retrieval.Send(null);
    
71.     if (Retrieval.ReadyState == 4){
    
72.     Ads = Server.CreateObject("Adodb.Stream");
    
73.     Ads.Type = 1;
    
74.     Ads.Open();
    7 `9 Y& {- p& {6 \* g: @7 g8 p
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    0 C! c' t$ ~- Y2 T, D: R
77.     Ads.Cancel;
    
78.     Ads.Close;
    
79.     }
    
80. }
    ! v7 d' P) s1 D
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    
82. %>

複製代碼