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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   : K4 T4 v6 `; y" y# X
2. <%Response.Charset = "utf-8"%>
   9 A0 v" e! y! I" W" _* H
3. <%
   
4. Server.ScriptTimeout=9999999;
   3 I2 k: d2 h/ b& ?( K' f+ B  D9 ^
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>");
   , J% Q8 \- c; _2 v# G' l
8. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
   5 n8 X1 G7 l8 b2 h/ `4 G  Z3 s
9. Response.Write("<form action="#" method="get" >");
   
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    $ v5 \7 p& \7 H8 l: \7 i  p
11. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="text" name="url"></p>");
    / ?. b0 B. W4 U$ ~% W9 Z8 i
12. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="submit"  value="GoWeb"></p>");
    
13. Response.Write("</div>");
    , U1 H1 F* D: N! b; G2 s
14. }
    . u. e& a3 n8 c& u6 D
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>");
    $ q  F+ w; S/ {+ \
17. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
    2 v0 D4 N7 X8 k; h
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    
19. Response.Write("</div>");
    ' O- _% @6 S+ W
20. }
    : B* N  l# _( B
21. else{
    
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    1 N0 i5 Y0 T& [
23. Response.Write(send_request(Surl));
      G6 ]1 s  k4 ]" Y$ h$ Q  G$ t
24. }
    
25. function send_request(url) {
    
26.     var codedtext;
    
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    
28.     try{
    
29.     http_request.Open("GET",url,false);
    
30.     http_request.Send(null);
    ) M. ]7 }+ b0 f& D+ g
31.     }
    6 u* y1 E& m+ \+ m! Q6 p  }1 s- R
32.     catch(e)
      m% F1 F8 m4 _6 {5 i
33.     {
    9 p# e5 `3 `9 Z9 C8 p; Y
34.     Response.Write(e.description);
    + E' j2 a/ b+ ~7 O8 z5 G
35.     }
    
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    & z) j" S3 x# ^/ I0 [. X
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    9 k2 Z0 Q' Y  [- B! Y) y
40.         var Cset = charresult[1];
    , G" l  I( D' ~  p
41.         }else{Cset = "utf-8"}
    
42.         //自動判斷編碼結束
    1 l. g: \! f1 |& j- F
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    
44.         }else{
    
45.         codedtext = "Erro";
    $ H& b* c8 ]% x) ~' s
46.         }
    
47.         //替換超連接
    ' X7 a, C; r$ z% d/ S) s0 m
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    : u! t8 S7 P, \& l' B
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    : R- G1 h/ E5 ~& B8 n
51. }
    & Q) V2 ?) G  c) ?+ u8 ?
52. function bytesToBSTR(body,Cset){
    
53.     var objstream;
    
54.     objstream = Server.CreateObject("Adodb.Stream");
    
55.     objstream.Type = 1;
    , T/ @2 X) U4 {) z$ y$ k6 m7 [
56.     objstream.Mode = 3;
    " o& r* P/ ~) S: e( G6 v  n3 g0 U
57.     objstream.Open();
    ; i( |6 t) B+ ?. q5 k
58.     objstream.Write(body);
    + _2 }8 f5 s5 ^' T5 S2 @
59.     objstream.Position = 0;
    
60.     objstream.Type = 2;
    ' \% v7 _/ J" M; }5 f
61.     objstream.Charset = Cset;
    ( |. n* I! @" A( I2 D/ M) P
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    ! N5 V. @% H, h, p5 @
64.     return(bytesToBSTR);
    
65. }
    
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    ! q4 o6 y3 l6 G- k. }1 Z
67.     var Retrieval,Ads;
    & a8 c* w& d5 k. G4 j
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    # X$ \( |; x0 D/ {2 E% I; w" n
70.     Retrieval.Send(null);
    2 {' i( g% K& L
71.     if (Retrieval.ReadyState == 4){
    : O' Z! R) y. Y+ P, X4 d) O- e; z6 P
72.     Ads = Server.CreateObject("Adodb.Stream");
    
73.     Ads.Type = 1;
    
74.     Ads.Open();
    8 T) b$ L6 V1 Z" s: E
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    ! W& c3 p) H4 D: O1 }
77.     Ads.Cancel;
    ( u4 W+ z: u1 q" c1 R, B5 n
78.     Ads.Close;
    
79.     }
    2 A' M2 e9 O9 ]2 A
80. }
    
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    % }; i5 t! _5 W- t2 w3 E- Q
82. %>

複製代碼