|
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=t
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseText
End With
Set Retrieval = Nothing
End Function
response.write(getHTTPPage("http://link.mylove19.com/Link/link.asp?suser=fdkpower&stbbg=f7f7f7&stbbd=3DB836&sfclo=089200&sdn=6&srn=1&stali=center&stbh=20&stbw=600&sopentype=4&swebtype=5"))
%> |
|
