当前位置: 代码迷 >> vbScript >> 提示此处需要物件‘server’解决思路
  详细解决方案

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

热度:989   发布时间:2013-02-26 00:00:00.0
提示此处需要物件‘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中运行
  相关解决方案