最新动态
热烈庆祝北京地博资源科技有限公司网站开通,谢谢光临!
咨询电话
电话:010-82382284
联系人:屈先生
友情链接
   
   
   

访问

在线留言

<%if request("action")="send" then%> <% '参数说明 'Subject : 邮件标题 'MailAddress : 发件服务器的地址,如smtp.163.com 'Email : 收件人邮件地址 'Sender : 发件人姓名 'Content : 邮件内容 'Fromer : 发件人的邮件地址 Sub SendAction(subject, email, sender, content) Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII" JMail.From = strMailUser ' 发送者地址 JMail.FromName = sender' 发送者姓名 JMail.Subject =subject JMail.MailServerUserName = strMailUser' 身份验证的用户名 JMail.MailServerPassword = strMailPass ' 身份验证的密码 JMail.Priority = 3 JMail.AddRecipient(email) JMail.Body = content JMail.Send(strMailAddress) End Sub '调用此Sub的例子 Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer strSubject = Request("title") strContent = "用户Email:" & Request("From") & VbCrLf & "电话:" & Request("Tel") & VbCrLf & "内容:" & vbcrlf & Request("content") strSender = Request("Name") strEmail = "zhouhaizhe@126.com" '这是收信的地址,可以改为其它的邮箱 strMailAddress = "mx621.now.net.cn" '我司企业邮局地址,请使用 mail.您的域名 strMailUser = "postmaster@e-feihong.cn" '我司企业邮局用户名 strMailPass = "mtc1mt" '邮局用户密码(这里是你自已的密码) Call SendAction (strSubject,strEmail,strSender,strContent) %> <%else%>


在线留言

留言主题*

您的姓名*
您的邮箱*
您的电话*
内容:




<%end if%>  

 

 


 
Copyright ©2008 北京地博资源科技有限公司 All rights reserved.
地址:北京市海淀区成府路20-2号海业商务楼221房 邮编:100083
电话:010-82382284 技术支持:3A工作室