asp Regular expression detects functions beginning with http

'####################################
'Function: ishttp[str]
'Arguments: str, string to be processed
'Author: Mumu
'Date: 2007/7/12
'Description: Detect whether the HTTP connection address or address bar starts with HTTP
'Example: <%=ishttp()%>
'####################################

Function ishttp(str)
Dim regEx
Set regEx = New RegExp
 = "^(http|HTTP)[A-Za-z]{0,1}\:\/\/"
ishttp = (str)
End function
Verify that the email address meets the standards
<%
'******************************
'Function: isemail(strng)
'Parameter: strng, email address to be verified
'Author: Alixi
'Date: 2007/7/13
'Description: Verify that the email address meets the standards
'Example: <%=isemail(ali@)%>
'******************************
Function isemail(strng)
    isemail = false
    Dim regEx, Match
    Set regEx = New RegExp
     = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" 
     = True
    Set Match = (strng)
    if  then isemail= true
End Function
%>
Regular expression detection Chinese mobile phone number'************************************************************************************
'Function: mobilecheck[str]
'Arguments: str, string to be processed
'Author: Mumu
'Date: 2007/7/12
'Description: Detect mobile phone number
'Example: <%=mobilecheck("13912345678")%>
'*********************************************************


Function mobilecheck(str)
Dim regEx
Set regEx = New RegExp
 = "^(13[4-9]|15(8|9))\d{8}$"
mobilecheck= (str)
End Function