a=split(filesid,",")
For i = 0 to UBound(a)
c=a(i)
set rs=server.CreateObject("adodb.recordset")
sql="select upfile from filestable where fileid='"&c&"'"
rs.open sql,cnn,1,1
fname=rs("upfile")
rs.close
set rs=nothing
if fname<>"" then
url=server.MapPath("/") & "\tempupload\" & fname
end if
set objFso=server.CreateObject("scripting.filesystemobject") '此处向后只执行一次
set fn=objFso.GetFile(url)
flsize=fn.size
flname=fn.name
set fn=nothing
set objFso=nothing
set objStream=server.CreateObject("adodb.stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFile url