send.asp
来自「applet在線上繪圖,允許在瀏覽器上繪圖,最後儲存成各式的圖檔」· ASP 代码 · 共 33 行
ASP
33 行
<html>
<head>
<title>Send image</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body bgcolor="#C0C0CA">
<%
if Request.Form("filename")<>"" then
EmailFrom = Request.Form("from")
EmailTo = Request.Form("to")
Subject = Request.Form("subject")
Message = Request.Form("message")
FileName = Server.MapPath("./") & "\" & Request.Form("filename")
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.AttachFile FileName, Request.Form("filename"), 1
objNewMail.Send EmailFrom, EmailTo, Subject, Message, 1 ' normal importance
Set objNewMail = Nothing
Response.Write "<p>Image and message are sent successfully</p>"
Response.Write "<p><a href='edit.htm'>Go back to editing</a></p>"
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?