ASP Acquisition Page Content component Microsoft.XMLHTTP

xml| Collection | page

<%
'=================================================
' Procedure name: Gethttppage
' Function: Get page content
' parameter: URL----absolute Address
'=================================================
On Error Resume Next

Function Bytes2bstr (vIn)
Dim Strreturn
Dim I,thischarcode,nextcharcode
Strreturn = ""
For i = 1 to LenB (vIn)
Thischarcode = AscB (MidB (vin,i,1))
If Thischarcode < &h80 Then
Strreturn = Strreturn & Chr (Thischarcode)
Else
Nextcharcode = AscB (MidB (vin,i+1,1))
Strreturn = Strreturn & Chr (CLng (thischarcode) * &h100 + CInt (nextcharcode))
i = i + 1
End If
Next
Bytes2bstr = Strreturn
End Function

Function newstring (WSTR,STRNG)
Newstring=instr (WSTR,STRNG)
End Function

function gethttppage (URL)
On Error Resume Next
Dim http
Set Http=server.createobject ("Microsoft.XMLHTTP")
Http.open "Get", Url,false
Http.send ()
If Http.readystate<>4 Then
Exit function
End If
Gethttppage=bytes2bstr (Http.responsebody)
Set http=nothing
If Err.number<>0 then err. Clear
End Function

If Request ("action") = "Go" Then
url = Request ("url")

wstr = gethttppage (URL)
Wstr=replace (WSTR, "", "")

If err.number=0 Then
Response. Write "

collection has been completed, please click this