Código central:
Verifique que la URL de entrada sea válida y pueda acceder a <%'***********************************' Función: Urlok (Strurl) 'Parámetros: Strurl, URL para verificar' Fecha: 2007/7/13 'Descripción: Verifique que la URL de entrada sea válida y puede acceder' Ejemplo: <%= Urlok ("// www.vevb.com") VERIFICAR '********************************* Función Urlok (Strurl) en Error Currículum Siguiente si Strurl <> "" luego establece objhttp = createObject ("msxml2.xmlhttp") objhttp.open "obtenga", obtenga, false objhttp.send if instrer (objhhttp.stattetxt, "). = "Válido" más urlok = "inválido" Fin if lose urlok = "Error: ¡No ingresó la URL!" Finalizar si la función final %> verificar regularmente si la URL de entrada es legal. URL <% '*************************************' Función: checkexp (Patrn, strng) 'Parámetros: Patrn Expresión regular; Strng Verificación String'author: alixixi'date: 2007/7/13'Description: URL de que Regex es legítimo 'Ejemplo: <%= checKEXP (PATRN, STRNG)%>' *********************************************CRECKEXP (PATRN, STRNG) regex.pattern = Patrn 'Modo de conjunto. regex.ignorecase = true 'Establezca si los caracteres son sensibles a mayúsculas. regex.global = true 'Establecer disponibilidad global. coincidencias = regex.test (strng) checKExp = coincide con la función final %>