<%
Sub LinkChk( SiteUrl )
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("Site Url")
%>
'[ Web 관련 ] > asp' 카테고리의 다른 글
| mssql 데이터 타입이 datetime 일때 asp출력시 자동으로 반올림 된다. (0) | 2019.02.25 |
|---|---|
| 내 아이피 조회 (접속 아이피) (0) | 2019.02.25 |
| 숫자형 체크 (0) | 2018.12.19 |
| CDO.Message SMTP 이메일 전송 (asp) (0) | 2018.10.12 |
| IIS 7.5 오류페이지 설정 방법 (ASP/ASPX) (0) | 2018.09.27 |
