'函数ID：0026[取得multipart/form-data形式上传文件]

'函数名：GetImageData

'作用：取得multipart/form-data形式上传文件

'参数：MaxSize----上传的限止大小,单位：M(兆)

'返回值：二进制数据

'示例：

'**************************************************

PublicFunctionGetImageData(ByValMaxSize)

GetImageData=""

DIMformsize,Formdata,bncrlf,divider,datastart,dataend,mydata

formsize=Request.TotalBytes

if(formsize<=(MaxSize*1024*1024))then

Formdata=Request.BinaryRead(formsize)

Pos_ts=LenB(getByteString(Chr(13)&Chr(10)&Chr(13)&Chr(10)))

Pos_b=InstrB(Formdata,getByteString(Chr(13)&Chr(10)&Chr(13)&Chr(10)))+Pos_ts

nFormdata=MidB(Formdata,Pos_b)

Pos_ts=InstrB(nFormdata,getByteString(Chr(13)&Chr(10)&"--"))

nnFormdata=MidB(nFormdata,Pos_ts)

Pos_e=LenB(Formdata)-LenB(nnFormdata)-Pos_b+1

datastart=Pos_b

dataend=Pos_e

mydata=midb(Formdata,datastart,dataend)

EndIf

GetImageData=mydata

EndFunction

''''将字串转为二进制串

FunctiongetByteString(StringStr)

Fori=1toLen(StringStr)

char=Mid(StringStr,i,1)

getByteString=getByteString&chrB(AscB(char))

Next

Endfunction