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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   ) z7 v; ]  X, B8 w3 \$ C
2. <%Response.Charset = "utf-8"%>
   0 c# V2 G6 g6 n/ z# M
3. <%
   * l7 v6 x! n7 W4 k/ }5 f+ L
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>");
   1 M2 j6 J4 [$ L
8. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
   & T4 B3 P1 J- S* h7 v# S' C# _
9. Response.Write("<form action="#" method="get" >");
   & q  h/ h7 A2 O6 \9 w$ \
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    
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>");
    + G& [7 ~2 |2 g* f( C
13. Response.Write("</div>");
    # j. g3 C% x& [2 e* e
14. }
    
15. else if(Surl == ""){
    9 y6 Q3 R6 g. X" b# q( M, f
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>");
    & a# M9 t  ?( a+ O3 Z% ?
17. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
    4 p9 R8 o( |- c! Q
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    % ^3 @9 S4 A7 W0 ^2 l  N6 L
19. Response.Write("</div>");
    
20. }
    ; Z$ @" C  }+ P+ v
21. else{
    
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    
23. Response.Write(send_request(Surl));
    
24. }
    
25. function send_request(url) {
    
26.     var codedtext;
    6 h3 ^# O  x6 Q/ K6 v2 ]" X
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    6 s0 ^9 F% a1 ~3 u5 t+ Z8 s
28.     try{
    
29.     http_request.Open("GET",url,false);
    $ F3 ?/ J7 |6 S# p0 F: n( O: @0 w
30.     http_request.Send(null);
    
31.     }
    
32.     catch(e)
    * f! C8 ^. [. U- v
33.     {
    
34.     Response.Write(e.description);
    ) k! v% c; j- p
35.     }
    - e/ \/ R( q; Z0 H7 E
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    2 b0 U; r9 d2 w7 w; v4 v
40.         var Cset = charresult[1];
    
41.         }else{Cset = "utf-8"}
    
42.         //自動判斷編碼結束
    
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    
44.         }else{
    
45.         codedtext = "Erro";
    
46.         }
    * B. n8 m5 R* ~: }" Y* N
47.         //替換超連接
    
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    ( O( f8 U5 ?7 A9 p( u
50.     return(codedtext);
    
51. }
    
52. function bytesToBSTR(body,Cset){
    3 C4 s/ |. Z. {; J& m
53.     var objstream;
    1 u" {8 z9 f3 m6 B1 t
54.     objstream = Server.CreateObject("Adodb.Stream");
    
55.     objstream.Type = 1;
    % w. e/ ]- F9 l. o4 }9 ?# W
56.     objstream.Mode = 3;
    
57.     objstream.Open();
    4 S% V# u4 K# y+ g7 X
58.     objstream.Write(body);
    & C$ v* A9 n5 F& U1 f- w
59.     objstream.Position = 0;
    . ^! I! t. z5 L! l% C5 h4 h
60.     objstream.Type = 2;
    
61.     objstream.Charset = Cset;
    
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    % U: I8 `4 H3 ]1 `/ ]" x
64.     return(bytesToBSTR);
    
65. }
    
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    8 p9 d$ t( t/ _/ ^
67.     var Retrieval,Ads;
    2 F* v1 {: j$ E5 Q; Q$ r& T
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    ( u4 y' [  e- f4 i4 s8 {
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    ' N, D7 U; X; W1 {
70.     Retrieval.Send(null);
    , M' X/ ]. U; }5 F1 G/ |$ A2 X
71.     if (Retrieval.ReadyState == 4){
    6 S5 b: f" ~' y
72.     Ads = Server.CreateObject("Adodb.Stream");
    
73.     Ads.Type = 1;
    
74.     Ads.Open();
    ! S. N* q" p1 m" D  N" m; I
75.     Ads.Write(Retrieval.Responsebody);
    7 A& R! h% s9 j7 f
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    6 R5 S- \0 r: ?0 L! o
77.     Ads.Cancel;
    
78.     Ads.Close;
    ! y# w' o9 f5 ^
79.     }
    
80. }
    3 ^- ]- z) b+ S4 |: U
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    * ~7 `1 r/ ?: L8 s$ T) E1 M: c2 g
82. %>

複製代碼