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
%>