<%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 = "绣品网站留言" strContent = "用户Email:" & Request("company") & VbCrLf & Request("user") & VbCrLf & "电话:" & Request("Telephone") & VbCrLf & "手机:" & Request("mod") & VbCrLf & "地址:" & Request("address") & VbCrLf& "内容:" & vbcrlf & Request("message") strSender = Request("user") strEmail = "whzh0624@163.com" '这是收信的地址,可以改为其它的邮箱 strMailAddress = "smtp.126.com" '我司企业邮局地址，请使用 mail.您的域名 strMailUser = "whzh0624@126.com" '我司企业邮局用户名 strMailPass = "yy0506" '邮局用户密码 Call SendAction (strSubject,strEmail,strSender,strContent) %> <%else%>
联系我们


服务热线: 0532-86029688
服务邮箱:whzh0624@163.com
单位:电话:
联系人:手机:
地址:
留言:


清华紫光凯远信息技术有限公司
地址 : 山东青岛市辽宁路228号科信大厦25A层
电话 : 0532-86029688
传真 : 0532-86029688
邮箱 : whzh0624@163.com
网址 : www.sdthunis.com
© 2009 清华紫光凯远信息技术有限公司 网站地图 | 申明
<%end if%>