图片上传问题

[hightwise]

'上传图片代码
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

strFileName = Request.Form("tp")
if strFileName<>"" then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 objStream.Open
objStream.LoadFromFile strFileName
lj="picdb/"&GetFileName(strFileName)
objStream.SaveToFile Server.MapPath(lj),2
objStream.Close
end if

’出错信息：
ADODB.Stream 错误 '800a0bba'

文件无法被打开。

/musheng/admin/p_add_b.asp，行40

在本地是可以执行的，上传到服务器后就出错了，请问这是怎么回事啊。

[mymyal123]

40行是什么

[hightwise]

objStream.LoadFromFile strFileName

[hightwise]

help!

[hightwise]

那该怎么写呢。

[白夜花寒]

你下载个lyfupload或者是无惧上传什么的,还有这个网址你也可以看看的

http://blog.csdn.net/liuxiaoyi666/archive/2004/10/15/137477.aspx

这个跟你讲解的话,太麻烦了,不想说了

[白夜花寒]

.....当然了,你在想什么,loadfromfile是你的机器上的,怎么能直接给服务器的呢??这是本地运行时用的,上传自然是不能这么写的了