Routines: Using ASP to determine whether a file address is valid

<%
Response.Write (" on Error Resume Next
Dim thisurl,thistext
thisurl=request (" Thisurl ") ' Define file address (non-HTML format document)!
If Thisurl= "then
Response.Write (" <span> Enter file address!</span> first ")
Response.End
End If

Function objxmlhttp (xmlurl)
on Error Resume Next
Set objxml = CreateObject ("Microsoft.XMLHTTP")
Objxml. Open "Get", Xmlurl,false
Objxml.setrequestheader "Content-type", "application/x-www-form-urlencoded"
Objxml.send
objXmlHttp = objxml.responsebody
If Err then
Err.Clear
Response.Write ("<span> failed to establish connection, File does not exist or there is a network problem!; Error reason: "&Err.Description&"! </span> ")
Response.End
End-if
End Function
' webjx.com
function bytes2bstr (vIn)
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

Thisurl2=split (Thisurl, ",")
For all II in THISURL2
Thistext=bytes2bstr (objXmlHttp (ii))
If InStr (Thistext, "Response.Write ("<span>" & II & "<b>x</b></span><br>")
Else
Response.Write ("<span>" & II & "<b>√</b></span><br>")
End If
Next

If Err Then
Err.Clear
Response.Write ("<span> encountered an accident!; Error reason: "&Err.Description&"! </span> ")
Response.End
End If
%>