ASP发邮件例程 - 酷虎贵州大数据

您好！[请登陆] [免费注册送10元] [忘记密码？]

用户登陆

帮肋中心？

帮助文档

ASP发邮件例程

收件人地址:	<% = ErrMsgInputMailTo %>
发件人地址:	<% = ErrMsgInputMailFrom %>
邮件主题:	<% = ErrMsgInputMailSubject %>
邮件内容:	<BR><% = textBoxMailBody %><BR> <% = ErrMsgTextBoxMailBody %>


<% = MsgSendResult %>

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