<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://links.alivv.com/getcode.aspx?wid=rbRPMRzrbV8=&type=3"
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
%>
香港智皓网络科技有限公司 粤ICP备09183791号
地址:深圳市福田区天安数码城 邮编:518040 QQ:549272619 版权所有:
智皓在线 Copyright 2007-2011© All Rights Reserved