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