save.asp

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

<%@ Language=VBScript %>
<!-- #include file="binsave.asp" -->
<%

' Set the file names
ImageFileName = Server.MapPath("./image.png")
NotesFileName = Server.MapPath("./notes.txt")

' Extract image from the form field "image"
ImageData = Request.Form("image")

if ImageData <> "" then
	
	' Save image
	SaveToBinFile ImageFileName, ImageData
		
	' Save text notes
 	Set fso = Server.CreateObject("Scripting.FileSystemObject")
  	Set textStream = fso.CreateTextFile(NotesFileName)
  	textStream.Write(Request.Form("notes"))
  	textStream.Close

  	' Report a success result
	%>  	    
  	    <p>Image is saved to <%=ImageFileName%><br>
  	    Notes are saved to <%=NotesFileName%></p>
  	    <table><tr><td bgcolor="#000000"><img src="<%=ImageFileName%>"></td></tr></table>
  	    <pre><%=Request.Form("notes")%></pre>
	<%  	    
  	
Else
     Response.Write "Image is not found."+vbCRLF
end if

%>