神马品牌网南宁科目三需要站岗:FSO初学者的菜鸟问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 05:34:56
例如：客户端文件是:file=request("filename")；
服务端目录是：path=servermappath("picture")；
读取客户端文件用fso的哪个方法？比如是fso.read..还是....
传到服务端用fso的哪个方法？比如是fso.copy..还是....
只要思路，或者简短的思路代码附加上解释。
读取的时候使用request的二进制流读取，然后就可以直接写入了
客户端文件是post到服务器上的，对此不用做什么操作，
dim upload,file,formName,formPath,iCount
Set fso = Server.CreateObject("Scripting.FileSystemObject")
formPath="/"&session("filepath")&"/"&session("BigClassFileName")&"/imgnews/"
If FSO.FolderExists(Server.MapPath(formPath)) = False Then
FSO.CreateFolder Server.MapPath(formPath)
End If
set upload=new upload_5xSoft ''建立上传对象
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
fname=""&fname&".gif"
file.SaveAs Server.mappath(formPath&fname) ''保存文件
picurl=fname
picurl1=formPath&fname
session("imgurl")=picurl1
picurl = replace(picurl,"..","")
end if
set file=nothing
next
set upload=nothing
'Htmend iCount&" 个文件上传结束!"
sub HtmEnd(Msg)
set upload=nothing