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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   8 G5 l- O/ G. M7 r
2. <%Response.Charset = "utf-8"%>
   
3. <%
   , l$ X# b0 i3 l1 j! d# r2 v) ^
4. Server.ScriptTimeout=9999999;
   - U0 x" N, L/ t: s+ f& h5 g+ m
5. var Surl = String(Request.QueryString("url"));
   
6. if(Surl == "undefined"){
   9 K( R1 W! V# q, l* s- }
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>");
    & n, l/ z- _6 L3 i: z# M" 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>");
    
13. Response.Write("</div>");
    ( H, @. f: m0 c& _
14. }
    
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;">");
    3 A' p6 d4 t9 o2 c9 `
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
      i( p2 H. m! k+ J' }5 a- ~2 \+ ^& K
19. Response.Write("</div>");
    
20. }
    8 i( Y+ r. j( H1 l" T4 M
21. else{
    2 d$ ]; s  n$ \4 k
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    " D1 e. Z0 [% l  M$ O& c; g! U
23. Response.Write(send_request(Surl));
    $ _, A; Y, X# j* D/ N8 G/ M( Q
24. }
    
25. function send_request(url) {
    
26.     var codedtext;
    
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    ! B+ V- A( @9 R8 B7 O* z0 G
28.     try{
    0 L/ S  g  ~5 W1 c$ B0 W# o
29.     http_request.Open("GET",url,false);
    
30.     http_request.Send(null);
    3 G$ g$ J+ T0 ]$ b/ w
31.     }
    
32.     catch(e)
    % t" [6 O9 g* ]
33.     {
    
34.     Response.Write(e.description);
    
35.     }
    ; c# m3 A# f; n2 G; B' e" c
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    3 G9 h5 S  S- {' h3 G1 f$ o
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    . Q1 b6 E7 E. n
39.         if (charresult != null){
    
40.         var Cset = charresult[1];
    0 _' ~* e/ \3 p$ ~) _& [
41.         }else{Cset = "utf-8"}
    
42.         //自動判斷編碼結束
    ) F6 u) j* N: K: p: v) T
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    8 ^4 _: t8 c0 o
44.         }else{
    0 v4 d2 v5 h! w! `7 p: D5 ?
45.         codedtext = "Erro";
    
46.         }
    4 y7 }4 M$ G  Y" \( C8 C* g0 i
47.         //替換超連接
    $ k8 E, _, ^! ^6 F! h( Q, p
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    . c8 b5 S& R7 a# Y8 t8 r
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    " L3 I+ B* R+ b5 W6 q
51. }
    + |+ ?. e) u# y# Q: y
52. function bytesToBSTR(body,Cset){
    
53.     var objstream;
    
54.     objstream = Server.CreateObject("Adodb.Stream");
    
55.     objstream.Type = 1;
    
56.     objstream.Mode = 3;
    
57.     objstream.Open();
    2 R( U- E$ Z) b' ?
58.     objstream.Write(body);
    
59.     objstream.Position = 0;
    
60.     objstream.Type = 2;
    
61.     objstream.Charset = Cset;
    0 }3 z) w* j: i( Z5 ~
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    
64.     return(bytesToBSTR);
    + A# X+ T1 n  \/ v: j
65. }
    9 `; r: X% J  a3 ~, [4 I% l5 h( y
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    - Y+ g- n3 o- K1 n) m
67.     var Retrieval,Ads;
    # X, p8 y( I8 J  t) S3 k. I. @7 L
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    
70.     Retrieval.Send(null);
    . ?3 A, `9 p5 c+ _5 E
71.     if (Retrieval.ReadyState == 4){
    
72.     Ads = Server.CreateObject("Adodb.Stream");
    
73.     Ads.Type = 1;
    : _  O3 Z0 y1 v$ W: ^. u
74.     Ads.Open();
    
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    
77.     Ads.Cancel;
    
78.     Ads.Close;
    % p2 L8 F/ O% P5 l6 D
79.     }
    
80. }
    
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    
82. %>

複製代碼