把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:\***.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")
%>
<%
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("folder ( " & strroot & " ) not found.")
exit sub
end if
setroot = orootdir
echo("")
call getalldlls(orootdir)
echob("")
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
ASP遠端註冊自己的元件
把asp程式作成dll很多好處，但是有一點，該dll必須註冊才能在asp中呼叫。如果是自己的伺服器那還好，但如果是租用的虛擬伺服器，就沒辦法使用了。怎樣在遠端主機上註冊我們的dll呢？在伺服器端使用shell！讓我們先將自己的dll檔案通過ftp或http上傳到伺服器上，然後作乙個asp程式，呼叫w...
ASP學習 遠端註冊自己的元件
把asp程式作成dll很多好處，但是有一點，該dll必須註冊才能在asp中呼叫。如果是自己的伺服器那還好，但如果是租用的虛擬伺服器，就沒辦法使用了。怎樣在遠端主機上註冊我們的dll呢？在伺服器端使用shell！讓我們先將自己的dll檔案通過ftp或http上傳到伺服器上，然後作乙個asp程式，呼叫w...
ASP學習 遠端註冊自己的元件
把asp程式作成dll很多好處，但是有一點，該dll必須註冊才能在asp中呼叫。如果是自己的伺服器那還好，但如果是租用的虛擬伺服器，就沒辦法使用了。怎樣在遠端主機上註冊我們的dll呢？在伺服器端使用shell！讓我們先將自己的dll檔案通過ftp或http上傳到伺服器上，然後作乙個asp程式，呼叫w...