已有天涯账号？
这里是所提的问题，您需要登录才能参与回答。
"天涯问答"是天涯社区旗下的问题分享平台。在这里您可以提问，回答感兴趣的问题，分享知识和经历，无论您在何时何地上线都可以访问，此平台完全免费，而且注册非常简单。
Microsoft VBScript 运行时错误 错误“39;800a004c”是什么原因？
Microsoft VBScript 运行时错误 错误“39;800a004c”是什么原因？
09-10-19 & 发布
Microsoft VBscript运行时错误'39.800a004c'的解决方案在使用vbscript进行asp开发时,一些朋友会碰到以下类似的错误：Microsoft VBscript 运行时错误 ''39.800a004c''类型不匹配: '*******'/solweb/sdbottm_right.asp, line 80错误原因：该错误是因为在运行iis服务的windows 2003 server上安装了Internet Explorer 6 Service Pack 1 (KB832894)安全更新造成的。解决方案：要纠正该问题，请下载并安装Q831167.exe（，可以在Windows Server 2003机器上阅读微软知识库831167
了解一些相关信息。
请登录后再发表评论!Microsoft VBScript 运行时错误 (0x800A01B6)_百度知道
Microsoft VBScript 运行时错误 (0x800A01B6)
Microsoft VBScript 运行时错误 (0x800A01B6)对象不支持此属性或方法: 'objFile'/manage123/upsucc.asp, 第 26 行我的upsucc.asp第 26 行是这样的：for each formName in upload.objFile我用的upload_5xsoft.inc是从网上找的“任翔专用上传程序”，能给解决了把分都给你都无所谓啊可以加QQ详谈：小女子先谢过各位大虾了！
提问者采纳
不会吧,我的可以啊.&%OPTION EXPLICIT%&&%Server.ScriptTimeOut=5000%&&!--#include FILE=&upload_5xsoft.inc&--&&html&&head&&title&文件上传&/title&&/head&&body&&br&化境文件上传!&hr size=1 noshadow width=300 align=left&&br&&br&&%dim upload,file,formName,formPath,iCountset upload=new upload_5xsoft ''建立上传对象response.write upload.Version&&&br&&br&&
''显示上传类的版本if upload.form(&filepath&)=&& then
''得到上传目录 HtmEnd &请输入要上传至的目录!& set upload=nothing response.endelse formPath=upload.form(&filepath&) ''在目录后加(/) if right(formPath,1)&&&/& then formPath=formPath&&/& end ifiCount=0for each formName in upload.objForm ''列出所有form数据 response.write formName&&=&&upload.form(formName)&&&br&&nextresponse.write &&br&&for each formName in upload.objFile ''列出所有上传了的文件 set file=upload.file(formName)
''生成一个文件对象 if file.FileSize&0 then
''如果 FileSize & 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName)
''保存文件
response.write file.FilePath&file.FileName&& (&&file.FileSize&&) =& &&formPath&File.FileName&& 成功!&br&&
iCount=iCount+1 end if set file=nothingnextset upload=nothing
''删除此对象Htmend iCount&& 个文件上传结束!&sub HtmEnd(Msg) set upload=nothing response.write &&br&&&Msg&& [&a href=&&javascript:history.back();&&&返回&/a&]&/body&&/html&& response.endend sub%&&/body&&/html&你替换你的upfile.ASP试试.
其他类似问题
vbscript的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Microsoft VBScript 运行时错误 (0x800A01A8) 急~_百度知道
Microsoft VBScript 运行时错误 (0x800A01A8) 急~
提示:Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: 'conn'/UpFile.asp, 第 9 行各位大哥帮帮小弟，小弟很菜的,能详细的解答一下吗，谢谢！&%if session(&admin&)=&& thenconn.closeset conn = nothingresponse.Redirect &login.asp&response.Endelseif request.cookies(&timesboard&)(&admin&)=&& thenconn.closeset conn = nothingresponse.Redirect &login.asp&response.Endend ifend ifformName=request(&formName&)EditName=request(&EditName&)%&&html&&head&&title&系统上传模块&/title&&meta http-equiv=&Content-Type& content=&text/ charset=gb2312&&&script language=&javascript&&&!--function mysub(){
var strFileName=form1.file1.
if (strFileName==&&)
alert(&请选择要上传的文件&);
} esave.style.visibility=&visible&;}--&&/script&&/head&&body bgcolor=&#FFFFFF& text=&#000000&&&form name=&form1& method=&post& action=&upload.asp& enctype=&multipart/form-data&
onSubmit=&return mysub()&&
&div id=&esave& style=&position: top:18 left:40 z-index:10; visibility:hidden&&
&TABLE WIDTH=340 BORDER=0 CELLSPACING=0 CELLPADDING=0& &TR&&td width=20%&&/td& &TD bgcolor=#104A7B width=&60%&&
&TABLE WIDTH=100% height=120 BORDER=0 CELLSPACING=1 CELLPADDING=0& &TR&
&td bgcolor=#eeeeee align=center&&font color=red&正在上传文件，请稍候...&/font&&/td& &/tr& &/table& &/td&&td width=20%&&/td& &/tr&
&/table&
&/div&
&table width=&400& border=&0& cellspacing=&1& cellpadding=&0& align=&center& bgcolor=&#6699ff&&
&td height=&22& align=&left& valign=&middle& width=&400&&&&strong&系统上传模块&/strong&
&input type=&hidden& name=&EditName& value=&&%=EditName%&&&
&input type=&hidden& name=&FormName& value=&&%=formName%&&&
&input type=&hidden& name=&act& value=&uploadfile&&
&tr align=&center& valign=&middle&&
&td align=&left& id=&upid& height=&80& width=&400& bgcolor=&#FFFFFF&& 选择文件:
&input type=&file& name=&file1& style=&width:300'& class=&tx1& value=&&&
&tr align=&center& valign=&middle&&
&td height=&24& width=&400&&
&input type=&submit& name=&Submit& value=&· 开始上传 ·& class=&button&&
&/table&&/form&&/body&&/html&
试了&!--#include file=&conn.asp& --&但打开页面却被直接转到后面登陆页面,晕还有其它简单点的办法吗?谢谢
提问者采纳
如果你发上来的是全部的代码，那你就是缺少了连接文件。你的文件一开始就要判断这个用户的真实身份，如果是假就要关闭数据库。但是你没有调用打开数据库连接的文件，也就是说你在关闭数据库之前没有打开数据库。你在最开始加上那个最常用的include就可以了。不行，你再来问。
提问者评价
其他类似问题
vbscript的相关知识
按默认排序
其他2条回答
是不是应该先从登陆页面打开转到当前页面啊
如果你直接打开此页面肯定session（“admin”）是空的 那就执行判断语句里的跳转语句直接到了登陆页面了 不是吗
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁谁来帮我看看这个该怎么修改啊--Microsoft VBScript 运行时错误 (0_asp吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：7,687贴子：
谁来帮我看看这个该怎么修改啊--Microsoft VBScript 运行时错误 (0收藏
&%@LANGUAGE="VBSCRIPT"%&&!--#include file="Connections/exam_conn.asp"--&&html&&head&&title&考试界面&/title&&meta http-equiv="Content-Type" content="text/ charset=gb2312"&&/head&&body bgcolor="#99CCFF"&&%user_name=session("user_name")singlenumber=10singleper=1endtime=now()score=0selectstr1=request.form("hidQuestID1")len1=len(selectstr1)str1=left(selectstr1,len1-1)&&&&&&&
《《====就是这里dim id1id1=split(str1,",")for i=1 to 10 result=request.form("no"&id1(i-1)) if&& not isempty(result) then&&&&&& sql="select * from tiku where id="& clng(id1(i-1))&&&&&& set rs=server.createobject("adodb.recordset")&&&&&& rs.open sql,conn,3,2&&&&&&&&&&&&& if result=rs("rightanswer") then&&&&&&&&&& score=score+cint(1)&&&&&&&& end if&&&&&&&& rs.close&&&&&&&& set rs=nothing && else&& end ifnext sql="select * from score"set rs=server.createobject("adodb.recordset")rs.open sql,conn,3,2rs.addnewrs("user_name")=user_namers("endtime")=endtimers("score")=scorers.updaters.closeset rs=nothingcall endConnection()total=10*1response.write("&center&"&user_name&"你好！你的考试成绩为："&score&"分，总分为"&total&"分&/center&&br&")%&&p align=center&&font color=red size=+0 face=楷体&返回登录界面&/font&&/p&&p align=center&&font color=red size=+0 face=楷体&返回考试界面继续考试&/font&&/p&&/body&&/html&
结果错误是：Microsoft VBScript 运行时错误 (0x800A0005)无效的过程调用或参数: 'left'
上面的是显示考试成绩页面
下面是考试网页生成页面，能运行代码如下&%@LANGUAGE="VBSCRIPT"%&&% option explicit %&&!--#include file="Connections/exam_conn.asp"--&&!--#include file="conn.inc"--&&html&&head&&title&在线考试界面&/title&&meta http-equiv="Content-Type" content="text/ charset=gb2312"&&/head&&script language="javascript"&function attention(){&& alert('时间到了,请交卷!');&& document.getElementById('submit').click();}setTimeout("attention()",45*60*1000)&/script&&body bgcolor="#99CCFF"&&p align="center"&&b&&font face="宋体" size="5" color="#FF0000"&机动车理论考试&/font&&/b&&/p&&%if request.form("submit1")="开始考试"&& then%&&form name="testform" method="post" action="result.asp"&&& &table border="0" cellspacing="0"&& bordercolor="#111111" width="100%" &&&&& &tr&&&&&&& &td width="100%" height="25"&&b&&font size="3" color="#000080"&一、单项选择题(每题1分,共10题)&/font&&/b&&/td&&&&& &/tr&&& &/table&&%&& dim i,sql,rs,count,temp,strid1&& strid1=""&&&& randomize for i=1 to 10 'for i=1 to CInt(CStr(Request.Cookies("singlenumber")))&&&& set rs=server.createobject("adodb.recordset")&&&&&& 'sql="select * from tiku where&& mark=0 "&&&& sql="select * from tiku where mark=0 "&&&& rs.open sql,conn,3,2&&&& count=rs.recordcount&&&& temp=fix(count*rnd(10))&&&& rs.move temp&&&& rs("mark")=1&&&& strid1=strid1 & rs("ID") & ","%&&& &table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%"&& cellpadding="0"&&&&& &tr&&&&&&& &td width="100%" bgcolor="#EFEFEF" height="20"&&&&b&&%=i%&、&%=rs("timu")%&&/b&&/td&&&&& &/tr&&%&&&& if rs("answerA")&&"" then%&&&&& &tr&&&&&&& &td width="100%"&&&&&&input type="radio" name="NO&%=rs("ID")%&" value="A"&A、&%=rs("answerA")%&&/td&&&&& &/tr&&%&&&& end if&&&& if rs("answerB")&&"" then%&&&&& &tr&&&&&&& &td width="100%"&&&&&&input type="radio" name="NO&%=rs("ID")%&" value="B"&B、&%=rs("answerB")%&&/td&
&&&& &/tr&&%&&&& end if&&&& if rs("answerC")&&"" then%&&&&& &tr&&&&&&& &td width="100%"&&&&&&input type="radio" name="NO&%=rs("ID")%&" value="C"&C、&%=rs("answerC")%&&/td&&&&& &/tr&&%&&&& end if&&&& if rs("answerD")&&"" then%&&&&& &tr&&&&&&& &td width="100%"&&&&&&input type="radio" name="NO&%=rs("ID")%&" value="D"&D、&%=rs("answerD")%&&/td&&&&& &/tr&&%&&&& end if%&&&&&& &/table&
&% &&&& rs.update&& next&& 'rs.close&& response.write("&input type='hidden' name='hidQuestID1' value=" & strID1 & "&") && set rs=nothing&& set rs=server.createobject("adodb.recordset")&& sql="select * from tiku where mark=1 "&& rs.open sql,conn,3,2&& rs.movefirst&& do while&& not rs.eof&&&&&& rs("mark")=0&&&& rs.update&&&& rs.movenext&& loop&& rs.close&& set rs=nothing&& call endConnection()'response.write(strid1)%& &p align=center&&input type="submit" value="交卷" name="submit" &&/p&&/form&&%else %&&form method="POST" action="paper.asp"&& name="form"&&p align=center&&input type="submit" value="开始考试" id='submit' name="submit1" &&/p&&/form&&%&& response.write "&center&请选择开始考试！&/center&"end if%&&/body&&/html&
哪位大侠帮我看看到底该怎么改，感激涕零
hidQuestID1值为空时，len统计得到的结果必然是0，那你len1-1得到的结果就是个负数，自然要出错。所以你要检查一下 hidQuestID1 值是否为空。
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
为兴趣而生，贴吧更懂你。或Microsoft VBScript 运行时错误 错误 &800a005e& 无效使用 Null: &cdbl& /xuesheng/kao/bao/bao.asp，行 21
Microsoft VBScript 运行时错误 错误 &800a005e& 无效使用 Null: &cdbl& /xuesheng/kao/bao/bao.asp，行 21
这个该怎么解决？
不区分大小写匿名
程序编制中的错误。有些程序错误是出在控制中，由于不是命令错误，编译时不会出现错误提示，可以完成编译，但运行时就会出现你见到的错误提示了。
vbs脚本运行错误。
&
看是脚本环境问题，还是脚本代码问题。一般可以先跳过再来检查。
等待您来回答
微软专区领域专家