输入网址获取网址的title标题代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】输入网址获取网址的title标题

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

FunctionGetBody(weburl)
'OnErrorResumeNext
Dimxml
'Setxml=Server.CreateObject("Microsoft.XMLHTTP")
'Setxml=CreateObject("Microsoft.XMLHTTP")
Setxml=Server.CreateObject("Msxml2.ServerXMLHTTP")
xml.setTimeouts10000,10000,10000,10000
xml.Open"GET",weburl,False
xml.Send()
Ifxml.status<>200Then'如果不能获得源码
GetBody="123"
Setxml=Nothing
ExitFunction
EndIf
GetBody=xml.ResponseBody
GetBody=BytesToBstr(GetBody,"utf-8")
'释放对象
Setxml=Nothing
EndFunction
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
FunctionGetHtml(url)'url为网址
GetHtml=BytesToBstr(GetBody(url),"utf-8")
EndFunction
FunctionGetKey(HTML,Start,Last)
Dimfilearray,filearray2
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
EndFunction


dimhtml
html=GetKey(GetHtml("http://www.163cha.com/"),"<title>","</title>")

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　输入网址获取标题　

同语言下

可能有用的

dezai贡献的其它代码(1065)