<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% names=trim(request("names")) phone=trim(request("phone")) company=trim(request("company")) website=trim(request("website")) address=trim(request("address")) product_num=trim(request("product_num")) set rsClass=server.createobject("adodb.recordset") sql="select * from [message] order by id desc" rsClass.open sql,conn,1,3 rsClass.addnew rsClass("names")=names rsClass("phone")=phone rsClass("company")=company rsClass("website")=website rsClass("product_num")=product_num rsClass("address")=address rsClass("Time")=date() rsClass.update rsClass.close set rsClass=nothing content="" content=content&"
Online Message
" content=content&"
Your Name:"&names content=content&"
Your company:"&phone content=content&"
Your company designation:"&company content=content&"
Your email:"&product_num content=content&"
Your contact number:"&website content=content&"
What would you like to ask us?:"&address content=content&"
Date:"&date() content=content&"" Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 'jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j jmail.Charset = "utf-8" '邮件的文字编码 jmail.ContentType = "text/html" '邮件的格式为HTML格式或纯文 jmail.AddRecipient "Enquiry@ebenezer.com.sg" '邮件收件 人的地址 enquiry@ebenezer.com.sg jmail.From = "fenghua@nettocom.com" '发件人的E-MAIL地址 jmail.MailServerUserName = "fenghua@nettocom.com" '登录邮件服务器的用户名 (您的邮件地址) jmail.MailServerPassword = "fenghua@412" '登录邮件服务器的密码 (您的邮件密码) jmail.Subject = "Enquiry Form - " & names '邮件的标题 jmail.Body = content '邮件的内容 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Send("smtp.chengmail.cn") '执行邮件发送（通过邮件服务器地址） jmail.Close() set jmail = nothing response.End() %>