وظيفة بسيطة جدًا تُستخدم لاكتشاف ما إذا كان من الممكن الوصول إلى اسم مجال موقع الويب بشكل طبيعي. وظيفة urlChk(sUrl)
على خطأ استئناف المقبل
تعيين xmlHttp = Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.open GET,sUrl,false
xmlHttp.send
إذا كان xmlHttp.Status <> 200 ثم
urlChk=false
آخر
urlChk=true
نهاية إذا
وظيفة النهاية
sUrl=http://www.vevb.com
إذا urlChk(sUrl) ثم
Response.write(sUrl&(يمكن الوصول إليه بشكل طبيعي))
آخر
Response.write(sUrl&(لا يمكن الوصول إليه))
نهاية إذا