📄 send.asp

📁 applet在線上繪圖,允許在瀏覽器上繪圖,最後儲存成各式的圖檔

💻 ASP

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -