<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <%session.CodePage=950%> <% if Request.QueryString("flag")="send" then ContactPerson = trim(request("ContactPerson")) ContactTitle = trim(request("ContactTitle")) CompanyName = trim(request("CompanyName")) ContactEmail = trim(request("ContactEmail")) ContactTel = trim(request("ContactTel")) ContactSubject = trim(request("ContactSubject")) ContactMsg = trim(request("ContactMsg")) HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "" HTMLBody = HTMLBody & "

名稱	"&ContactPerson&" "&ContactTitle&"
公司名稱	"&CompanyName&"
電郵地址	"&ContactEmail&"
電話號碼	"&ContactTel&"
主旨	"&ContactSubject&"
內容	"&replace(ContactMsg&" ",chr(13)," ")&"

" ' Response.Write(HTMLBody) ' Response.End() '====================================================================================== mailaddress="stroll_in_forest@163.com" mailserver="smtp.163.com" mailloginname="stroll_in_forest" mailloginpwd="htxcxq" ' mailaddress="webmaster@webdesign488.com" ' mailserver="mail.webdesign488.com" ' mailloginname="webmaster@webdesign488.com" ' mailloginpwd="w123d456" '====================================================================================== sendstate=false mailsubject="Contact Us" mailcontent=HTMLBody mailtoaddress="yuenhingfoods@yahoo.com.hk" MailtoName="Yuen Hing Foods" senduemail="stroll_in_forest@163.com" senduname="WebSite" if IsObjInstalled("JMail.Message") or IsObjInstalled("JMail.SmtpMail") then sendstate=JmailSend(mailsubject,mailcontent,1,3,mailtoaddress,MailtoName,senduemail,senduname,mailserver,mailloginname,mailloginpwd) elseif IsObjInstalled("CDO.Message") then sendstate=Cdonts(mailsubject,mailcontent,1,3,mailtoaddress,MailtoName,senduemail,senduname,mailserver,mailloginname,mailloginpwd) elseif IsObjInstalled("Persits.MailSender") then sendstate=Aspemail(mailsubject,mailcontent,1,3,mailtoaddress,MailtoName,senduemail,senduname,mailserver,mailloginname,mailloginpwd) end if '====================================================================================== if sendstate=false then alert "郵件發送失敗！","contactin.asp" else alert "郵件發送成功！","contactin.asp" end if end if %>

名稱:
	小姐 先生 女士
公司名稱:
電郵地址:
電話號碼:
主旨:
內容: