获取任意网址的标题代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】获取任意网址的标题

作者:dezai / 发布于2014/1/26/ 1359

'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
functiongetHTTPPage(url)
dimHttp
setHttp=server.createobject("MSXML2.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing
iferr.number<>0thenerr.Clear
endfunction

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction

FunctionGetKey(HTML,Start,Last)
Dimfilearray,filearray2
filearray=split(lcase(HTML),lcase(Start))
filearray2=split(lcase(filearray(1)),lcase(Last))
GetKey=filearray2(0)
EndFunction
'下面试着调用http://www.3doing.com/earticle/的html内容
DimUrl,Html
Url="http://www.rantong.com/"
Html=getHTTPPage(Url)
Response.write"<BR>&ldquo;"&Url&"&rdquo;的标题："&GetKey(Html,"<title>","</title>")

试试其它关键字

　网址的标题　

同语言下

可能有用的

dezai贡献的其它代码(1065)