極光下載站 - 打造齊全的綠色軟件家園

極光下載站

當前位置: 首頁 技術開發 ASP專區 用ASP在客戶端注冊DLL文件

用ASP在客戶端注冊DLL文件

時間:2006/7/19 10:51:01 作者:佚名 人氣:38

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></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,fsoSet 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, truemsgbox "Register \windows\system\WebReport.dll file sucess!" elseIf fso.FileExists("\windows\system32\WebReport.dll") Then WshShell.run "regsvr32 /s \windows\system32\WebReport.dll" , 1, truemsgbox "Register \windows\system32\WebReport.dll file sucess!" elseIf fso.FileExists("\winnt\system\WebReport.dll") Then WshShell.run "regsvr32 /s \winnt\system\WebReport.dll" , 1, truemsgbox "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, truemsgbox "Register d:\winnt\system32\WebReport.dll file sucess!" elsemsgbox "Not found the register dll file!" end if set fso=nothingset WshShell=nothingend sub </script>

<
標簽
分享到:

公眾號

百家乐娱乐城 教育和医疗哪个赚钱 双色球开奖结果今天 开心棋牌游戏平台 陕西快乐十分开奖结果 黑龙江十一选五 金太阳炒股软件下载 福彩3d组选尾数 杰克棋牌新版下载 麻将移移看 炸金花必胜口诀 西甲直播免费观看 腾讯欢乐斗地主 如何下载一尾中特 辉煌棋牌骗局电玩 nba2kol2十大实用球员 银河棋牌app