超精华的asp代码大全第1/2页(13)


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<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 

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3020.html