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 + -
显示快捷键?