错误类型： Microsoft VBScript 运行时错误 (0x800A01A8) 缺少对象，很急，麻烦帮忙解决一下，谢谢！ 20
错误类型：MicrosoftVBScript运行时错误(0x800A01A8)缺少对象:'[undefined]'/dhc1/imgSave1.asp,第14行具体内容：...
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: '[undefined]'
/dhc1/imgSave1.asp, 第 14 行
具体内容：
<!--#include file="upload.asp"-->
<HTML><HEAD><TITLE>图片上传系统</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<body bgcolor=menu style="font-size:9pt">
<%
set upload=new upload_5xSoft ''建立上传对象
formPath="uploadfile/"'上传pic目录
nt=now()
nt=replace(nt,":","")
nt=replace(nt," ","")
nt=replace(nt,"-","")
nt=replace(nt,"/","")
set file=upload.file("imgsrc")'生成一个文件对象----这是有问题的第14行
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
if file.FileSize>250000 then
response.write"<div align=center>请勿上传文件大小超过250K的图片 <a href='imgupload2.htm'>返回</a></div>"
response.end
else
ext=right(file.FileName,4)
if instr(".jpg.gif.bmp",LCase(ext))>0 then
filename=nt & ext
file.SaveAs Server.mappath(formPath&filename) ''保存文件
src="uploadfile/"&filename
else
response.write"<div align=center>请上传后缀名为jpg,gif,bmp的图片文件 <a href='imgupload2.htm'>返回</a></div>"
response.end
end if
end if
%>
<script language=javascript>
//var src='<%=src%>';
var fn="<%=filename%>";
//var htmlcodes;
// htmlcodes = "<img name='"+fn+"' src="+src+" alt='<%=upload.form("alt")%>' align='<%=upload.form("align")%>' border='<%=upload.form("border")%>' hspace='<%=upload.form("hspace")%>' vspace='<%=upload.form("vspace")%>'>";
// opener.top.glmain.insertHtml(htmlcodes)
// opener.pasteHTML(htmlcodes);
//opener.top.glmain.location=opener.top.glmain.location
opener.form1.j.value=fn;
window.close();
</script>
<%
else
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("文件没有找到");
history.back(1);
//-->
</SCRIPT>
<%
End if
%> 展开
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: '[undefined]'
/dhc1/imgSave1.asp, 第 14 行
具体内容：
<!--#include file="upload.asp"-->
<HTML><HEAD><TITLE>图片上传系统</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<body bgcolor=menu style="font-size:9pt">
<%
set upload=new upload_5xSoft ''建立上传对象
formPath="uploadfile/"'上传pic目录
nt=now()
nt=replace(nt,":","")
nt=replace(nt," ","")
nt=replace(nt,"-","")
nt=replace(nt,"/","")
set file=upload.file("imgsrc")'生成一个文件对象----这是有问题的第14行
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
if file.FileSize>250000 then
response.write"<div align=center>请勿上传文件大小超过250K的图片 <a href='imgupload2.htm'>返回</a></div>"
response.end
else
ext=right(file.FileName,4)
if instr(".jpg.gif.bmp",LCase(ext))>0 then
filename=nt & ext
file.SaveAs Server.mappath(formPath&filename) ''保存文件
src="uploadfile/"&filename
else
response.write"<div align=center>请上传后缀名为jpg,gif,bmp的图片文件 <a href='imgupload2.htm'>返回</a></div>"
response.end
end if
end if
%>
<script language=javascript>
//var src='<%=src%>';
var fn="<%=filename%>";
//var htmlcodes;
// htmlcodes = "<img name='"+fn+"' src="+src+" alt='<%=upload.form("alt")%>' align='<%=upload.form("align")%>' border='<%=upload.form("border")%>' hspace='<%=upload.form("hspace")%>' vspace='<%=upload.form("vspace")%>'>";
// opener.top.glmain.insertHtml(htmlcodes)
// opener.pasteHTML(htmlcodes);
//opener.top.glmain.location=opener.top.glmain.location
opener.form1.j.value=fn;
window.close();
</script>
<%
else
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("文件没有找到");
history.back(1);
//-->
</SCRIPT>
<%
End if
%> 展开
1个回答
展开全部
从出错的这行来看，set file=upload.file("imgsrc")'，
<!--#include file="upload.asp"-->
这一句里面的upload.asp文件，可能必须引入，可能里面有upload相关的代码
#include file="upload.asp"
<!--#include file="upload.asp"-->
这一句里面的upload.asp文件，可能必须引入，可能里面有upload相关的代码
#include file="upload.asp"
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
