?? mail.asp
字號:
<%
if instr(mailaddress,"@")=0 then
error2("E-mail地址填寫錯誤!")
end if
on error resume next
if selectmail="JMail" then
Set JMail=Server.CreateObject("JMail.Message")
If -2147221005 = Err Then
error2("本服務器不支持 JMail.Message 組件!請到后臺關閉發送郵件功能!")
End If
JMail.AddRecipient mailaddress
JMail.Subject = mailtopic
JMail.Body = body
JMail.From = smtpmail
JMail.MailServerUserName = MailServerUserName
JMail.MailServerPassword = MailServerPassword
JMail.Send smtp
Set JMail=nothing
elseif selectmail="CDONTS" then
Set MailObject = Server.CreateObject("CDONTS.NewMail")
If -2147221005 = Err Then
error2("本服務器不支持 CDONTS.NewMail 組件!請到后臺關閉發送郵件功能!")
End If
MailObject.Send smtpmail,mailaddress,mailtopic,body
Set MailObject=nothing
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -