无组件上传文件（4）

上传|无组件

binaryoutputclient.asp

<%
' Author Philippe Collignon
' Email PhCollignon@email.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,"\"))
picture = UploadRequest.Item("blob").Item("Value")

Response.ContentType = contentType
Response.binaryWrite picture

%>

转自asptoday

时间： 2024-08-18 09:41:09

无组件上传文件（4）的相关文章

一个函数无组件上传文件

函数|上传|无组件 <% '''''============================== '函数名:upfile '作用: 使用"化境上传组件"上传文件到服务器上 '参数: file1 文件对象 ' savepath 文件要保存的相对路径,如"../"上一级上录,""同目录 ' maxsize 允许上传文件的最大值,单位KB.为0不限大小. ' savetype 允许上传文件的类型,0不限制,限制的格式.如.jpg|.bmp|.zi

无组件上传文件，一个函数搞定

函数|上传|无组件本函数是用"化境ASP无组件上传程序2.0"上传文件.核心函数:<%'''''=============================='函数名:upfile'作用: 使用"化境上传组件"上传文件到服务器上'参数: file1 文件对象 ' savepath 文件要保存的相对路径,如"../"上一级上录,""同目录 ' maxsize 允许上传文件的最大值,单位KB.为0不限大小.' savetyp

《无组件上传文件》

上传|无组件我只是照搬过来的我也是刚找到.我自己还没看明白源码呢.<br>你只有自己修改了.我把整个网页一起贴过来吧.谁英文好翻译一下.<br>一页贴不下分两页.<br>Upload Form<br>Usually, you use an HTML FORM to submit data from the browser to the web server. That form can contain text fields, checkbox, butt

无组件上传文件（3）

上传|无组件 outputclient.asp <%' Author Philippe Collignon' Email PhCollignon@email.com Response.Buffer = TRUEResponse.Clear byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount)Dim UploadRequestSet UploadRequest = CreateObject("Scr

无组件上传文件（2）

上传|无组件 outputfile.asp <%' Author Philippe Collignon' Email PhCollignon@email.com Response.Expires=0Response.Buffer = TRUEResponse.Clear'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))byteCount = Request.TotalBytes'Response.BinaryWrite(Re

无组件上传文件(1)

上传|无组件 file:upload.asp <%' Author Philippe Collignon' Email PhCollignon@email.com Sub BuildUploadRequest(RequestBin) 'Get the boundary PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,

无组件上传文件（5）

上传|无组件 uploadform.htm <HTML><HEAD> <TITLE>Upload Form</TITLE></HEAD><BODY><B>Output to client</b><FORM METHOD="Pos

ASP实例：一个简单的ASP无组件上传类

简单的ASP无组件上传类,发出来让大家看看.可以做做实验! 以下为引用的内容: <%@ language="javascript"%><%var self = Request.serverVariables("SCRIPT_NAME");if (Request.serverVariables("REQUEST_METHOD")=="POST"){ var oo = new uploadFile(

ASP无组件上传类的应用实例

上传|无组件|应用实例|上传|无组件|应用实例 ''''''-------- upload.htm ------------- <script language="javascript"> function checkFile(myForm) { if(myForm.File1.value=='') return false; myForm.submit(); }</script><form method="POST&qu