[求助]关于ii-home上传时的错误!!!!
如何修改呢??在用ii-home上传文件时,出现以下错误:
错误类型：
ADODB.Stream (0x800A0C93)
在此环境中不允许操作。
/ii-home/混合上传/upload.asp, 第 30 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Ruibin; InfoPath.2; .NET CLR 2.0.50727)
网页：
POST 18173 ??? /ii-home/混合上传/upload.asp
POST Data:
错误 '80020009'
发生意外。
/iisHelp/common/500-100.asp，行 219
下面是这个两个文件的代码
index.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www. xml:lang="zh-cn" lang="zh-cn">
<head>
<title>An-Upload无组件上传类9.4.10 示例</title>
</head>
<body style="font-size:12px">
<hr />
<form name="upload" method="post" action="upload.asp" enctype="multipart/form-data">
表 单
<input type="text" name ="form1" />
<br />
文件一 <input type="file" name="file1" /><br />
文件二 <input type="file" name="file2" /><br />
<br />
<input class="iButton" type="submit" value="开始上传" />
</form>
</body>
</html>
upload.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www. xml:lang="zh-cn" lang="zh-cn">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>示例结果</title>
<style type="text/css">
TABLE {border:1px green solid;margin-top:5px;}
TD{border-bottom:1px #dddddd solid;height:20px;padding:3px 0 0 5px;}
.head{background-color:#eeeeee;}
</style>
</head>
<body style="font-size:12px">
<%
Dim Upload,path,tempCls
'===============================================================================
set Upload=server.CreateObject("Anasp.Anupload") '创建类实例
Upload.SingleSize=1024*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=1024*1024*1024 '设置最大上传限制,按字节计；默认为不限制
Upload.Exe="bmp|rar|pdf|jpg|gif" '设置合法扩展名,以|分割,忽略大小写
Upload.Charset="gb2312" '设置文本编码，默认为gb2312
Upload.openProcesser=false '禁止进度条功能，如果启用，需配合客户端程序
Upload.GetData() '获取并保存数据,必须调用本方法
'===============================================================================
set Upload=server.CreateObject("Anasp.Anupload") '创建类实例
Upload.SingleSize=1024*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=1024*1024*1024 '设置最大上传限制,按字节计；默认为不限制
Upload.Exe="bmp|rar|pdf|jpg|gif" '设置合法扩展名,以|分割,忽略大小写
Upload.Charset="gb2312" '设置文本编码，默认为gb2312
Upload.openProcesser=false '禁止进度条功能，如果启用，需配合客户端程序
Upload.GetData() '获取并保存数据,必须调用本方法
if Upload.ErrorID>0 then '判断错误号,如果myupload.Err<=0表示正常
response.write Upload.Description '如果出现错误,获取错误描述
else
response.Write "获取的表单数据为: " & Upload.forms("form1") & "<br />"
if Upload.files().count>0 then '这里判断你是否选择了文件
path=server.mappath("files") '文件保存路径(这里是files文件夹)
'保存第一个文件(以新文件名保存)
set tempCls=Upload.files("file1")
tempCls.SaveToFile path,1
response.write "文件:" & tempCls.FileName & "上传完毕,大小为" & Upload.getsize(tempCls.Size) & ";原文件名" & tempCls.LocalName & "!<br />"
'保存第二个文件(以原文件名保存)
set tempCls=Upload.files("file2")
tempCls.SaveToFile path,1
response.write "文件:" & tempCls.FileName & "上传完毕,大小为" & Upload.getsize(tempCls.Size) & ";原文件名" & tempCls.LocalName & "!<br />"
set tempCls=nothing
else
response.Write "您没有上传任何文件！"
end if
end if
set Upload=nothing '销毁类实例
%>
</body>
</html>
