推荐下天枫常用ASP函数封装，推荐大家使用(6)

            End If
    End Function    

    '****************************************************
    '函数名：CheckEmail
    '作  用：邮箱格式检测
    '参  数：str ----Email地址
    '返回值：true无误，false有误
    '****************************************************
    Public function CheckEmail(email)
        CheckEmail=true
        Dim Rep
        Set Rep = new RegExp
        rep.pattern="([\.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(\.([a-zA-Z0-9]){2,}){1,4}$"
        pass=rep.Test(email)
        Set Rep=Nothing
        If not pass Then CheckEmail=false
    End function

'－－－－－－－－－－－－－－信息提示－－－－－－－－－－－－－－－－－－－－－－－－－－－－        
    '****************************************************
    '函数名：Alert
    '作  用：弹出对话框提示
    '参  数：msg   ----对话框信息
    '       gourl ----提示后转向哪里
    '返回值：无
    '****************************************************
    Public Function Alert(msg,goUrl)
        msg = replace(msg,"'","\'")
          If goUrl="" Then
              goUrl="history.go(-1);"
        Else
            goUrl="window.location.href='"&goUrl&"'"
        End IF
        Response.Write ("<script language=""JavaScript"" type=""text/javascript"">"&vbNewLine&"alert('" & msg & "');"&goUrl&vbNewLine&"</script>")
        Response.End
    End Function

    '****************************************************