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")

BuildUploadRequestRequestBin

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

%>

mydear 发表于:2007.08.12 21:38 ::分类: ( 一般分类 ) ::阅读:(1次) :: 评论 (0)

-->

===========================================================

用JS+Cookie编写的购物车1(转)

===========================================================

一、商品列表：list.htm

新

我的订单

mydear 发表于:2007.08.12 21:38 ::分类: ( 一般分类 ) ::阅读:(1次) :: 评论 (0)

-->

===========================================================

无组件上传文件（5）(转)

===========================================================

uploadform.htm




Upload Form

Output to client

Email :

Picture :

Binary output to client

Email :

Picture :

Output to file system

Email :

Picture :

来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/7178747/viewspace-161978/ ，如需转载，请注明出处，否则将追究法律责任。

上一篇：用JS+Cookie编写的购物车2(转)

下一篇：给你的FileSystemObject对象加把锁(转)

请登录后发表评论登录

全部评论

rain0903

注册时间：2006-04-07

博文量
708
访问量

620087

ITPub博客

无组件上传文件（4）(转)

最新文章