ASP发邮件例程
发布时间：2011-03-17 16:46:26




































收件人地址:



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

微信客服

QQ客服

全国热线


400-663-6698

[关闭]

微信扫码

酷虎微信 [关闭]