vbs 错误捕获器，用于捕获内部错误并进行手工处理
网络编程
但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改
使用完毕要记得关闭错误捕获器on error goto 0
语法如下:
=======================================================
on error resume next '打开错误捕获，以下错误语句将被跳过，
同时内部对象err将纪录最后一个触发的错误信息
on error goto 0 '关闭错误捕获
=======================================================
关于err对象:
if Err.number<>0 then
response.write Err.description
Err.clear '错误被手工处理后要记得清除err对象的内容
response.end
end if
使用完毕要记得关闭错误捕获器on error goto 0
语法如下:
=======================================================
on error resume next '打开错误捕获，以下错误语句将被跳过，
同时内部对象err将纪录最后一个触发的错误信息
on error goto 0 '关闭错误捕获
=======================================================
关于err对象:
if Err.number<>0 then
response.write Err.description
Err.clear '错误被手工处理后要记得清除err对象的内容
response.end
end if
查看SQL状态的vbs
'****************************'*byr05e'*检验SQLSERVER是否在这机器上工作'****************************strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!
vbs 字符统计功能模块
字符统计功能模块SubTongJi()SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.OpenTextFile("ok.txt",1)strText=objFile.ReadAllAll=Len(strText)S="`~!@#$%^&*()-_=+|[{]};:',./?
重新安装ie的一个vbs
'run_ie_reinstall.vbs-RunstheInternetExplorerSetup'?DougKnox-4/10/2002'Downloadedfromwww.dougknox.comX=MsgBox("DoyouwanttoreinstallInternetExplorer?",vbYesNo,"Prompt!")Y=MsgBox("DoyouwanttoreinstallOu
编辑：一起学习网
标签：错误,对象,功能模块,字符,在这