Focusun Chine

<% 'Function ChkObjInstalled(strClassString) 'On Error Resume Next 'ChkObjInstalled = False 'Err = 0 'Dim xTestObj 'Set xTestObj = Server.CreateObject(strClassString) 'If 0 = Err Then ChkObjInstalled = True 'Set xTestObj = Nothing 'Err = 0 'End Function 'If ChkObjInstalled("JMail.SmtpMail") Then 'Response.Write "√ 可以使用邮件群发" 'Else 'Response.Write "× 不能使用邮件群发" 'End If %> <% myemail ="coreldraw2223@hotmail.com" myname ="Focusun-Ice-Machine" smtpserver ="smtpcom.263xmail.com" smtpuser ="enquiry@focusun.com" smtppwd ="enquiryy2010" smtpemail ="enquiry@focusun.com" action = Request("action") tname =Request("t1") temail =Request("t2") tother =Request("t3") tsubject =Request("t4") tbody =Request("t5") if tname <> "" and temail <> "" then set jmail=server.CreateObject ("jmail.message") jmail.Silent =true jmail.Charset ="utf-8" if action = "mail" then if smtpemail <> "" then jmail.From ="enquiry@focusun.com" else jmail.From =temail end if jmail.FromName =tname jmail.ReplyTo =temail jmail.Subject ="Title:" & tsubject jmail.Body ="Name:" &tname& vbcrlf & "---------------------------------------------------------------------------------"& vbcrlf &"E-mail:" & temail& vbcrlf & "---------------------------------------------------------------------------------"& vbcrlf &tbody& vbcrlf & "---------------------------------------------------------------------------------"& vbcrlf &"Contact Us:"&tother jmail.AddRecipient myemail,myname jmail.MailServerUserName =smtpuser jmail.MailServerPassWord =smtppwd isgo=jmail.Send(smtpserver) if isgo then msg="感谢你填写,我们专业的技术部工程师会在一个工作日内给您回复!" else msg="ERROR!" end if jmail.Close set jmail=nothing end if response.Write(msg) else %>

Nom:

E-mail:

Tel:

Titre:

Message:

<% end if %>