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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   7 ]) d. z/ t7 }. e/ Y+ ~
2. <%Response.Charset = "utf-8"%>
   3 W8 L* v8 V8 G
3. <%
   
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>");
   7 f1 p. L+ d) a& U( x  }
8. Response.Write("<div style="font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;">");
   7 L9 z5 o+ F+ _. n) U5 [5 }
9. Response.Write("<form action="#" method="get" >");
   7 K) c0 C3 }; V0 X
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>");
    5 `: O. J) N5 J* w# U6 r# f
12. Response.Write("<p><input style="background-color: #FFCCCC;border: 1px solid #999999;" type="submit"  value="GoWeb"></p>");
    
13. Response.Write("</div>");
    7 d' b+ v  S* ]3 o7 O8 t) `
14. }
    
15. else if(Surl == ""){
    ' a! m* S$ q0 a4 ^& z5 ]+ k7 K
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;">");
    7 m2 F6 H6 U  M$ m0 N0 t
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    . X5 {* h6 r2 ?7 N. t8 g" |9 Y3 u* M
19. Response.Write("</div>");
    - r; \, j1 a* ^/ d  p6 v( {  T
20. }
    
21. else{
    ) _2 m+ B- X* {6 _7 M8 A/ ~" Z7 _5 `0 y
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    
23. Response.Write(send_request(Surl));
    
24. }
    . w* H& q1 S! m3 ]5 c- Q
25. function send_request(url) {
    . T9 g/ c, z5 S9 S; u( _! I. i( u# J
26.     var codedtext;
    * k6 g' B$ u& H4 r
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    * ]9 s& N2 N8 T. G
28.     try{
    8 M* P  n5 R* D
29.     http_request.Open("GET",url,false);
    
30.     http_request.Send(null);
    
31.     }
    
32.     catch(e)
    1 n5 v9 Y! _- R4 q
33.     {
    
34.     Response.Write(e.description);
    
35.     }
    2 C7 g' h  Q* D  ?$ W& ~
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    7 Q" Q8 d; s" [) A( \8 A* B. N& R
39.         if (charresult != null){
    
40.         var Cset = charresult[1];
    9 ^% [* r3 M8 }  g
41.         }else{Cset = "utf-8"}
    0 S, W$ G+ a. U7 i
42.         //自動判斷編碼結束
    
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    
44.         }else{
    
45.         codedtext = "Erro";
    
46.         }
    
47.         //替換超連接
    
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    , }: M7 I; s# \0 [* Q2 a/ N
51. }
    
52. function bytesToBSTR(body,Cset){
    - k- X# u& z1 p& P# o/ X6 }2 j
53.     var objstream;
    2 F- _* A9 W/ U$ a- x  ]
54.     objstream = Server.CreateObject("Adodb.Stream");
    ' z' L/ D+ X  ~! J7 D
55.     objstream.Type = 1;
    
56.     objstream.Mode = 3;
    ' `- s4 W: b% r! b9 W  b! X0 F
57.     objstream.Open();
    ! r" k4 I5 ^, `0 R' m# w2 s7 h
58.     objstream.Write(body);
    % N6 v1 j, G2 ~, k
59.     objstream.Position = 0;
    ! R# f  T: f6 }0 s2 C
60.     objstream.Type = 2;
    1 V; ~. c; k) B8 G5 L
61.     objstream.Charset = Cset;
    2 b( L0 v9 F0 M8 F' E  z% z3 }
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    0 X4 r( h# K4 g& t1 t
64.     return(bytesToBSTR);
    3 _4 C' z8 Q9 h5 F  G# K
65. }
    
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    / D3 H" c. A$ E+ [0 a+ e. O( [7 w( v$ \
67.     var Retrieval,Ads;
    
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    3 y4 V  J4 T" k* ?
70.     Retrieval.Send(null);
    + {; l- K$ Z  l; W
71.     if (Retrieval.ReadyState == 4){
    5 }& q* s  {; v" @+ {" b
72.     Ads = Server.CreateObject("Adodb.Stream");
    % |9 X4 L$ C& V' [5 Z1 t
73.     Ads.Type = 1;
    
74.     Ads.Open();
    
75.     Ads.Write(Retrieval.Responsebody);
    8 L" B0 i5 p$ \
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    ) d* n* F6 Y9 ?$ U. O
77.     Ads.Cancel;
    
78.     Ads.Close;
    
79.     }
    
80. }
    ) F; k& b) I9 b. n: M3 o6 V
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    
82. %>

複製代碼