保定网络公司+保定网站建设+保定做网站 保定市网络公司 保定市网站设计 保定市网站建设 保定市网站制作 保定市网站推广
保定制作网站,保定建设网站,保定优化网站的公司 设为首页
保定市网站设计,保定市网站建设,保定市网站优化,保定市网站推广
保定网站设计,保定网站建设,保定网站优化,保定网站推广 给我留言
首页       关于我们   作品展示   项目服务   域名空间   公司新闻   建站学院   SEO优化   网站建设   建站知识   联系我们   
保定建站真心为您服务!承接网站建设 + 网页设计 + FLASH设计 + 网站开发 + 平面设计,专业技术人员一对一服务让建站更加专业更加放心……二十小时服务热线:+86)13730168216。欢迎来电咨询…… 现在时间是
文章展示
网站建设 网站推广 一切竟掌握

ASP版本的Web在线代理

发布者:网站建设 保定做网站  发布时间:2009-5-31    点击次数:29025
asp写Web代理软件,可以用作突破网关限制等,主要是为了配合Ajax使用的(因Firefox存在跨域访问的问题) 
功能 
判断网站编码,支持任何语言 
超连接自动转换 
附带一个远程下载图片的函数 
未解决问题,目前只能用来代理网站代码,图片等其他数据的代理转发尚未完成。
[复制此代码]CODE:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> 
<%Response.Charset = "utf-8"%> 
<% 
Server.ScriptTimeout=9999999; 
var Surl = String(Request.QueryString("url")); 
if(Surl == "undefined"){ 
Response.Write("<p style=\"font-size:9pt;margin:30px;padding:10px;text-align:center;background-color:#FFCCCC;border: 1px solid #999999;\">Asp代理 by Llinzzi</p>"); 
Response.Write("<div style=\"font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;\">"); 
Response.Write("<form action=\"#\" method=\"get\" >"); 
Response.Write("<p style=\"font-size:9pt;margin:5px;text-align:center;\">请输入网址</p>"); 
Response.Write("<p><input style=\"background-color: #FFCCCC;border: 1px solid #999999;\" type=\"text\" name=\"url\"></p>"); 
Response.Write("<p><input style=\"background-color: #FFCCCC;border: 1px solid #999999;\" type=\"submit\"  value=\"GoWeb\"></p>"); 
Response.Write("</div>"); 

else if(Surl == ""){ 
Response.Write("<p style=\"font-size:9pt;margin:30px;padding:10px;text-align:center;background-color:#FFCCCC;border: 1px solid #999999;\">Asp代理 by Llinzzi</p>"); 
Response.Write("<div style=\"font-size:9pt;margin:30px;text-align:center;background-color:#FFFFCC;border: 1px solid #999999;\">"); 
Response.Write("<p>地址为空,请格式输入 如 www.tom.com </p>"); 
Response.Write("</div>"); 

else{ 
Surl = (Surl.substr(0,7) != "http://") ? "http://"+Surl : Surl; 
Response.Write(send_request(Surl)); 

function send_request(url) { 
    var codedtext; 
    http_request = Server.CreateObject("Microsoft.XMLHTTP"); 
    try{ 
    http_request.Open("GET",url,false); 
    http_request.Send(null); 
    } 
    catch(e) 
    { 
    Response.Write(e.description); 
    } 
    if (http_request.ReadyState == 4){ 
        //自动判断编码开始 
        var charresult = http_request.ResponseText.match(/CharSet=(\S+)"/i); 
        if (charresult != null){ 
        var Cset = charresult[1]; 
        }else{Cset = "utf-8"} 
        //自动判断编码结束 
        codedtext = bytesToBSTR(http_request.Responsebody,Cset); 
        }else{ 
        codedtext = "Erro"; 
        } 
        //替换超连接 
        codedtext = codedtext.replace(/href="\/?/ig,"href=\""+url+"/"); 
        codedtext = codedtext.replace(/(<a.*href=")/ig,"$1servergate.asp?url="); 
    return(codedtext); 

function bytesToBSTR(body,Cset){ 
    var objstream; 
    objstream = Server.CreateObject("Adodb.Stream"); 
    objstream.Type = 1; 
    objstream.Mode = 3; 
    objstream.Open(); 
    objstream.Write(body); 
    objstream.Position = 0; 
    objstream.Type = 2; 
    objstream.Charset = Cset; 
    bytesToBSTR = objstream.Readtext; 
    objstream.Close; 
    return(bytesToBSTR); 

function SaveRemoteFile(LocalFileName,RemoteFileUrl){ 
    var Retrieval,Ads; 
    Retrieval = Server.CreateObject("Microsoft.XMLHTTP"); 
    Retrieval.Open("GET",RemoteFileUrl,false); 
    Retrieval.Send(null); 
    if (Retrieval.ReadyState == 4){ 
    Ads = Server.CreateObject("Adodb.Stream"); 
    Ads.Type = 1; 
    Ads.Open(); 
    Ads.Write(Retrieval.Responsebody); 
    Ads.SaveToFile(Server.MapPath(LocalFileName),2); 
    Ads.Cancel; 
    Ads.Close; 
    } 

//SaveRemoteFile("aa.gif","/images/XrssFile/2007-1/12/2007112124640411.gif"); 
%>
 
相关文章展示: 关键词: ASP  Web  在线代理  转发  Firefox  网关  超连接 
Asp编码优化技巧8则 [38227]
asp生成UTF-8格式的文件 [37926]
ASP利用缓存提高数据显示效率 [39603]
JS判断新旧密码一致 [33196]
Web标准 DIV+CSS对SEO的帮助 [32250]
解决网站被反复挂马的问题 [28638]
Jmail组件发送asp页表单到邮箱 [30229]
多个漂浮广告图片代码--兼容ie、firefox,多个漂浮不冲突 [28079]
100个ASP错误提示 [27606]
ASP无法更新ACCESS数据库解决方法 [27520]
 
保定建站欢迎您的咨询
详细地址
  资询热线:
  0312-5975933
业务咨询QQ
业务咨询QQ
业务咨询QQ
空间域名QQ
技术支持QQ
MSN客服
推荐文章
查看更多
· 蛇形溯源-通过话题链接,跨平台获取相关话题的关键词与出现频次
· 社群营销第一人:陈艺明【社群推广首选】社群宣传费用
· 信息发布技巧:产品诱人,卖点突出
· 保定网络公司哪家好?保定最好的网络公司
· 高阳经济开发区与我公司司签订网站建设服务
· 保定微营销报名啦!落地操作(微生活学院)别和钱较劲- 陈艺明
· 保定微营销【最好的】微营销活动报名开始了,陈艺明讲述微生活营
· 保定微营销:陈艺明F2F微生活营销课程开始了!保定微营销最好
· 保定做网站最便宜的多少钱?保定哪家做网站最便宜?
· 保定手机网站建设,保定APP手机网站制作
· 祝贺保定职业技术学院武术协会与我司签订网站建设
· 陈老师讲解:保定中小企业网络微营销的困难困难“解决”低小丑的
   最新作品
亿家能商贸(中英文网站制作-美国服务器)-北京网站建设
亿家能商贸(中英文网站制作-美国服务器)
(网站设计)北京君闻香酒业有限公司-北京网站建设
(网站设计)北京君闻香酒业有限公司
河北保定博时广告(网站设计)-北京网站建设
河北保定博时广告(网站设计)
保定IDO婚庆公司(网站优化)-北京网站建设
保定IDO婚庆公司(网站优化)
保定天生桥牌红枣贡酒(网站设计)-北京网站建设
保定天生桥牌红枣贡酒(网站设计)
保定党史研究史(网站制作)-北京网站建设
保定党史研究史(网站制作)
保定达瑞设备有限公司(网站优化)-北京网站建设
保定达瑞设备有限公司(网站优化)
VI设计公司(网站设计制作)-北京网站建设
VI设计公司(网站设计制作)
|   网站建设  |   关于我们  |   建站学院  |   域名空间  |   作品展示  |   招聘岗位  |   服务项目  |   联系我们  |   建站常识  |   建站论坛  |  

客服中心:河北省保定市永华路与西大街交汇处(查看地图路线)秀兰公寓B座4楼右转即到(428号)。
网络公司联系电话:0312-5975933 / 2035252 / 3146161 二十小时联系电话:13730168216   网络公司售后服务电话:15603212829 传真:0312-3146161
工作时间:周一至周六.上午:8:00-12:00 下午:2:00-6:00 周日全天服务电话:13730168216
客服企业邮箱:kefu@jihewang.com   技术企业邮箱:jishu@jihewang.com   经理企业邮箱:admin@jihewang.com
网络公司名称:   工商注册号:130604000010106   邮编:07100
保定网络公司永久网址:http://www.jihewang.com
Copyright © 2003-2012 保定建站 All rights reserved. 冀ICP备05000154号
本公司业务:保定网站建设_保定网站制作_保定网站推广_保定网页网站设计_保定400电话_软件群发_保定网络公司以敬业、负责的态度为您做网站,以客户的成功为成功。

    
客服
客服
技术
域名
空间
售后
咨询
MSN
电邮