Microsoft VBScript 运行时错误 (0x800A01A8) 本人菜鸟

~ 分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

Microsoft VBScript 运行时错误 (0x800A01A8)

缺少对象: 'fc'

附近代码如下：

set fs=server.createobject("scripting.filesystemobject")

set f=fs.GetFolder(hx66)

set fc=f.files

end if

%>

<tr class=Hxcmsss><td colspan="5"><font color="#FFA07A"><%=name%></font> 上传文件列表</td></tr>

<form method="post" name=myform>

<tr>

<td width=5></td>

<td align=center>文件名</td>

<td align=center>文件大小</td>

<td align=center>文件类型</td>

<td align=center>创建时间</td></tr>

<%

pagesetup=15 '设定每页的显示数量

If Count/pagesetup > (Count\pagesetup) then

TotalPage=(Count\pagesetup)+1

else TotalPage=(Count\pagesetup)

End If

if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))

if PageCount <=0 then PageCount = 1

if PageCount > TotalPage then PageCount = TotalPage

%>

<%

pagesize=15

page=request.querystring("page")

if page="" or not isnumeric(page) then

page=1

else

page=int(page)

end if

filenum=fc.count （这行出错）

pagenum=int(filenum/pagesize)

if filenum mod pagesize>0 then

pagenum=pagenum+1

end if

if page> pagenum then

page=1

end if

i=0

for each f1 in fc

if instr(f1.name,genre) > 0 then

i=i+1

if i>(page-1)*pagesize and i<=page*pagesize then

%>

解析:

第一个

set f=fs.GetFolder(hx66)

不能用相对路径,要用绝对路径,比如有一个文件夹aa,那么要这样写

set f=fs.GetFolder(server.mappath("aa"))

第二个

filenum=fc.count （这行出错）

这个并没有count方法,如果要得到这个文件夹里有多少个文件,那么要用循环来写

For Each theFile In fc

FileCount=FileCount+1

TotleSize=TotleSize+theFile.Size

next

---

渝中区19365856228： 电脑总是出现Microsoft VBScript运行时错误,求解决办法 - ？
汉锦康迈： 系统运行故障.有备份的话就进行一下系统还原就行了.要不就找到这份文件删掉它(此文件在系统安装目录,不保证一定能删掉,删之前最好备份一下C盘文件,怕你删后开不了机).有条件的话就重装一下系统.要不在重装前下载个360系统急救箱,修复一下系统试试!!!!!!!!!!!

渝中区19365856228： 电脑开机Microsoft VBScript运行时错误,求解决办法,哪位电脑高手来帮帮忙.! - ？
汉锦康迈： 开始-运行-msconfig-启动-把里面的勾都去掉,重启ok

渝中区19365856228： WIN7开机出现Microsoft VBScript 编译器错误 - ？
汉锦康迈： 1、到“我的电脑” -> “工具” -> “文件夹选项” -> “查看”,检查一下是否已经勾选:“在登陆时还原上一个文件夹窗口” 2、当然,也不排除病毒的可能.如果msonfig里面没有的话,可以这样看看:(自动打开＂C:\Windows\System32＂...

渝中区19365856228： 我电脑开机时候为什么提示“Microsoft VBScript运行错误”,800A000D,类型不匹配:'MZ' - ？
汉锦康迈： 用端星卡卡去查查看有没有可疑的加载项,删除了,还有杀下木马.

渝中区19365856228： 文件夹打不开,老是出现Microsoft VBScript 编译器错误 - ？
汉锦康迈： 第一步:扫描恶意插件(如果觉得系统里面没有恶意插件话,可以跳过) 用新版金山网盾【 http://cu003.www.duba.net/duba/tools/dubatools/kws/kwssetup.exe 直接点击或复制到工具里下载】安装后运行-直接点一键修复-扫描后-点立即处理,桌...

渝中区19365856228： 求解MicrosoftVBScript运行时错误我在访问中国易富 ？
汉锦康迈： 这种情况可能是您有雅虎助手之类屏蔽了网页ActiveX控件,只要去除屏蔽即可.另外,使用傲游、TT等浏览器,如果使用了“广告猎手”的ActiveX控件屏蔽,也会造成这样的情况. 另外一种就是该站点account_ p网页出现故障,不过,一般来说是使用者自己浏览器问题. -,'''╭⌒╮⌒╮. ╱????''.''. 爱问才知道,不问不知道! ︱田︱田田| '',,.爱问就会红,敢答才会赢! ╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬

渝中区19365856228： 我从网站后台上传图片出现“Microsoft VBScript 运行时错误 错误”这是怎么回事,请高手帮忙. - ？
汉锦康迈： 如果 VBScript 脚本执行系统无法实施的操作,则会产生 VBScript 运行时错误 详见asp中常见的调试错误

渝中区19365856228： asp程序上传图片报错,Microsoft VBScript 运行时错误 '800a0005' - ？
汉锦康迈： Instr(intTemp,strItem,＂filename=＂＂＂) 用法出错了吧,instr 的作用就是返回一个字符在字符串中第一次出现的位置,一...

渝中区19365856228： Microsoft VBScript 编译器错误 '800a0409' 未结束的字符串常量 \include\config.asp, line 17 是什么原因 - ？
汉锦康迈： 原因就在错误提示里,\include\config.asp的第17行有语法错误,原因就是＂未结束的字符串常量＂,换个说法就是双引号不匹配.

渝中区19365856228： win2003运行asp提示 Microsoft VBScript 运行时错误 - ？
汉锦康迈： 发生此错误的原因通常是,COM 对象依赖的动态链接库 (DLL) 出现以下情形之一: 1.在系统中找不到2.不在系统路径中3.系统由于安全设置而无法访问 你只需要在服务器上将所依赖的这个dll重新注册一下就行了,注册方法: 1.先把PPMSO组件的dll复制到c:/windows/system32目录下2.在命令行中执行如下脚本:【regsvr32 X.dll】,其中X.dll为该dll的文件名. 如果注册不成功,说明是由于安全设置被系统拒绝,你可以直接给我发消息.希望对你有所帮助!