<% Sub LinkChk( linkSiteUrl )
Response.Buffer = True On Error Resume Next
Set objXML = Server.CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", linkSiteUrl , False objXML.Send
If Err.Number = 0 Then response.write "정상" Else response.write "에러" End If Response.Flush Err.Clear
End Sub
LinkChk( http://www.webmadang.net )
%> |