<%= GrabPage("http://www.autohotkey.com")
Function GrabPage(strURL)
Dim objXML
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET" , strURL , False ,"",""
objXML.Send
If Err.Number = 0 Then
If objXML.Status = 200 then
GrabPage = objXML.ResponseText
Else
GrabPage = "Incorrect URL"
End if
Else
GrabPage = Err.Description
End If
Set objXML = Nothing
End Function
%>
Используются технологии
uCoz