快速登录:  
用户名:
密 码:
为何选择我们
  • 7年优质服务经验
  • 10万用户的共同选择
  • 更低的价格更好的服务
  • CNNIC四星级认证服务商
  • 拥有正规经营许可证(ICP)
  • 先进的解析技术10分钟生效
  • 6组DNS负载均衡更快更稳定
  虚拟主机域名注册-常见问题虚拟主机问题 → 虚拟主机问题


Jmail 发送邮件的例子2
作者:
<%@ Language=VBScript %>
<%
"==================================================
" 参 数 设 置
"==================================================

"修改收信人电子邮件地址,表单里的内容将发送到这个信箱中
myemail ="test@test.com"

"修改收信人姓名
myname ="我的公司"

"修改SMTP服务器
smtpserver ="mail.test.com"

"修改SMTP服务器的用户名和密码
smtpuser ="test@test.com"
smtppwd ="123456"

"与相应SMTP服务器对应的邮件地址
"很多SMTP服务器除了要验证用户名和密码外,还要验证发件人地址,
"比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net
"结尾,否则不予发送,因此,使用相应的信箱做为发信人信箱是必要的
smtpemail ="test@test.com"

"==================================================
" 程 序 开 始
"==================================================

tname =Request("t1")
temail =Request("t2")
tother =Request("t3")
tsubject =Request("t4")
tbody =Request("t5")

if tname <> "" and temail <> "" then

set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.Charset ="gb2312"

if smtpemail <> "" then
jmail.From ="test@test.com"
else
jmail.From =temail
end if

jmail.FromName =tname
jmail.ReplyTo =temail
jmail.Subject ="网上提交:" & tsubject
jmail.Body =tbody & vbcrlf & vbcrlf & "联系方式:" & tother
jmail.AddRecipient myemail,myname
jmail.MailServerUserName =smtpuser
jmail.MailServerPassWord =smtppwd

isgo=jmail.Send(smtpserver)
if isgo then
msg="提交成功!谢谢您的支持。"
else
msg="发送失败!请检查您的邮件地址是否填写正确。"
end if

jmail.Close
set jmail=nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>与我司联系</title>
</head>
<style type="text/css">
<!--
body,input,textarea{font-size: 12px}
-->
</style>
<body>
<form action=jmail.asp><%=msg%>
<br>您的姓名:
<br><input name=T1 size=29>
<br>电子邮件:
<br><input name=T2 size=29>
<br>联系方式:
<br><input name=T3 size=29>
<br>文章主题:
<br><input name=T4 size=29>
<br>文章正文:
<br><textarea rows=6 cols=28 name=T5>
</textarea>
<br><input type="submit" value="确定">
</form>
</body></html>



来源:
阅读:9609
日期:2006-05-12

【 双击滚屏 】 【 推荐朋友 】 【 收藏 】 【 打印 】 【 关闭 】 【 字体: 】 
上一篇:Jmail 发送邮件的例子1
下一篇:我的流量不够用,西部数码空间能否只升级流量,不升级空间呢?
  >> 相关文章
 
CNNIC四星级注册服务机构证书营业执照网上警察 联系在线客服博斯互联官方QQ有问必答
中华人民共和国增值电信业务经营许可证-川B2-20080058号

博斯公告:博斯互联是西部数码伙伴级核心代理商,全场八折起优惠更有礼品相送,支持淘宝购买更有保障,同时我们也是万网、阿里云、新网、云龙科技和红色主机等知名IDC品牌的合作伙伴,致力于为客户提供完整的互联网应用服务,服务范围涵盖基础的域名服务、虚拟主机、企业邮箱、网站建设、网络营销等应用服务,我们的宗旨是搜集天下优质主机资源,每一个主机都精心挑选和测试,保证主机速度和稳定性,让客户无忧。
特别提示:买西部数码虚拟主机,找博斯互联!价格低、服务好、有保障!另增送20%空间,买1年还送30天(国内),超值!!!
友情链接:西部数码 鸟嘌呤  更多链接...
展开