آپلود فایل با جاوا اسکریپت و asp classic - asp classic Uploder

[_elhfarzan]

فایل دوم سمت سرور :

<% @ Language=VBScript  CodePage = 65001%>

<%

	

	

		Function SaveToBase64 (base64String)

					Set Doc = Server.CreateObject("MSXML2.DomDocument")

				    Set nodeB64 = Doc.CreateElement("b64")

				    nodeB64.DataType = "bin.base64"

				    nodeB64.Text = Mid(base64String, InStr(base64String, ",") + 1)

					

				 	dim bStream

				    set bStream = server.CreateObject("ADODB.stream")

				    bStream.type =  1

				    call bStream.Open()

				    call bStream.Write( nodeB64.NodeTypedValue )

				    call bStream.SaveToFile("E:\newsign\nezam" +"\"+request.querystring("FileName"), 2 ) 'Server.MapPath(".")

				    call bStream.close()

				    set bStream = nothing		

				    response.write "^"+"OK Send"	    

		 end function

	

		SaveToBase64(Replace(request("base64"),"^",";"))





%>