欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

asp 获取因特网址 title keywords description

更新时间: 2014-01-05 01:50:30 责任编辑: Author_N1

 

asp 获取网址 title keywords description
提供一个网址查询他的title keywords description
可自动辨别这个网址的编码
--参考方法--
引用:
Quote: 引用:

你上面的代码是js的,小弟只懂VBscript不了解javascript 不知道大哥可不可以改成vbscript编码的 在这在次感谢了。。。完成了150分结贴。


<%@ codepage=936  %>
<%
Response.Charset="gb2312"
%>
 
<script language="jscript" runat="server">
function bs2str(bs,ch){
    var re=''; 
    with(new ActiveXObject("adodb.stream")){
        type = 1,open(),Write(bs);
        Position = 0,Type = 2;
        Charset=ch,re=ReadText();
        Close()
    }
    return re;
}
var titReg=/[^>]+(?=<\/title)/i;
var kwReg=/<meta.+?name\s*=\s*['"]?(keywords
--参考方法--
description)\b.+?content\s*=\s*(['"])([^\2]+?)\2/ig;  
var chReg=/Charset=([^;]+)/i;
function getInfo(url){
    var xh = new ActiveXObject("Microsoft.XMLHttp"),ch,text,re={},ms; 
    with(xh) open("GET", url, false),send();
    ch=chReg.test(xh.getResponseHeader("Content-Type"))?RegExp.$1:'gb2312';
    text=/gb2312/i.test(ch)? bs2str(xh.responseBody,ch):xh.responseText;
    re.title=text.match(titReg);
    while (ms = kwReg.exec(text))re[ms[1].toLowerCase()]=ms[3];
    for(var k in re)re[k]=re[k]
--参考方法--
'';
    re.html=text
    return re;
}
</script>
<% 
 '''''VBS中调用''''''''''
 set  info=getInfo("http://www.163.com")   
 Response.write( info.title  &  "<br/><br/>")
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:50:30
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1874/
本文WWW.DOC100.NET DOC100.NET版权所有。