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

1. <%@LANGUAGE="JavaSCRIPT" CODEPAGE="65001"%>
   
2. <%Response.Charset = "utf-8"%>
   " H- o) K9 R) t& I" y0 [# e9 Z
3. <%
   
4. Server.ScriptTimeout=9999999;
   / u% A# U9 P2 ?) I) H6 u$ O3 g
5. var Surl = String(Request.QueryString("url"));
   
6. if(Surl == "undefined"){
   4 [# ]$ o* h# x! [5 p! 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>");
   
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" >");
   5 g! o. y5 Z( N5 w4 A
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>");
    
13. Response.Write("</div>");
    / M/ N3 H7 m- I
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>");
    5 Q3 {# D* ~* a: S9 P5 z& G9 q
19. Response.Write("</div>");
    9 z6 V& x) I0 u( B
20. }
    
21. else{
    9 i$ \! r9 |& V5 a
22. Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl;
    
23. Response.Write(send_request(Surl));
    
24. }
    
25. function send_request(url) {
    + R7 O' n( W& V! k
26.     var codedtext;
    
27.     http_request = Server.CreateObject("Microsoft.XmlHTTP");
    1 w. Z( {' k2 @6 c9 O
28.     try{
    % C4 P0 |" c# ^3 [, `5 A
29.     http_request.Open("GET",url,false);
    
30.     http_request.Send(null);
    % c8 r2 ^. g* D/ x0 k
31.     }
    
32.     catch(e)
    & _3 b" v% _, [, T' w
33.     {
    % H9 v4 Y2 L! p+ o; j9 W7 S
34.     Response.Write(e.description);
    
35.     }
    1 k( E6 }: B! L' l5 t7 t+ Z. p
36.     if (http_request.ReadyState == 4){
    5 I1 t9 J+ ^# Q& G, C
37.         //自動判斷編碼開始
    0 M: j* Z* f+ ]% J$ q) d
38.         var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i);
    6 M' y5 C' P) V& S" ]3 F: C2 g
39.         if (charresult != null){
    % ?% M  m! P* v; z0 v" q
40.         var Cset = charresult[1];
    8 q% x6 N  n7 Q4 E% @( L! H% w
41.         }else{Cset = "utf-8"}
    . C! i2 i* d, E: u6 A1 P1 Y: \' W/ _5 K$ U
42.         //自動判斷編碼結束
    1 _4 J- r; i" J  K7 Z
43.         codedtext = bytesToBSTR(http_request.Responsebody,Cset);
    ) w2 e* q: K0 k$ E" _# ?) C
44.         }else{
    
45.         codedtext = "Erro";
    
46.         }
    5 j2 c3 Y. v  g6 p  ]
47.         //替換超連接
    
48.         codedtext = codedtext.replace(/href="\/?/ig,"href=""+url+"/");
    
49.         codedtext = codedtext.replace(/(<a.*href=")/ig,"$1index.asp?url=");
    
50.     return(codedtext);
    
51. }
    
52. function bytesToBSTR(body,Cset){
    
53.     var objstream;
    ' i' i6 A* E8 N: S& W
54.     objstream = Server.CreateObject("Adodb.Stream");
    
55.     objstream.Type = 1;
    ' A: U' m/ P, l0 A8 c
56.     objstream.Mode = 3;
    
57.     objstream.Open();
    ! I( Z- v7 U7 \' W; G  m
58.     objstream.Write(body);
    
59.     objstream.Position = 0;
    ; Y8 ^" _2 V5 c9 u' I0 _4 z# Y
60.     objstream.Type = 2;
    ' G3 L3 S/ Q% _/ i" G! D0 M7 v
61.     objstream.Charset = Cset;
    
62.     bytesToBSTR = objstream.Readtext;
    
63.     objstream.Close;
    + p$ O3 ^) v, x. i" ~, |
64.     return(bytesToBSTR);
    
65. }
    ' c% U# G6 `1 }& m- `0 G# D! y
66. function SaveRemoteFile(LocalFileName,RemoteFileUrl){
    
67.     var Retrieval,Ads;
    
68.     Retrieval = Server.CreateObject("Microsoft.XmlHTTP");
    ! _" i1 u/ T7 m+ W! x" V" o
69.     Retrieval.Open("GET",RemoteFileUrl,false);
    
70.     Retrieval.Send(null);
    # _& r& r# _+ B3 X% W1 I
71.     if (Retrieval.ReadyState == 4){
    
72.     Ads = Server.CreateObject("Adodb.Stream");
    % c2 L+ i# \6 v+ o4 R% {& T3 y" T
73.     Ads.Type = 1;
    ' }* q( s3 |# J& c% b  A' ^, n/ l( H
74.     Ads.Open();
    
75.     Ads.Write(Retrieval.Responsebody);
    
76.     Ads.SaveToFile(Server.MapPath(LocalFileName),2);
    
77.     Ads.Cancel;
    
78.     Ads.Close;
    2 S8 n1 y2 Y9 }7 I/ ]# l+ U
79.     }
    3 @) E; f  O  a
80. }
    
81. //SaveRemoteFile("aa.gif","/XrssFile/2007-1/12/2007112124640411.gif");
    $ ^0 v* f- J2 `: Z; Q
82. %>

複製代碼