|
首页>编程技术>asp编程> |
利用ASP远程注册DLL的方法 |
|
Visited times , Welcome to Data Mining Forum & Data Mining Expert & Data Mining Tools |
|
|
源码如下：
＜% Response.Buffer = True %＞
＜% Server.ScriptTimeout = 500
Dim frmFolderPath, frmFilePath
frmFolderPath = Request.Form("frmFolderPath")
frmFilePath = Request.Form("frmDllPath")
frmMethod = Request.Form("frmMethod")
btnREG = Request.Form("btnREG")
%＞
＜HTML＞
＜HEAD＞
＜TITLE＞Regsvr32.asp＜/TITLE＞
＜STYLE TYPE="TEXT/CSS"＞
.Legend {FONT-FAMILY: veranda; FONT-SIZE: 14px; FONT-WEIGHT: bold; COLOR: blue}
.FS {FONT-FAMILY: veranda; FONT-SIZE: 12px; BORDER-WIDTH: 4px; BORDER-COLOR: green;
MARGIN-LEFT:2px; MARGIN-RIGHT:2px}
TD {MARGIN-LEFT:6px; MARGIN-RIGHT:6px; PADDING-LEFT:12px; PADDING-RIGHT:12px}
＜/STYLE＞
＜/HEAD＞
＜BODY＞
＜FORM NAME="regForm" METHOD="POST"＞
＜TABLE BORDER=0 CELLSPACING=6 CELLPADDING=6 MARGINWIDTH=6＞
＜TR＞
＜TD VALIGN=TOP＞
＜FIELDSET ID=FS1 NAME=FS1 CLASS=FS＞
＜LEGEND CLASS=Legend＞Regsvr Functions＜/LEGEND＞
Insert Path to DLL Directory
＜INPUT TYPE=TEXT NAME="frmFolderPath" VALUE="＜%=frmFolderPath%＞"＞
＜INPUT TYPE=SUBMIT NAME=btnFileList VALUE="Build File List"＞
＜%
IF Request.Form("btnFileList") ＜＞ "" OR btnREG ＜＞ "" Then
Set RegisterFiles = New clsRegister
RegisterFiles.EchoB("＜B＞Select File＜/B＞")
Call RegisterFiles.init(frmFolderPath)
RegisterFiles.EchoB("
＜INPUT TYPE=SUBMIT NAME=btnREG VALUE=" & Chr(34) _
& "REG/UNREG" & Chr(34) & "＞")
IF Request.Form("btnREG") ＜＞ "" Then
Call RegisterFiles.Register(frmFilePath, frmMethod)
End IF
Set RegisterFiles = Nothing
End IF
%＞
＜/FIELDSET＞
＜/TD＞
＜/TR＞
＜/TABLE＞
＜/FORM＞
＜/BODY＞
＜/HTML＞
＜% 数据挖掘工具
Class clsRegister
Private m_oFS
Public Property Let oFS(objOFS)
m_oFS = objOFS
End Property
Public Property Get oFS()
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
End Property
Sub init(strRoot) "Root to Search (c:, d:, e:)
Dim oDrive, oRootDir
IF oFS.FolderExists(strRoot) Then
IF Len(strRoot) ＜ 3 Then "Must Be a Drive
Set oDrive = oFS.GetDrive(strRoot)
Set oRootDir = oDrive.RootFolder
Else
Set oRootDir = oFS.GetFolder(strRoot)
End IF
Else
EchoB("＜B＞Folder ( " & strRoot & " ) Not Found.")
Exit Sub
End IF
setRoot = oRootDir
Echo("＜SELECT NAME=" & Chr(34) & "frmDllPath" & Chr(34) & "＞")
Call getAllDlls(oRootDir)
EchoB("＜/SELECT＞")
BuildOptions
End Sub
Sub getAllDlls(oParentFolder)
Dim oSubFolders, oFile, oFiles 数据挖掘实验室
Set oSubFolders = oParentFolder.SubFolders
Set opFiles = oParentFolder.Files
For Each oFile in opFiles
IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then
Echo("＜OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & "＞" _
& oFile.Name & "＜/Option＞")
End IF
Next
On Error Resume Next
For Each oFolder In oSubFolders "Iterate All Folders in Drive
Set oFiles = oFolder.Files
For Each oFile in oFiles
IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then
Echo("＜OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & "＞" _
& oFile.Name & "＜/Option＞")
End IF
Next
Call getAllDlls(oFolder)
Next
On Error GoTo 0
End Sub
Sub Register(strFilePath, regMethod)
Dim theFile, strFile, oShell, exitcode 数据挖掘交友
Set theFile = oFS.GetFile(strFilePath)
strFile = theFile.Path
Set oShell = CreateObject ("WScript.Shell")
IF regMethod = "REG" Then "Register
oShell.Run "c:WINNTsystem32regsvr32.exe /s " & strFile, 0, False
exitcode = oShell.Run("c:WINNTsystem32regsvr32.exe /s " & strFile, 0, False)
EchoB("regsvr32.exe exitcode = " & exitcode)
Else "unRegister
oShell.Run "c:WINNTsystem32regsvr32.exe /u/s " & strFile, 0, False
exitcode = oShell.Run("c:WINNTsystem32regsvr32.exe /u/s " & strFile, 0, False)
EchoB("regsvr32.exe exitcode = " & exitcode)
End IF
Cleanup oShell
End Sub
Sub BuildOptions
EchoB("Register: ＜INPUT TYPE=RADIO NAME=frmMethod VALUE=REG CHECKED＞")
EchoB("unRegister: ＜INPUT TYPE=RADIO NAME=frmMethod VALUE=UNREG＞")
End Sub
Function Echo(str)
Echo = Response.Write(str & vbCrLf) 数据挖掘实验室
End Function
Function EchoB(str)
EchoB = Response.Write(str & "
" & vbCrLf)
End Function
Sub Cleanup(obj)
If isObject(obj) Then
Set obj = Nothing
End IF
End Sub
Sub Class_Terminate()
Cleanup oFS
End Sub
End Class
%＞
|
|
|
|
|
[数据挖掘专家]
[数据挖掘研究院]
[数据挖掘论坛]
[数据挖掘实验室]
|
上一篇：ASP：6行代码实现无组件上传
下一篇：ASP动态网页技术的数据库语法总结
|
|
|
|
