ASP: Controllo della validità di un URL

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

Se volete seguire i post di www.informarea.it potete iscrivervi al suo feed RSS.