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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   & d  k; _9 Q( ^9 Q
2. <%Response.Charset = "utf-8"%>
   ; [  m0 w8 D8 g1 ^, z: \" U
3. <%
     Z& `, Y9 M5 s9 Z, ?' W
4. Server.ScriptTimeout=9999999;
   % q" S$ L9 t5 Y
5. var Surl = String(Request.QueryString("url"));
   & n7 u- H& g1 H* U
6. if(Surl == "undefined"){
     l' X% s; t$ F7 g8 r( T9 Z& V
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 M- |8 _/ M1 i4 z' \6 V! v
8. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
   - m& t1 r) q" S. g+ `" N8 o' x
9. Response.Write("<form action="#" method="get" >");
   
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>");
    0 ~9 }& I' ~' y$ D
13. Response.Write("</div>");
    8 j1 d3 H* E9 |- S/ j1 ?+ `
14. }
    ( T+ h. a0 M4 q) Y# d
15. else if(Surl == ""){
    * A0 s# [8 k& x* l* R  S
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>");
    * g' i+ D0 f  u2 ?$ ~2 S. h7 |
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>");
    
19. Response.Write("</div>");
    
20. }
    
21. else{
    3 `" Q9 @' Z0 u  _
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    - D' h  z& B% c; V2 n' L; O
23. Response.Write(send_request(Surl));
    8 H. K3 M6 v' U, L  u
24. }
    
25. function send_request(url) {
    
26.     var codedtext;
    5 u8 B* R3 }. ~/ h
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    / m' o+ R8 T4 y! B4 Z! P) @
28.     try{
    - c! N" ], M* G; L. {. l/ z5 u
29.     http_request.Open("GET",url,false);
    
30.     http_request.Send(null);
    7 D# F: e" F' O' s  ]$ }% s) c
31.     }
    
32.     catch(e)
    % I% {" `& ^: {5 D# ?) m) i
33.     {
    
34.     Response.Write(e.description);
    ; ]$ H3 F+ ^6 Q) U4 {
35.     }
    
36.     if (http_request.ReadyState == 4){
    & t# X9 Z: C) g4 C
37.         //自動判斷編碼開始
    
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    * a$ I4 ]& F/ ]. ~  a$ x* {" n1 ]& I
40.         var Cset = charresult[1];
    % A; I6 u; ^. q" s, D+ ?
41.         }else{Cset = "utf-8"}
    
42.         //自動判斷編碼結束
    
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    6 K: C- B, `/ \" b- F+ S/ T) h
44.         }else{
    , n0 p1 u5 B8 O' G  `" P( w2 a' j" U
45.         codedtext = "Erro";
    
46.         }
    
47.         //替換超連接
    4 r, K4 I. l0 H, y" X  f) t( `# U
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    
51. }
    * L# x* U. S5 |7 M  j7 \) L/ S
52. function bytesToBSTR(body,Cset){
    - F/ o: A8 v, h; ?- u
53.     var objstream;
    6 z* y2 e0 v: S! z( J5 O
54.     objstream = Server.CreateObject("Adodb.Stream");
    + J% @6 g& V0 D; l! v( S/ @7 E  J+ [
55.     objstream.Type = 1;
    
56.     objstream.Mode = 3;
    2 t. ~' l$ l  L0 D' H( q; d
57.     objstream.Open();
    
58.     objstream.Write(body);
    7 ~0 L9 p3 Y  u/ F  P
59.     objstream.Position = 0;
    : u* a' W. n3 N' j2 J
60.     objstream.Type = 2;
    
61.     objstream.Charset = Cset;
    : A; O2 i6 `7 D5 P0 v6 y2 `' \
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    
64.     return(bytesToBSTR);
    
65. }
    1 U2 h9 J6 a& T- }% _: G( N
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    
67.     var Retrieval,Ads;
    # w5 l: Z: N" E
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    
70.     Retrieval.Send(null);
    + R, D& O* C% _) {, H% Z
71.     if (Retrieval.ReadyState == 4){
    ) Q1 X! J% J5 C
72.     Ads = Server.CreateObject("Adodb.Stream");
      J9 M" `6 u% {8 r; D
73.     Ads.Type = 1;
    
74.     Ads.Open();
    / ~, H% p8 x9 p4 k
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    . }- z. s9 h* X. m4 w' p' o- I7 u
77.     Ads.Cancel;
    
78.     Ads.Close;
    
79.     }
    7 ^5 _( n/ \! |% G+ g
80. }
    
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    7 J5 B/ N* I' t' E
82. %>

複製代碼