Asp常用通用函数之无组件上传文件到指定目录并改文件名称

'函数名：UpFsRn
  '作 用：无组件上传文件到指定目录并更改文件名称
  '参 数：RetSize--- 上传限止大小（单位是M）
  '参 数：Fdir ---- 目标路径
  '参 数：Objwj ---- 目标文件名称
  '返回值：如果成功 True 否则 False
  '例 UpFsRn(10,Readsyspath(1)&"zfkhauto","test.txt")
  '使用表单提取文件 <form method='POST' action='function.asp' enctype='multipart/form-data'><input type='file' name='T1'><input type='submit' value='提交' name='B1'></form>
  '**************************************************
  Public Function UpFsRn(ByVal RetSize,ByVal Fdir,ByVal Objwj)
   UpFsRn=False
   Dim oUpStream,oStream,formsize,Formdata,strFileName,strFileDir,ObjAllPath,datastart,dataend
   strFileDir = Fdir
   strFileName = Swj
   ObjAllPath = ""
   If Right(strFileDir,1)<>"\" Then strFileDir=strFileDir&"\"
   ObjAllPath =strFileDir&Objwj
   If CheckFile(ObjAllPath) Then DelFile(ObjAllPath)
   formsize=Request.TotalBytes
   if (formsize<=(RetSize*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
   set oUpStream = Server.CreateObject("adodb.stream")
   oUpStream.Type = 1
   oUpStream.Mode = 3
   oUpStream.Open
   set oStream = Server.CreateObject("adodb.stream")
   oStream.Type = 1
   oStream.Mode = 3
   oStream.Open
   oUpStream.Write Formdata
   oUpStream.position=datastart-1
   oUpStream.copyto oStream,dataend
   oStream.SaveToFile ObjAllPath,2
   oStream.Close
   set oStream=nothing
   UpFsRn=True
   End If
  End function