首页
日志 [164]
资源 [110]
娱乐 [420]
关于我

网站联盟  网站推广  友情链接交换
免费链接网   艾悠自助链  友情链接站 自动免费链 花生米自助链  互兑连接网
1万链自助友情链接网  新兵网址链盟
免费友情链接网  自助友情链接网
<% Dim lvurl Dim lvcontent Dim lvxmlhttp On Error Resume Next lvurl = "http://link.linkvv.com/LinkVV86928c3dc010003284/" set lvxmlhttp = CreateObject("MSXML2.XMLHTTP") On Error Resume Next if lvxmlhttp is nothing then set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") end if On Error Resume Next if lvxmlhttp is nothing then set lvxmlhttp = CreateObject("MSXML2.ServerXMLHTTP") end if On Error Resume Next if lvxmlhttp is nothing then set lvxmlhttp = CreateObject("MSXML2.XMLHTTP.4.0") end if On Error Resume Next if lvxmlhttp is nothing then set lvxmlhttp = CreateObject("Microsoft.XMLHTTP") end if if lvxmlhttp is nothing then ' cannot load xml component else lvxmlhttp.open "GET", lvurl, false lvxmlhttp.send "" if lvxmlhttp.Status = "200" then lvcontent = lvxmlhttp.responseText if InStr(lvcontent, "") > 0 then If Err Then Response.write Err.Description lvcontent = "" end if Response.write lvcontent end if set lvxmlhttp = nothing end if%>