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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   
2. <%Response.Charset = "utf-8"%>
   
3. <%
   : e* N+ V1 `, G, L& \4 }8 s
4. Server.ScriptTimeout=9999999;
   
5. var Surl = String(Request.QueryString("url"));
   ' H7 g# G' k5 F7 l
6. if(Surl == "undefined"){
   : z( f  ~! P( T- J4 |
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;">");
   1 o# x) W4 g8 X6 |, I$ X
9. Response.Write("<form action="#" method="get" >");
   
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    2 o  [* g; r" ^0 D
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>");
    1 t7 B: [4 p: O+ b$ _$ H( m
13. Response.Write("</div>");
    
14. }
    % a- R4 x1 @) O4 X4 _7 t$ u
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;">");
    * s! Y* `! G4 Y8 I0 ^" D
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    % L6 T. p" R- g3 X. g0 H' V# X
19. Response.Write("</div>");
    - t2 Q! y7 Q! E6 B7 Y& O  G' N
20. }
    
21. else{
    
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    
23. Response.Write(send_request(Surl));
    
24. }
    0 y" K8 h6 N& P: f! x( n
25. function send_request(url) {
    
26.     var codedtext;
    0 H3 n( K1 R- {, W
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    8 q$ u: W- q+ V4 K! Y
28.     try{
    1 Y0 Y( h% L# i9 S  P* h
29.     http_request.Open("GET",url,false);
    5 y) Y6 z; C8 \
30.     http_request.Send(null);
    
31.     }
    
32.     catch(e)
    
33.     {
    , D/ A9 f7 y* U  ^+ Z6 Y$ f
34.     Response.Write(e.description);
    
35.     }
    2 t, t; L! ~" Y. i- J
36.     if (http_request.ReadyState == 4){
    $ o# V  X, a9 U! E, C4 J3 w, T# P
37.         //自動判斷編碼開始
    
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    
40.         var Cset = charresult[1];
    " x% z) h: ~$ {2 N: o' u
41.         }else{Cset = "utf-8"}
    $ T7 [! y/ b" t" t" Z6 t# L/ b3 m
42.         //自動判斷編碼結束
    , A: w% ?9 L7 x& b
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    
44.         }else{
    
45.         codedtext = "Erro";
    
46.         }
    # w" `$ c# e3 ^% b9 c
47.         //替換超連接
    , Y, E3 Y" [% M# n2 `
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    
51. }
    % U& o, u7 S, g/ E: t
52. function bytesToBSTR(body,Cset){
    7 d: P9 I! R( z1 T5 o: ?0 d! b
53.     var objstream;
    
54.     objstream = Server.CreateObject("Adodb.Stream");
    % @' }  D, B; L5 r. N
55.     objstream.Type = 1;
    9 f6 e9 Q" r/ B9 [% l( \( d+ s
56.     objstream.Mode = 3;
    9 d# O: ~  O, n. I0 G% d7 X! U
57.     objstream.Open();
    ! r9 p4 n% e) z3 |
58.     objstream.Write(body);
    
59.     objstream.Position = 0;
    
60.     objstream.Type = 2;
    ( B; \+ q* n1 i& w
61.     objstream.Charset = Cset;
    " N- [7 c, L% O; f1 X
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    
64.     return(bytesToBSTR);
    
65. }
      T% u5 d7 R$ X; w: e
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    
67.     var Retrieval,Ads;
    # S- m; s* u) J0 b
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    
70.     Retrieval.Send(null);
    
71.     if (Retrieval.ReadyState == 4){
    7 I) Y: f% A0 N6 l! J- }, j6 P
72.     Ads = Server.CreateObject("Adodb.Stream");
    
73.     Ads.Type = 1;
    
74.     Ads.Open();
    2 x( z' Z$ Y; l; M
75.     Ads.Write(Retrieval.Responsebody);
    4 ]1 B6 H  p7 C* W0 [7 o( d
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    8 Q& [: M7 X& g+ I8 C4 Z% i* I( z2 i
77.     Ads.Cancel;
    $ o" b- e- v9 ^1 n
78.     Ads.Close;
    ( R+ J6 M* }9 b; S  ]$ V; N4 ~
79.     }
    
80. }
    * [8 Q( P( X% K* T3 [9 c
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    # D& ~  Z2 K; Z( Z  j6 u
82. %>

複製代碼