<%@LANGUAGE="VBSCRIPT"%>
<% if (cStr(Request("Submit")) <> "") Then
bady = Request("content")'寄出E-Mail
Set Jmail = Server.CreateObject("JMail.SMTPMail")
'設定為html格式
JMail.ContentType = "text/html"
'本文
JMail.Body = bady
'標題
JMail.Subject = Request("subject")
'寄件信箱
JMail.Sender = Request("email")
'寄件人
JMail.Sendername = Request("name")
'收件人信箱
JMail.AddRecipient "sha.ro@msa.hinet.net"
'外部伺服器
'JMail.ServerAddress = "XXX.XXX.XXX"
'設定為Big碼
JMail.Charset = "Big5"
'郵件傳送
JMail.Execute
set JMail = Nothing
end If%>
mail
中聲廣播電台 版權所有 ©2002-2004 All Rights Reserved
台址:台中市光復路134號 電話:(04)22223436
傳真:(04)22238948
