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

代码语言

代码分类

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

作者:浩宇 / 发布于2015/1/8/ 1406


	<%
	&rsquo;常用函数
	&rsquo;1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
	function getHTTPPage(url)
	dim Http
	set Http=server.createobject("MSXML2.XMLHTTP")
	Http.open "GET",url,false
	Http.send()
	if Http.readystate<>4 then
	exit function
	end if
	getHTTPPage=bytesToBstr(Http.responseBody,"GB2312")
	set http=nothing
	if err.number<>0 then err.Clear
	end function
	'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
	Function BytesToBstr(body)
	dim objstream
	set objstream = Server.CreateObject("adodb.stream")
	objstream.Type = 1
	objstream.Mode =3
	objstream.Open
	objstream.Write body
	objstream.Position = 0
	objstream.Type = 2
	objstream.Charset = "GB2312" &rsquo;转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP组件调用有中文字符的网页得到的将是乱码
	BytesToBstr = objstream.ReadText
	objstream.Close
	set objstream = nothing
	End Function
	&rsquo;下面试着调用http://www.abc.com/的html内容
	Dim Url,Html
	Url="http://www.abc.com/";
	Html = getHTTPPage(Url)
	Response.write Html
	%>

试试其它关键字

同语言下

可能有用的

浩宇贡献的其它代码(18)