ความถูกต้องของ URL ที่ตรงกันปกติของ ASP
ผู้เขียน：Eve Cole
เวลาอัปเดต：2009-06-26 18:10:39
ฟังก์ชั่น iswww(strng)
iswww = เท็จ
Dim regEx จับคู่
ตั้งค่า regEx = RegExp ใหม่
regEx.Pattern = "^(http|ftp|https)://[w-_]+(.[w-_]+)+([w-.,@? ^=%&:/~+#]*[w-@?^=%&/~+#])?$"
regEx.IgnoreCase = จริง
ตั้งค่าการจับคู่ = regEx.Execute(strng)
ถ้า match.count ก็คือ www= true
ฟังก์ชันสิ้นสุด
