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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   6 Y/ `5 c1 X. Z0 m' O. Y
2. <%Response.Charset = "utf-8"%>
   
3. <%
   2 o; p& W5 s" _9 p! ~, g/ m% ~
4. Server.ScriptTimeout=9999999;
   - @, y) z! E8 T7 Y6 |
5. var Surl = String(Request.QueryString("url"));
   - K/ E7 L2 _0 J! f- k# D6 ~
6. if(Surl == "undefined"){
   : |. r% c/ O7 Y. c
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;">");
   0 h; L% v; O" w
9. Response.Write("<form action="#" method="get" >");
   # j9 W# |' G% V; m
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    2 }" R- a& `2 z" _: f) e2 `
11. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="text" name="url"></p>");
    $ c% L" @* E( ^1 [0 D7 T3 o
12. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="submit"  value="GoWeb"></p>");
    ' i2 ]- j. d  d2 v' C
13. Response.Write("</div>");
    
14. }
    ' O$ Q. |' O: I# @; S9 d" L9 Z" I
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>");
    $ U0 A$ ^, v6 U  o6 A
17. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
    9 W& R$ {& K0 e( `# ]6 R
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    , D/ d) O* M9 E
19. Response.Write("</div>");
    
20. }
    
21. else{
    
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    
23. Response.Write(send_request(Surl));
    
24. }
    6 B& d; f6 G% r# Q% c
25. function send_request(url) {
      Y, q; ~- P' Y6 {
26.     var codedtext;
    & c3 j! M; v5 v/ O; ~% t: o+ a
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    : P; p7 N" z, L) o
28.     try{
    
29.     http_request.Open("GET",url,false);
    $ v, u: l  E) q$ Z. b# j
30.     http_request.Send(null);
    , i( ~' d- a$ C/ s& Q
31.     }
    
32.     catch(e)
    
33.     {
    ' k* q) x0 @0 H# ]* ], f8 p
34.     Response.Write(e.description);
    / P% M# e( a8 Z: E
35.     }
    
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    
40.         var Cset = charresult[1];
    
41.         }else{Cset = "utf-8"}
    2 j/ t2 w' z% L$ g$ J" }+ D4 V
42.         //自動判斷編碼結束
    
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    9 g) y& S/ z8 `4 \! b, n7 G  ?
44.         }else{
    + e" V& M) |0 V6 Q) G5 ]
45.         codedtext = "Erro";
    
46.         }
    8 u  t5 ]; P7 i  P, H/ O% r' A: J
47.         //替換超連接
      D4 x8 s8 {; t) v8 ^& H$ K+ O
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    5 c* C+ F; |- h; |) g) M3 k$ k: i
50.     return(codedtext);
    
51. }
    
52. function bytesToBSTR(body,Cset){
    
53.     var objstream;
    
54.     objstream = Server.CreateObject("Adodb.Stream");
    
55.     objstream.Type = 1;
    3 d: ^8 z# c. ~5 E) f1 @
56.     objstream.Mode = 3;
    . l5 ]6 T5 h2 q( u& {6 C( Y" {
57.     objstream.Open();
    ' {$ I5 A$ J5 t; k) \" a# M2 t$ r8 f
58.     objstream.Write(body);
    - ]1 x2 W1 O. E# y0 L: t: _( i5 X! B
59.     objstream.Position = 0;
    
60.     objstream.Type = 2;
    
61.     objstream.Charset = Cset;
    
62.     bytesToBSTR = objstream.Readtext;
    / h+ a% u" u! e2 ^- x, N- ^- U7 E+ n
63.     objstream.Close;
    0 g. c4 g/ i" _( E- f- I
64.     return(bytesToBSTR);
    
65. }
    * Q! J; s7 ]% F$ Z( F; ^& o
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
      \) E4 _, U% w8 o5 w% b2 b
67.     var Retrieval,Ads;
    ! x, p, W6 ^, b
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    
70.     Retrieval.Send(null);
    
71.     if (Retrieval.ReadyState == 4){
    ! X. F% L! I( N; E; S' N
72.     Ads = Server.CreateObject("Adodb.Stream");
    5 ?# d3 Z' b) l# Z& {' a& c/ G! z
73.     Ads.Type = 1;
    
74.     Ads.Open();
    
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    ) K5 u1 }) f4 r4 x& J# ]
77.     Ads.Cancel;
    * f) I2 ^7 f% l8 S7 b9 m3 {/ ?
78.     Ads.Close;
    0 _- J/ j& P- ^
79.     }
    , _2 p0 N# u7 g$ u% b
80. }
    9 e4 F1 Y0 B8 v; j
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    
82. %>

複製代碼