解决方法:
1.首先,是不是从来都是这种情况,如果只是偶尔的,一会儿是,一会儿不是,问题就不好办。如果是本身就有问题,那就是“scrrun.dll”文件未注册。使用regsvr32 scrrun.dll就可以
2.VB里用set fso=CreateObject("Scripting.FileSystemObject")
asp里边用 set fso=Server.CreateObject("Scripting.FileSystemObject")
3.看一下你的浏览器,是不是禁用了ActiveX
4.服务器不支持fso
5.禁fso,很多是改的Progid,出这样的错误:
服务器对象 错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/asp/test.asp, 行3
---------------------
你可以猜测这个改变的数值来破解:
Set Fs=Server.CreateObject("Scripting.FileSystemObject8")----这个8就是,你可以慢慢的测试了
6.
应该是FSO给关闭了,但运行 regsvr32 scrrun.dll 然后重启一下 IIS 的服务
都不行,系统 是win2003的,重装系统后就出现这个问题了
----------------------------------------------------------------------
创建fso对象,语法要规范:
set fso=Server.CreateObject("Scripting.FileSystemObject")
如果仍然不行,用阿江探针查过服务器是支持FSO。
程序如下:
<%@ LANGUAGE = VBScript.Encode %>
<%set conn=server.createobject("adodb.connection")
conn.open "filedsn=d:\test\file.dsn;dbq=d:\test\test.mdb;" '注意改下路径
set rs=server.createobject("adodb.recordset")
sql="select * from test"
rs.open sql,conn,1,1
%><html>
<head>
<meta content="Microsoft FrontPage 5.0">
<meta content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
<script Language=VBScript>
function print_onclick() //打印函数
dim label
label=document.printinfo.label.value //获得HTML页面的数据
set objfs=CreateObject("Scripting.FileSystemObject") //创建FileSystem组件对象的实例
set objprinter=objfs.CreateTextFile ("LPT1:",true) //建立与打印机的连接
objprinter.Writeline("__________________________________") //输出打印的内容
objprinter.Writeline("| |")
objprinter.Writeline("| 您打印的数据是:"&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_________________________________|")
objprinter.close() //断开与打印机的连接
set objprinter=nothing
set objfs=nothing // 关闭FileSystem组件对象
end function
</script>
</head>
<body>
<FORM >
<INPUT type="button" value="打印>>" > //调用打印函数
<INPUT type=hidden value=<%=rs("name")%>> //保存服务器端传来的数据
<% rs.close
set rs=nothing
conn.close
set conn=nothing
%></form>
</body></html>
7.我的机器用了上面的方法没有解决问题,用下面的方法解决了问题,大家不妨可以试试:打开Internet Explorer “工具”菜单栏中的“选项”一栏,单击“安全”栏中的“自定义级别”选项卡,将第三项“对没有标记为安全的activex控件进行初始化和脚本运行”设置成“启用”即可。
分享到:
相关推荐
ActiveX 部件不能创建对象 Scripting.Dictionary解决办法
今天遇到个问题,一个ASP网站生成静态页面时报错: Microsoft VBScript 运行时错误 错误 ‘800a01ad’ ActiveX 部件不能创建对象: ‘Scripting.FileSystemObject’ 其实这个问题比较常见,报错原因是服务器不支持FSO...
取目录尺寸,源码通过创建Scripting.FileSystemObject对象,用对象型方法GetFolder读Size属性来实现了取目录尺寸。
取目录尺寸,源码通过创建Scripting.FileSystemObject对象,用对象型方法GetFolder读Size属性来实现了取目录尺寸。@易语言学习论坛。
FileSystemObject对象提供对计算机文件系统的访问
Scripting.FileSystemObject对象的详细技巧指南[归类].pdf
○组件:Scripting.FileSystemObject(简称:FSO) ○组件:Adodb.Stream ○组件:Persits.Jpeg ○组件:JMail.Message ○浏览器:IE5.5以上版本,开启Cookies 推荐环境 ○Internet信息服务6.0 ○Scripting....
取目录尺寸,源码通过创建Scripting.FileSystemObject对象,用对象型方法GetFolder读Size属性来实现了取目录尺寸。
CreateObject("Scripting.FileSystemObject").GetDrive(盘符 & ":").DriveLetter & " " & 类型 & " " & _ CreateObject("Scripting.FileSystemObject").GetDrive(盘符 & ":").SerialNumber & " " & _ ...
DOMscripting.rar DOMscripting.rar DOMscripting.rarDOMscripting.rar DOMscripting.rar
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO...
Scripting.Dictionary VB Scripting.Dictionary VB
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO...
2、组 件:Scripting.FileSystemObject (简称:FSO,通常都支持) 3、组 件:Adodb.Stream (通常都支持) 4、组 件:Microsoft.Xml (通常都支持) 5、组 件:Scripting.Dictionary (通常都支持) 6、浏览器:IE...
IronPython.dll和Microsoft.Scripting.dll,用于C#动态调用 IronPython
“虚拟FileSystemObject”是支持“Scripting.FileSystemObject”及其File对象的ActiveXObject类实现。 有了这个扩展,你可以使用一些只为Internet Explorer设计的Web应用程序,FileSystemObject一次只能用于Intra-...
vbscript的Scripting.Dictionary创建了类似于Key索引对应Value值的字典对象,通过Key直接索引到指定的Value。 VBScript中Scripting.Dictionary使用示例如下: 代码如下: Dim objDict Set objDict = WSH.CreateObject...
Game.Scripting.Mastery 游戏脚本高级编程英文版,中文版翻译烂了点