欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

提示此处需要物件‘server’解决思路

更新时间: 2014-01-05 01:52:49 责任编辑: Author_N1

 

提示此处需要物件‘server’
<script language="vbscript" type="text/vbscript">
  document.write("正在重复创建、写入和删除文本文件50次...")

Dim thetime3,tempfile,iserr,t1,FsoObj,tempfileOBJ,t2,i
 
set FsoObj=Server.CreateObject("Scripting.FileSystemObject")

iserr=False
t1=timer
tempfile=server.MapPath("./") & "\aspchecktest.txt"
For i=1 To 50
Err.Clear

Set tempfileOBJ = FsoObj.CreateTextFile(tempfile,true)
If Err <> 0 Then
document.write("创建文件错误!")
iserr=True
Err.Clear
Exit For
End If
tempfileOBJ.WriteLine "Only for test. Ajiang ASPcheck"
If Err <> 0 Then
document.write("写入文件错误!")
iserr=True
Err.Clear
Exit For
End If
tempfileOBJ.close
Set tempfileOBJ = FsoObj.GetFile(tempfile)
tempfileOBJ.Delete 
If Err <> 0 Then
document.write("删除文件错误!")
iserr=True
Err.Clear
Exit For
end if
Set tempfileOBJ=Nothing
Next
t2=timer
If Not iserr Then
thetime3=cstr(int(( (t2-t1)*10000 )+0.5)/10)
document.write("...已完成!本服务器执行此操作共耗时 <font color=red>" & thetime3 & " 毫秒")
End If
  </script>
提示如图:
根据上面提示我找到是set FsoObj=Server.CreateObject("Scripting.FileSystemObject")这句话出错,提示说此处需要物件‘server’,可我这儿明明有啊,晕了,不知道是什么原因,请高手们帮忙了啊,先谢谢了!

--参考方法--
这是后台创建脚本的方法.

 前台用

 set FsoObj=CreateObject("Scripting.FileSystemObject") 

不过一般是没有权限的.



--参考方法--
var FsoObj=new ActiveXObject("Scripting.FileSystemObject");
除非在hta中运行
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:49
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2449/
本文WWW.DOC100.NET DOC100.NET版权所有。