asp 正则表达式检测http开头的函数

‘#################################### ‘函数：ishttp[str] ‘参数：str，待处理的字符串 ‘作者：木木 ‘日期：2007/7/12 ‘描述：检测HTTP连接地址或地址栏是否以HTTP开头 ‘示例：<%=ishttp(http://www.alixixi.com)%> ‘#################################### Function ishttp(str) Dim regEx Set regEx = New RegExp regEx.Pattern = “^(http|HTTP)[A-Za-z]{0,1}\:\/\/”