UC知道ADODB.STREAM文件无法被打开
来源：百度知道 编辑：UC知道 时间：2024/07/02 11:36:12
ADODB.Stream '800a0bba'
文件无法被打开。
\wwwroot\image.asp, line 79
本地测试,可以上传文件,服务器测试,就出现如上错误
附代码:image.asp(解决再加200)
-------------------------------------------------------------
<%
if request("do")="upimg" then
num_all=request("num_all")
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("upfilename")
If strFileName<>"" Then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
set hh=server.createobject("scripting.filesystemobject")
filetype=hh.GetExtensionName(strFileName) '获取后缀名
filebase=hh.getbasename(strFileName)
文件无法被打开。
\wwwroot\image.asp, line 79
本地测试,可以上传文件,服务器测试,就出现如上错误
附代码:image.asp(解决再加200)
-------------------------------------------------------------
<%
if request("do")="upimg" then
num_all=request("num_all")
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("upfilename")
If strFileName<>"" Then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
set hh=server.createobject("scripting.filesystemobject")
filetype=hh.GetExtensionName(strFileName) '获取后缀名
filebase=hh.getbasename(strFileName)
这个错误可能是3中原因造成的，
第一种，你的文件的路径的问题，你用了Server.MapPath，应该不是这个问题。
第二种，服务器不支持adodb.Stream
第三种，set hh=server.createobject("scripting.filesystemobject") 这句中你居然还用了FSO，所以也可能是你服务器不支持FSO，导致你adodb.Stream引用的对象错误。
初看没有问题。
可是你收集变量的方法不太好，要统一，不要混用。
strFileName = Request.Form("upfilename")
改成
strFileName = Request("upfilename")
你服务器没有开stream的权限
请查看服务器是否支持adodb.Stream