大家帮我瞅瞅 上传文件问题：）

[nihaopp]

我在网上看到六行可以实现上传，信以为真，自己整理一下本地调试成功，可在服务器端报错为：“打不开文件”
我的问题是：
1.是不是ADODB.Stream组件只能服务器端拷来拷去？
2.既然是Server端建立的一个对象，怎么可在客户端直接用路径得到文件?
大家帮我分析或改一下，谢了！
Function GetFileName(ByVal strFile)
If strFile<> "" then
GetFile = mid(strFile,InStrRev(strFile, "\")+1)
GetFilEext = mid(GetFile,InStrRev(GetFile, ".")+1)
GetFileName =userid&"."&GetFilEext
Else
GetFileName = ""
End If
End function

dim strFileName,FileName,adLink
strFileName = Request.Form("adwords")
adLink = Request.Form("adLink")
FileName=GetFileName(strFileName)
If strFileName<>"" Then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath("adimg/"&userid&"/"&FileName),2
objStream.Close
End if

[wangwm]

现在好像不能用了哦，objStream.LoadFromFile strFileName没有权限

[nihaopp]

还有没有了解的？

[nihaopp]

拜托各位再帮我看看我这样做为什么还不行说是类型在不可接受的范围，Image已经是二进制数据了，而且我把它存入数据库中 然后这样取出Image = rstData("imgC") 再rstFile.write Image却可以，为什么直接却不行呢？？高手指点，谢谢了！
response.expires=0
Function ImageUp(formsize,formdata)
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,instrb(formdata,bncrlf)-1) 'formdata第一个bncrlf左边的数据
datastart=instrb(formdata,bncrlf & bncrlf)+4 '两个bncrlf右边的数据的起始位
dataend=instrb(datastart+1,formdata,divider)-datastart
Imageup=midb(formdata,datastart,dataend)
End Function
dim Image
FormSize = Request.TotalBytes
FormData = Request.BinaryRead( FormSize )
Image = ImageUp(FormSize,Formdata)

ee=server.MapPath("444.gif")
Set rstFile = Server.CreateObject("adodb.stream")
rstFile.Type = 1
rstFile.Mode =3
rstFile.Open
rstFile.write Image
rstFile.SaveToFile ee,2 '生成文件
Set rstFile=Nothing

[wangwm]

所谓的"6行代码实现文件上传"为何是谬论- -


http://byval.bokee.com/119012.html

[wangwm]

上传到数据库中是可以的

[nihaopp]

是的，我把它弄到数据库了，并且实现了读取并另存为文件，我就是想直接把它存成文件，我知道"6行代码实现文件上传"错在adodb.stream不能装载客户端信息，我用Request.TotalBytes获取到了呀可还不行，不知道错在哪里？继续请高手指点！谢谢！

[nihaopp]

谢谢楼上，我是这样搞的刚才测试成功，可以直接客户端上传文件，不过有多个文件还不知怎么弄？再次感谢！
FormSize = Request.TotalBytes
FormData = Request.BinaryRead( FormSize )

Getfiles=server.MapPath("444.gif")
Set rstFile = Server.CreateObject("adodb.stream")
rstFile.Type = 1
rstFile.Mode =3
rstFile.Open
rstFile.write FormData
rstFile.position=0
rstFile.SaveToFile Getfiles,2 '生成文件
Set rstFile=Nothing

[wangwm]

恭喜，如果你再处理一下文件名的生成和后缀就更好了

[wggipkhgef]

多个文件就循环一下OK了

[wangwm]

那就试试下面这段代码，我用了一下，感觉可以用
字段FileData是OLE对象,FileExt是上传文件的后缀

<%
Dim Conn,ConnStr,Rs,Sql,MyStream
ConnStr="DBQ=" + Server.Mappath("dbase.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
Sql = "select * from FileInfo where id=1"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,3
Set MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
MyStream.Write Rs("FileData").GetChunk(rs("FileData").ActualSize-78)
MyStream.SaveToFile "D:\555." & Rs("FileExt")
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

[wangwm]

这句
MyStream.Write Rs("FileData").GetChunk(rs("FileData").ActualSize-78)
换成
MyStream.Write Rs("FileData").GetChunk(rs("FileData").ActualSize)

[lanzhiyu]

我用了怎么不能实现啊，请问数据字段怎么设计啊