Asp常用通用函数之取得multipart/form-data形式上传文件

点击次数：269 创建日期：11-25-2007 录入：cn-web.com 字体:[大中小] 点评：

'函数名：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