asp 입력 주소가 유효한지 확인하고 정규 검증 입력 주소에 접근할 수 있습니다

핵심 코드:

               
 
'****************************** 
Function UrlOK(strURL) 
On Error Resume Next 
If strURL<>"" Then 
Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
objHTTP.Open "GET", strURL, FALSE 
objHTTP.Send 
 If instr(objHTTP.statusText,"OK") Then 
 UrlOK = "  " 
 Else 
 UrlOK = "  " 
 End if 
Else 
 UrlOK = "  :       !" 
End If 
End Function 
%>
             URL
 
'****************************** 
function checkexp(patrn,strng) 
dim regex,match 
set regex = new regexp '        。 
regex.pattern = patrn '     。 
regex.ignorecase = true '            。 
regex.global = true '        。 
matches = regex.test(strng) 
checkexp = matches 
end function 
%>