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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   
2. <%Response.Charset = "utf-8"%>
   $ Z7 w/ e! \9 N- t! w: a8 o, E
3. <%
   & ^" w- T/ h& m, C) r8 j) e: \
4. Server.ScriptTimeout=9999999;
   
5. var Surl = String(Request.QueryString("url"));
   / F% |1 p$ S2 s0 E
6. if(Surl == "undefined"){
   " d" m, t# q7 y9 y# ]( }: K$ k
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;">");
   
9. Response.Write("<form action="#" method="get" >");
   
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    - o* p, O( Q* D' w2 d- Z
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>");
    7 I) _# E* l2 x! }  @
13. Response.Write("</div>");
    
14. }
    ( e: t/ G! v# @6 W2 _) _: U9 g
15. else if(Surl == ""){
    2 C7 k" P3 G/ H$ c0 B: @
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>");
    * C/ Q- ^: w8 w! F* F
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>");
    , O. v0 A2 s( m/ r9 G
19. Response.Write("</div>");
    
20. }
    7 u, M  A) ^+ s) m( h$ X$ n. ]* c5 S
21. else{
    , |5 G' Z4 N) ^' M( U+ T
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    
23. Response.Write(send_request(Surl));
    - ^+ {  H9 ^: S/ [- D
24. }
    6 Y; N# V0 W/ z  I9 H) K% |
25. function send_request(url) {
    4 U7 z% [" R+ i6 ?) A' g6 ~$ \
26.     var codedtext;
    - `9 i: P1 g1 `% Z/ |4 j
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    
28.     try{
    
29.     http_request.Open("GET",url,false);
    / z; e' d8 Z( @. v6 \
30.     http_request.Send(null);
    , s. z3 Z8 r& F  u+ u' A$ V; N3 J
31.     }
    
32.     catch(e)
    * G$ ?" p( u8 o3 k
33.     {
    " ]5 T2 J6 T5 ~; Z
34.     Response.Write(e.description);
    ! @, ~) T! b, E" O
35.     }
    3 W3 |: b# t7 A$ e2 `- F& I
36.     if (http_request.ReadyState == 4){
    / j& M+ \& F7 I$ L- K
37.         //自動判斷編碼開始
    
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    ; w$ n/ K! C/ V3 G: d: h6 _0 C
39.         if (charresult != null){
    
40.         var Cset = charresult[1];
    
41.         }else{Cset = "utf-8"}
    
42.         //自動判斷編碼結束
    
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    0 o! [8 x% I  a- ]% v5 h
44.         }else{
    3 F& ^1 p$ L' G6 S0 a- b
45.         codedtext = "Erro";
    
46.         }
    1 l2 X( x) b5 u- z
47.         //替換超連接
      v2 \( r% P# F- k9 V. r, t
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    ( l, x( w9 X% x! n' J" }5 |) o/ y
51. }
    1 Y/ Q: I+ ^' ^. c7 ]' i3 M
52. function bytesToBSTR(body,Cset){
    - U  Z$ I, X. f. `! s
53.     var objstream;
    
54.     objstream = Server.CreateObject("Adodb.Stream");
    : f: `/ j/ A3 B  D
55.     objstream.Type = 1;
    : S  o: j; Z1 t: G6 `
56.     objstream.Mode = 3;
    
57.     objstream.Open();
    
58.     objstream.Write(body);
    
59.     objstream.Position = 0;
    ! [( f+ @3 n" C8 }1 u' P  t
60.     objstream.Type = 2;
    - k4 w2 b) s/ I
61.     objstream.Charset = Cset;
    7 ]& [. R9 `' Q* E, r; e
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    
64.     return(bytesToBSTR);
    3 [% k1 d% v2 [' X" p: E
65. }
    
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    
67.     var Retrieval,Ads;
    
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    ' Y( y6 r) i, E, Z; X( N
69.     Retrieval.Open("GET",RemoteFileUrl,false);
      z: G/ C7 |; J
70.     Retrieval.Send(null);
    
71.     if (Retrieval.ReadyState == 4){
    3 }1 @' [5 w. a
72.     Ads = Server.CreateObject("Adodb.Stream");
    
73.     Ads.Type = 1;
    / |  W" y6 w! ~. ]3 c9 q
74.     Ads.Open();
    + [& T$ P/ \1 r5 S. r9 Y% H: l
75.     Ads.Write(Retrieval.Responsebody);
    1 Z4 [& N2 n+ V* I- ]; W  ~
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    
77.     Ads.Cancel;
    ; v! o8 K$ u; r5 ~
78.     Ads.Close;
    
79.     }
    
80. }
    
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    
82. %>

複製代碼