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
%>
备案系统认证 举报不良网站 我们的支付方式 AAA级信用
安徽爱金科技有限公司 www.ijwww.com 版权所有 ©2008-2023 All Rights Reserved
网站备案编号:皖ICP备17018820号-2 地址:合肥市肥西路58号兴科大厦19层
电话:18505512003   E-Mail:ijwww@ijwww.com zgkr@zgkr.com   邮编:230022