上传|无组件outputclient.asp
<%
' Author Philippe Collignon
' Email PhCollignonemail.com
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
email = UploadRequest.Item("email").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
%>
Your email is : <%= email %>
File name of you picture is <%=filepathname%>
File type of your picture is <%=contentType%>
<!--#include file="upload.asp"-->
转自asptoday
无组件上传文件（3）
80酷酷网 80kuku.com
