الكود الأساسي:
تحقق من أن عنوان URL للإدخال صالح ويمكنه الوصول إلى <٪ '*********************************** function: urlok (strurl)' parameters: strurl ، url يمكن التحقق منها 'التاريخ: 2007/7/13' الوصف: "************************************* urlok urlok (strurl) على استئناف الخطأ التالي إذا كان strurl <>" ثم تعيين objhttp = createObject ( = "صالح" urlok = "invalid" إذا eLase urlok = "error: لم تدخل عنوان URL!" النهاية إذا كانت وظيفة النهاية ٪> تحقق بانتظام مما إذا كان عنوان URL للإدخال قانونيًا. url <٪ '*****************************************' وظيفة: checkexp (patrn ، strng) 'المعلمات: تعبير جارن العادي ؛ strng التحقق من سلسلة: alixixi'date: 2007/7/13'description: url that regex هو شرعي example: <٪ = checkexp (purn ، strng) ٪> '*************************** function checkexp (patrn ، strng) match regex. regex.pattern = وضع مجموعة. regex.ignoreCase = True 'Set ما إذا كانت الأحرف حساسة للحالة. regex.global = true 'تعيين التوافر العالمي. المطابقات = regex.test (strng) checkexp = تطابق وظيفة النهاية ٪>