×
中国贵州贵阳数博会 马云来贵阳了

帮助文档

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
%>
                   
酷虎贵州· 版权所有 ©2007-2015 All Rights Reserved 网站模板及程序未经酷虎官方允许禁止复制传播获利   
备案许可编号:沪ICP备14003863号 经营许可编号:310112001090490 组织机钩编号:5712379-7 税务登记编号:310112579123797

  贵阳国家工商局认证 国家备案部认证 安全网 网络公安 酷虎收款方式 信用网站 信用网站