📄 sendmail.asp
字号:
<%
sFrom = request.form("sFrom")
sTo = request.form("sTo")
sSubject = request.form("sSubject")
sContent = request.form("sContent")
if sFrom<>"" and sTo<>"" then
if sendmail(sFrom,sTo,sSubject,sContent) then
Flag="OK"
else
Flag="FALSE"
end if
else
Flag="FALSE"
end if
response.redirect request.ServerVariables("HTTP_REFERER")&"?Flag="&Flag
Function sendmail(stringFrom,stringTo,stringSubject,stringContent)
On error resume next
Set newmail = Server.CreateObject ("cdonts.newmail")
newmail.BodyFormat = 0
newmail.MailFormat = 0
newmail.From = stringFrom
newmail.To = stringTo
newmail.Subject = stringSubject
newmail.Body = stringContent
newmail.Send
Set newmail = Nothing
If err.description="" Then
sendmail=true
Else
sendmail=false
End If
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -