'函数名：UpFsRn

'作 用：无组件上传文件到指定目录并更改文件名称

'参 数：RetSize--- 上传限止大小（单位是M）

'参 数：Fdir ---- 目标路径

'参 数：Objwj ---- 目标文件名称

'返回值：如果成功 True 否则 False

'例 UpFsRn(10,Readsyspath(1)&"zfkhauto","test.txt")

'使用表单提取文件

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

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