我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp客户端/系统 > 利 用 ASP 在 客 户 端 注 册 DLL 文 件！
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

利 用 ASP 在 客 户 端 注 册 DLL 文 件！ 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-22
ClientRegDLL.html

本 程 式 方 法 介 绍 利 用 客 户 端 注 册 DLL 文 件。
下 一 回  讲 解  客 户 端 如 何 获 得 DLL 文 件。
<html>
<head id="head1">
<meta content="text/html charset=gb2312" http-equiv="Content-Type">
<title id="title">Client use asp to register the exist dll file</title>
</head>
<body bgColor="skyblue" topMargin=0 leftMargin="0" rightMargin="0" bottomMargin="0">
<div align="center">
<table><tr><td>Client use asp to register the exist dll file</td></tr></table>
</div>
<input type="button" value="Register dll" name="reg_dll" language="vbscript" onclick="fun_reg()">
</body>
</html>
<script language="vbscript">
' we had produce the WebReport.dll file and place in the client  
'win <98      \windows\system\WebReport.dll
'win 98       \windows\system32\WebReport.dll
'win nt40     \winnt\system\WebReport.dll  
'win 2000     \winnt\system32\WebReport.dll  
sub fun_reg()
Dim WshShell,fso
Set WshShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("\windows\system\WebReport.dll") Then    
   WshShell.run "regsvr32 /s \windows\system\WebReport.dll" , 1, true
   msgbox "Register \windows\system\WebReport.dll file sucess!"

elseIf fso.FileExists("\windows\system32\WebReport.dll") Then    
   WshShell.run "regsvr32 /s \windows\system32\WebReport.dll" , 1, true
   msgbox "Register \windows\system32\WebReport.dll file sucess!"

elseIf fso.FileExists("\winnt\system\WebReport.dll") Then    
   WshShell.run "regsvr32 /s \winnt\system\WebReport.dll" , 1, true
   msgbox "Register \winnt\system\WebReport.dll file sucess!"

elseIf fso.FileExists("d:\winnt\system32\WebReport.dll") Then    
   WshShell.run "regsvr32 /s d:\winnt\system32\WebReport.dll" , 1, true
   msgbox "Register d:\winnt\system32\WebReport.dll file sucess!"
else
   msgbox "Not found the register dll file!"
end if    
set fso=nothing
set WshShell=nothing

end sub
</script>


      

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。