昌成源科技有限公司
<%
if request("act")="save" then
body=request("mailbody")
Set JMail=Server.CreateObject("JMail.Message")
JMail.Silent=TRUE
JMail.CharSet="gb2312"
JMail.From = "mail@9qu.com"
JMail.ContentType = "text/html"
Jmail.FromName = "网站访问者"
JMail.Subject="客户反馈信息"
JMail.AddRecipient "weihu@9qu.com"
JMail.HTMLBody = body
JMail.MailServerUserName = "mail@9qu.com" '登陆到邮件服务器上的邮件地址
Jmail.MailServerPassword = "9quserver" '登陆到邮件服务器上的密码
JMail.Send("mail.9qu.com")
JMail.close
Set JMail=nothing
if err.number = 0 then
call tomessagebox("您的信息已成功提交,我们将尽快联系您",false,"contact.asp",true)
end if
end if
%>