|
ASP技术 |
Txlist |
|
 本类阅读TOP10 |
|
Txtop
|
|
|
|
ASP学习:远程注册自己的组件(2) |
|
|
|
作者：未知 来源：未知 加入时间：2004-8-29 宇宙软件下载 |
＜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＜BR＞
＜INPUT TYPE=TEXT NAME="frmFolderPath" VALUE="＜%=frmFolderPath%＞"＞＜BR＞
＜INPUT TYPE=SUBMIT NAME=btnFileList VALUE="Build File List"＞＜BR＞
＜%
IF Request.Form("btnFileList") ＜＞ "" OR btnREG ＜＞ "" Then
Set RegisterFiles = New clsRegister
RegisterFiles.EchoB("＜B＞Select File＜/B＞")
Call RegisterFiles.init(frmFolderPath)
RegisterFiles.EchoB("＜BR＞＜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 
|
|
相关文章：相关软件： |
|