ASP: Comprobación de la validez de una URL

Aquí hay un script simple para verificar la validez de url ingresado en el formulario a través de expresiones regular.

<%
Function ControlloUrl(url)
	Dim ObjRegexp
	Dim risultato
	Set ObjRegexp = New RegExp
	ObjRegexp.Global = True
	ObjRegexp.IgnoreCase = True
	ObjRegexp.Pattern = "^([:/~a-zA-Z0-9_-.]+).([:/~a-zA-Z0-9]+)$"
	risultato = ObjRegexp.Test(url)
	Set ObjRegexp = Nothing
	ControlloUrl = risultato
End Function
%>

Si quieres seguir las publicaciones de www.informarea.it puedes suscribirte a su RSS Feed.