ASP发邮件例程
author:一佰互联 2011-03-17   click:1636




































收件人地址:



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