|
|
 |
首页 … 技术文档 Technical Articles |
|
| |
| |
|
| （时间:2007-6-21 13:22:39 共有
人次浏览） |
本 程 式 方 法 介 绍 利 用 客 户 端 注 册 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 WINDOWSSYSTEMWEBREPORT.DLL
'WIN 98 WINDOWSSYSTEM32WEBREPORT.DLL
'WIN NT40 WINNTSYSTEMWEBREPORT.DLL
'WIN 2000 WINNTSYSTEM32WEBREPORT.DLL
SUB FUN_REG()
DIM WSHSHELL,FSO
SET WSHSHELL = CREATEOBJECT("WSCRIPT.SHELL")
SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
IF FSO.FILEEXISTS("WINDOWSSYSTEMWEBREPORT.DLL") THEN
WSHSHELL.RUN "REGSVR32 /S WINDOWSSYSTEMWEBREPORT.DLL" , 1, TRUE
MSGBOX "REGISTER WINDOWSSYSTEMWEBREPORT.DLL FILE SUCESS!"
ELSEIF FSO.FILEEXISTS("WINDOWSSYSTEM32WEBREPORT.DLL") THEN
WSHSHELL.RUN "REGSVR32 /S WINDOWSSYSTEM32WEBREPORT.DLL" , 1, TRUE
MSGBOX "REGISTER WINDOWSSYSTEM32WEBREPORT.DLL FILE SUCESS!"
ELSEIF FSO.FILEEXISTS("WINNTSYSTEMWEBREPORT.DLL") THEN
WSHSHELL.RUN "REGSVR32 /S WINNTSYSTEMWEBREPORT.DLL" , 1, TRUE
MSGBOX "REGISTER WINNTSYSTEMWEBREPORT.DLL FILE SUCESS!"
ELSEIF FSO.FILEEXISTS("D:WINNTSYSTEM32WEBREPORT.DLL") THEN
WSHSHELL.RUN "REGSVR32 /S D:WINNTSYSTEM32WEBREPORT.DLL" , 1, TRUE
MSGBOX "REGISTER D:WINNTSYSTEM32WEBREPORT.DLL FILE SUCESS!"
ELSE
MSGBOX "NOT FOUND THE REGISTER DLL FILE!"
END IF
SET FSO=NOTHING
SET WSHSHELL=NOTHING
END SUB
</SCRIPT>
|
|
|
 【打印该页】 【关闭窗口】 |
|
此技术资料来自网络，仅供参考。未经许可，不得转载。
若有侵权，请及时与我们取得联系！ |
| |
|
|
|
|
