Code de base:
Vérifiez que l'URL d'entrée est valide et peut accéder à <% '*********************************' 'Fonction: Urlok (Strurl)' Paramètres: Strurl, URL à vérifier 'Date: 2007/7/13' Description: Vérifiez que l'URL d'entrée est valide et peut accéder à ' '*********************************** FONCTION URLOK (Strurl) sur l'erreur reprendre ensuite si strurl <> "" puis définir objTtp = createObject ("msxml2.xmlhttp") objhttp.open "Get", Strurl, faux objhttp. Urlok = "valide" else urlok = "invalid" end if else urlok = "error: vous n'avez pas saisi l'URL!" Fin si la fonction de fin%> Vérifiez régulièrement si l'URL d'entrée est légale. URL <% '*****************************************' Fonction: Checkexp (Patn, strng) 'Paramètres: Patn Expression régulière; STRNG Vérification String'author: Alixixi'Date: 2007/7/13'Description: URL That Regex est légitime'Example: <% = CheckExp (Patn, strNg)%> '************************************* Fonction Contrôle de vérification (patrn, strNg Dim Regex, match set regeXx = new regexp' Create Expression. regex.Pattern = Mode Set Patn '. regex.ignorecase = true 'set si les caractères sont sensibles à la casse. regex.global = true 'set la disponibilité globale. Matches = regex.test (strNg) checkExp = correspond à la fonction de fin%>