高手帮忙，搞不懂的问题！（在网页中使用ActiveX控件，并用VBScript读取本机文件）

这是你的浏览器的安全级别设置的比较高，或是禁止了ActiveX的运行，所以才有这样的错误产生，解决的办法是将浏览器的安全级别降低，工具->Internet 选项->安全->自定义。
    或者你不用VBS来解决，你可以用ASP来试试，比如下面这段是检查某个存不存在的。
<html><body>
<%
  Dim filename, objFSO    '声明一个名称为 objFSO 的变量以存放对象实例  filename = "D:\test.txt"  Set objFSO = CreateObject("Scripting.FileSystemObject")
   If objFSO.FileExists(filename) Then
     Response.Write "文件 "&filename&" 是存在的！"
   Else
     Response.Write "Sorry! 文件 "&filename&" 不存在！"
   End If
  Set objFSO = Nothing      '释放 FileSystemObject 对象实例内存空间
%>
</body></html>

解决方案 »

  1.   

    那有没有办法将下面这段代码封装到一个函数里，然后供页面定时调用呢？
    下面的代码在页面加载时执行一次肯定可以，但一做到函数里就不行了，有没有解决办法？盼高手指点！！！
    <%
      Dim filename, objFSO    '声明一个名称为 objFSO 的变量以存放对象实例  filename = "D:\test.txt"  Set objFSO = CreateObject("Scripting.FileSystemObject")
       If objFSO.FileExists(filename) Then
         Response.Write "文件 "&filename&" 是存在的！"
       Else
         Response.Write "Sorry! 文件 "&filename&" 不存在！"
       End If
      Set objFSO = Nothing      '释放 FileSystemObject 对象实例内存空间
    %>