把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。
怎样在远程主机上注册我们的dll呢?在服务器端使用Shell!!!
让我们先将自己的dll文件通过ftp或http上传到服务器上,然后作一个asp程序,调用WScript.Shell来 执行regsvr32命令:
Set oShell = CreateObject ('WScript.Shell')
oShell.Run 'c:/WINNT/system32/regsvr32.exe /s d:/xxx.dll', 0, False
当然如果对方的服务器安全搞的很好的话,这个代码也许就不能用了,但不管怎么样,学习一下 也是好的,:)
在这里也要提醒那些出租空间的朋友,你的服务器是否限制了使用WScript.Shell的权限?还是小心为妙
完整代码如下,保存为.asp即可使用:
<% 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<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
Sub getAllDlls(oParentFolder) '通过fso列举所有的dll和ocx文件
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:/WINNT/system32/regsvr32.exe /s ' & strFile, 0, False
exitcode = oShell.Run('c:/WINNT/system32/regsvr32.exe /s ' & strFile, 0, False)
EchoB('regsvr32.exe exitcode = ' & exitcode)
Else 'unRegister
oShell.Run 'c:/WINNT/system32/regsvr32.exe /u/s ' & strFile, 0, False
exitcode = oShell.Run('c:/WINNT/system32/regsvr32.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 & '<BR>' & 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
%>
怎样在远程主机上注册我们的dll呢?在服务器端使用Shell!!!
让我们先将自己的dll文件通过ftp或http上传到服务器上,然后作一个asp程序,调用WScript.Shell来 执行regsvr32命令:
Set oShell = CreateObject ('WScript.Shell')
oShell.Run 'c:/WINNT/system32/regsvr32.exe /s d:/xxx.dll', 0, False
当然如果对方的服务器安全搞的很好的话,这个代码也许就不能用了,但不管怎么样,学习一下 也是好的,:)
在这里也要提醒那些出租空间的朋友,你的服务器是否限制了使用WScript.Shell的权限?还是小心为妙
完整代码如下,保存为.asp即可使用:
<% 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<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
Sub getAllDlls(oParentFolder) '通过fso列举所有的dll和ocx文件
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:/WINNT/system32/regsvr32.exe /s ' & strFile, 0, False
exitcode = oShell.Run('c:/WINNT/system32/regsvr32.exe /s ' & strFile, 0, False)
EchoB('regsvr32.exe exitcode = ' & exitcode)
Else 'unRegister
oShell.Run 'c:/WINNT/system32/regsvr32.exe /u/s ' & strFile, 0, False
exitcode = oShell.Run('c:/WINNT/system32/regsvr32.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 & '<BR>' & 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
%>