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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   
2. <%Response.Charset = "utf-8"%>
   
3. <%
   
4. Server.ScriptTimeout=9999999;
   
5. var Surl = String(Request.QueryString("url"));
   
6. if(Surl == "undefined"){
   8 ^" u4 S1 n% w: R7 P8 B% D6 K
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>");
   $ S3 R- L' w. }3 g" ?
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" >");
   8 j7 ?8 F. T/ i  l  u3 A( k
10. Response.Write("<p style="font-size:9pt;margin:5px;text-align:center;">請鍵入網址</p>");
    / a/ A& U4 c" l& i7 I2 o2 m
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>");
    
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;">");
    
18. Response.Write("<p>您需要鍵入一個網址！例如： bbs.jgwy.net </p>");
    
19. Response.Write("</div>");
      I# J! J7 b0 I2 @
20. }
    - d  x4 o, R" @% E
21. else{
    ! H/ s7 P; S+ d
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;
    , y: S0 C3 a# X! M0 E5 X+ I
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    
28.     try{
    8 U3 l0 Q2 j& r$ n4 ?" E
29.     http_request.Open("GET",url,false);
    # Z. k0 F3 g, x. u% U* d( A
30.     http_request.Send(null);
    
31.     }
    3 ~% m1 C' P3 I, P6 c
32.     catch(e)
    2 e+ h/ X3 V& P& f
33.     {
    
34.     Response.Write(e.description);
    
35.     }
    & _) a  C1 b8 v( n
36.     if (http_request.ReadyState == 4){
    
37.         //自動判斷編碼開始
    - J" X) z; F* C. S5 Z8 Y
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    
39.         if (charresult != null){
    / q  j" f/ p& y$ f1 n8 Q7 k
40.         var Cset = charresult[1];
    : D7 j" R4 v# T; C0 c0 E6 g" c& x( Q
41.         }else{Cset = "utf-8"}
    6 k) X  |3 P: X- `
42.         //自動判斷編碼結束
    ' B) [3 u7 w/ ~3 C" b
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    
44.         }else{
    
45.         codedtext = "Erro";
    0 h# z0 G  J7 K( q% @* l3 v# K" F2 G
46.         }
    * p0 Y1 \8 S+ K) o/ u
47.         //替換超連接
    
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
      R  B% P, \* S3 y0 a
50.     return(codedtext);
    % k8 w9 I4 G' ]1 [
51. }
    ( J4 i, g8 A8 b4 d! t+ s( V- ^9 Q# E
52. function bytesToBSTR(body,Cset){
    0 k; i& x) ~3 X4 ]0 j
53.     var objstream;
    
54.     objstream = Server.CreateObject("Adodb.Stream");
    1 R, |- e7 U* z; I. [! R. x
55.     objstream.Type = 1;
    
56.     objstream.Mode = 3;
    
57.     objstream.Open();
    1 b  h/ R3 s; F. O( T9 ^9 F. y" |
58.     objstream.Write(body);
    
59.     objstream.Position = 0;
    3 ^4 H* R( p$ O4 t% \$ x' Q
60.     objstream.Type = 2;
    
61.     objstream.Charset = Cset;
    
62.     bytesToBSTR = objstream.Readtext;
    7 P! @8 Q$ t3 {
63.     objstream.Close;
    
64.     return(bytesToBSTR);
    
65. }
    
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    / U4 S1 K0 M7 }* t8 [& m
67.     var Retrieval,Ads;
    # W7 x/ Y' y$ U' _) l
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    & q. m: A- G; o& B2 O6 U
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    
70.     Retrieval.Send(null);
    
71.     if (Retrieval.ReadyState == 4){
    
72.     Ads = Server.CreateObject("Adodb.Stream");
    
73.     Ads.Type = 1;
    " ?; c" P, z$ z% I
74.     Ads.Open();
    " G+ u% m- N: T
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    & m% [  e$ Z& ~5 m) g  m
77.     Ads.Cancel;
    
78.     Ads.Close;
    / ~5 ~) O: F  t2 s; S
79.     }
    
80. }
    2 v$ ~4 }& A" O6 u. n0 b
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    % j, K  A& K1 I0 ~8 g+ c2 V& }
82. %>

複製代碼