Script asp: Controllo validità url

difficoltà:

Script simili
24/11/2006

Semplice script per il controllo della validità degli url inseriti in form attraverso espressioni regolari

<%
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
%>