'函数名：GetImageData

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

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

'返回值：二进制数据

'示 例：

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

Public Function GetImageData(ByVal MaxSize)

GetImageData=""

DIM formsize,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)

End If

GetImageData=mydata

End Function

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

Function getByteString(StringStr)

For i=1 to Len(StringStr)

char=Mid(StringStr,i,1)

getByteString=getByteString & chrB(AscB(char))

Next

End function