在ASP页里面注册DLL的VBScript CLASS
敬业的IT人
互联网
佚名
2008-4-14 12:25:44
-----------------------------------------------ROOT1---------------------------------------
*******************************************************************************************
*使用本CLASS可以管理并在ASP页里面注册你的DLL
*本CLASS在WIN 2K上测试通过
*注:使用本CLASS需要先建立一个xml(标准化越来越近了)文件。文件如下.打开记事本将如下3行存为*.xml(标准化越来越近了)文件
*
* <?xml(标准化越来越近了) version="1.0" encoding="gb2312" standalone="yes"?>
* <Dll列表>
* </Dll列表>
*
*------------------------------------------------------------------------------------------
*范例:
* dim objRegsvr32
* set objRegsvr32 = new Regsvr32
* with objRegsvr32
* if .Loadxml(标准化越来越近了)("../MyDll.xml(标准化越来越近了)") then
* call Response.Write("xml(标准化越来越近了)文件加载错误")
* set objRegsvr32 = nothing
* Response.End
* end if
* select case .AddNode("F:\web\cw31072\dll\test\MyClass.dll" , true) '添加新条目并注册DLL
* case 1
* call Response.Write("条目已经添加进xml(标准化越来越近了)文件!并成功注册DLL啦!")
* case 0
* call Response.Write("条目已经添加进xml(标准化越来越近了)文件!但注册DLL时失败!")
* case -1
* call Response.Write("xml(标准化越来越近了)文件里已经有该条目!该DLL也已经注册的了!")
* end select
* ..........................
* end with
*
* '本CLASS非常简单,里面还有些方法,我就不举例了,看看就知道了。日后你可以打开
* '该xml(标准化越来越近了)文件看你曾经注册过和待注册的DLL列表。
* 'xml(标准化越来越近了)文件里每个条目如下:<Dll 是否已经注册="1">F:\web\cw31072\dll\test\MyClass.dll</Dll>
* 'F:\web\cw31072\dll\test\MyClass.dll就是你DLL文件的路径
* '是否已经注册="1"就是该DLL已经注册过,=“0”就是还没有注册呢!
*******************************************************************************************
Class Regsvr32
private s_objxml(标准化越来越近了)
private s_objNodeRoot
private s_strxml(标准化越来越近了)Path
private s_strAttributeName
'------------------------------------
*******************************************************************************************
*使用本CLASS可以管理并在ASP页里面注册你的DLL
*本CLASS在WIN 2K上测试通过
*注:使用本CLASS需要先建立一个xml(标准化越来越近了)文件。文件如下.打开记事本将如下3行存为*.xml(标准化越来越近了)文件
*
* <?xml(标准化越来越近了) version="1.0" encoding="gb2312" standalone="yes"?>
* <Dll列表>
* </Dll列表>
*
*------------------------------------------------------------------------------------------
*范例:
* dim objRegsvr32
* set objRegsvr32 = new Regsvr32
* with objRegsvr32
* if .Loadxml(标准化越来越近了)("../MyDll.xml(标准化越来越近了)") then
* call Response.Write("xml(标准化越来越近了)文件加载错误")
* set objRegsvr32 = nothing
* Response.End
* end if
* select case .AddNode("F:\web\cw31072\dll\test\MyClass.dll" , true) '添加新条目并注册DLL
* case 1
* call Response.Write("条目已经添加进xml(标准化越来越近了)文件!并成功注册DLL啦!")
* case 0
* call Response.Write("条目已经添加进xml(标准化越来越近了)文件!但注册DLL时失败!")
* case -1
* call Response.Write("xml(标准化越来越近了)文件里已经有该条目!该DLL也已经注册的了!")
* end select
* ..........................
* end with
*
* '本CLASS非常简单,里面还有些方法,我就不举例了,看看就知道了。日后你可以打开
* '该xml(标准化越来越近了)文件看你曾经注册过和待注册的DLL列表。
* 'xml(标准化越来越近了)文件里每个条目如下:<Dll 是否已经注册="1">F:\web\cw31072\dll\test\MyClass.dll</Dll>
* 'F:\web\cw31072\dll\test\MyClass.dll就是你DLL文件的路径
* '是否已经注册="1"就是该DLL已经注册过,=“0”就是还没有注册呢!
*******************************************************************************************
Class Regsvr32
private s_objxml(标准化越来越近了)
private s_objNodeRoot
private s_strxml(标准化越来越近了)Path
private s_strAttributeName
'------------------------------------
- 最新文章
- 汉字转化为拼音[04-14]
- 将你的网站设置为客户的信任站点--VB方案[04-14]
- 将你的网站设置为客户的信任站点--WSH方案[04-14]
- 利用global.asa计划执行程序[04-14]
- 论坛中有新贴子功能的实现[04-14]
- ASP 编程中 15 个非常有用的例子[04-14]
- 相关文章
- ASP 编程中 15 个非常有用的例子[04-14]
- 一个的无组件上传的ASP代码[04-14]
- 使用InstallShield制作ASP安装程序(1)[04-14]
- 使用InstallShield制作ASP安装程序(2)[04-14]
- 开辟一条自由ASP快车道[04-14]
- 用VB编写ActiveX DLL实现ASP编程[04-14]
