帮助中心
|

ASP发邮件例程

方法/步骤





































  • 收件人地址:



    <% = ErrMsgInputMailTo %>


    发件人地址:



    <% = ErrMsgInputMailFrom %>


    邮件主题:



    <% = ErrMsgInputMailSubject %>


    邮件内容:



    <% = ErrMsgTextBoxMailBody %>








    <% = MsgSendResult %>










    <%
    Function ValidateEmail(Expression)
    Dim objRegExp
    Set objRegExp = New RegExp
    objRegExp.Pattern = "^[w.-]+@[w.-]+.[a-zA-Z]+$"
    ValidateEmail = objRegExp.Test(Expression)
    End Function
    %>