抚顺网站建设,域名注册,虚拟主机,企业邮局,数据库,企业推广,搜索排名,技术咨询,专业服务 互联DIY-www.hldiy.net
用户: 密码:  
首   页 域名注册 虚拟主机 企业邮局 自助建站 网站推广 网站建设 价格总览 购 物 车 代理合作 技术交流


ASP发邮件的例程
发布时间: 2003-7-8 发布者:本站站长 阅读次数:12542

<%
if Cint(request("send"))=1 then
on error resume next
set mymail=server.CreateObject ("CDONTS.Newmail")
mymail.mailformat=0
mymail.bodyformat=0
mymail.from =request("from")
mymail.to =request("to")
mymail.BCC =request("bbc")
mymail.subject =request("subject")
mymail.body =request("body")
mymail.send
if err.number<>0 then
response.write err.description
response.end
end if
set mymail=Nothing
response.write "邮件已成功发送到"+request("to")
response.end
end if
%>






















发件人：
收件人：
密送地址：
邮件标题：
邮件内容：