핵심 코드 :
입력 URL이 유효하고 액세스 할 수 있는지 확인하십시오. '********************************* 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 = "invalid"else urlok = "오류 : URL을 입력하지 않았습니다!" 종료 END 기능 %> 입력 URL이 합법적인지 정기적으로 확인하십시오. URL<% '*************************************** 'Function: checkexp(patrn,strng) 'Parameters: patrn regular expression; strng verification string'author : alixixi'date : 2007/7/13 'description : url regex가 합법적 인 것입니다. regex.pattern = patrn '세트 모드. regex.ignorecase = true '문자가 사례에 민감한 지 여부를 설정합니다. regex.global = true '글로벌 가용성을 설정합니다. matches = regex.test (strng) checkexp = matches end function %>