?? email.asp
字號:
<%
REM This file is used to test whether the server can send email
dim sender
dim mailto
dim subject
dim body
sender="Flybird <flybirdspf@163.net>"
mailto="shen.pengfei@usa.net"
subject="test whether the server can send email"
body="It's OK!"
sendMail sender,mailto,subject,body
function sendMail(sender,mailto,subject,body)
on error resume next
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.From=sender
MailObject.To=mailto
MailObject.Subject=subject
MailObject.Body=body
MailObject.Send
if err>0 then
err.clear
sendMail=false
else
sendMail=true
end if
end function
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -