首页 | 域名注册 | 虚拟主机 | 云企业邮箱 | 云服务器 | 建站服务 | 服务器租用托管 | 企业短信 | 企业服务
广东时代互联科技有时代互联代理客户服务中心 全国 统一销售热线:4000- 138-000 全国统一售后热线:4000-128-000IDC售后电话:0756- 3810536欢迎您来到时代互联客户服务中心!
客服首页
帮助中心
下载中心
时代优势
优质服务
请输入您的问题:
     
帮助中心分类
 
 
主页 > 帮助中心 > 虚拟主机 > ASP 发邮件教程
ASP 发邮件教程
作者:   文章来源:   点击数:   更新时间:2008-08-05
<%
inputMailTo = Trim(Request.Form("inputMailTo"))
inputMailFrom = Trim(Request.Form("inputMailFrom"))
inputMailSubject = Trim(Request.Form("inputMailSubject"))
textBoxMailBody = Trim(Request.Form("textBoxMailBody"))

dim ErrMsgInputMailTo,ErrMsgInputMailFrom,ErrMsgInputMailSubject,ErrMsgTextBoxMailBody,MsgSendResult

sendMail

sub sendMail()
if inputMailTo = "" then
ErrMsgInputMailTo = "不能为空"
exit sub
end if
if ValidateEmail(inputMailTo) = false then
ErrMsgInputMailTo = "E-Mail Address Error"
exit sub
end if
if inputMailFrom = "" then
ErrMsgInputMailFrom = "不能为空"
exit sub
end if
if ValidateEmail(inputMailFrom) = false then
ErrMsgInputMailFrom = "E-Mail Address Error"
exit sub
end if
if inputMailSubject = "" then
ErrMsgInputMailSubject = "不能为空"
exit sub
end if
if textBoxMailBody = "" then
ErrMsgTextBoxMailBody = "不能为空"
exit sub
end if

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = inputMailTo
mail.From = inputMailFrom
mail.Subject = inputMailSubject
mail.Body = textBoxMailBody
mail.Send

MsgSendResult = "发送成功!From: " + inputMailFrom + "; To: " + inputMailTo

end sub
%>
<html>
<head>
<title>发送邮件 By ASP</title>
</head>
<body>
<div align="center">

<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#eeeeee" id="AutoNumber1">
<form id="formMail" method="post" action="">
<tr>
<td width="20%" height="24">收件人地址: </td>
<td width="80%" height="24">
<input type="text" id="inputMailTo" name="inputMailTo" size="48" value="<% = inputMailTo %>
">
<font color="#ff0000">
<strong>
<% = ErrMsgInputMailTo %>
</strong>
</font>
</td>
</tr>
<tr>
<td width="20%" height="24">发件人地址: </td>
<td width="80%" height="24">
<input type="text" id="inputMailFrom" name="inputMailFrom" size="48" value="<% = inputMailFrom %>
">
<font color="#ff0000">
<strong>
<% = ErrMsgInputMailFrom %>
</strong>
</font>
</td>
</tr>
<tr>
<td width="20%" height="24">邮件主题: </td>
<td width="80%" height="24">
<input type="text" id="inputMailSubject" name="inputMailSubject" size="48" value="<% = inputMailSubject %>
">
<font color="#ff0000">
<strong>
<% = ErrMsgInputMailSubject %>
</strong>
</font>
</td>
</tr>
<tr>
<td width="20%" height="24">邮件内容: </td>
<td width="80%" height="24">
<textarea id="textBoxMailBody" name="textBoxMailBody" Rows="6" Cols="48">
<% = textBoxMailBody %>
</textarea>
<font color="#ff0000">
<strong>
<% = ErrMsgTextBoxMailBody %>
</strong>
</font>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" value="Send Mail" id="buttonSendMail" name="buttonSendMail">
</td>
</tr>
<tr>
<td colspan="2" align="center" height="24">
</td>
</tr>
<tr>
<td colspan="2" align="center">
<font color="#ff0000">
<strong>
<% = MsgSendResult %>
</strong>
</font>
</td>
</tr>
</form>
</table>



</div>
</body>
</html>

<%
Function ValidateEmail(Expression)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$"
ValidateEmail = objRegExp.Test(Expression)
End Function
%>

分享到:
  • 上一篇:服务器租用(托管)是多少带宽?可否放音乐和下载的内容?是否支持月付?

  • 下一篇:如何通过flash fxp上传网页?
  • mimeograph 打印本文 closed 关闭窗口

    关于我们 | 联系我们 | 交费确认 | 友情链接 | 诚征英才
    中华人民共和国
    增值电信业务经营许可证
    粤B2-20042046
    Copyright © 2000-2013 Todaynic.com,Inc. All rights reserved
    时代互联 2000-2013 版权所有 严禁复制