conn.asp不再貼出。
這里從數據庫中讀出目錄名


<%
'response.end '//這是做調試時用的
on error resume next
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = MyConnection
Sql="select * from 你的表名 where 你指定的條件"
Rs.Open Sql,,1,2
If Rs.Eof Then Response.End '//如果無符合條件記錄，則停止
Rs.MoveFirst
dim namestr '//定義虛擬目錄名變量
Do while not rs.eof
if instr(1,namestr,server.htmlencode(Trim(Rs("SUname"))))<>0 Then Rs.MoveNext
name=name&server.htmlencode(Trim(Rs("SUname")))
%>
<%
sComputer ="localhost"
sPhyDir = "X: est" & server.htmlencode(Trim(Rs("SUname"))) '//這里定義虛擬目錄指向的物理路徑
sVirDir = server.htmlencode(Trim(Rs("Suname"))) '//這里定義虛擬目錄名
set websvc = GetObject("IIS://" & sComputer & "/W3svc/1") '//獲得你當前站點對象。若有多個站點，那么改動后面1為2,3...即可指向其它的
set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root") '//獲得當前站點虛擬ROOT
Set ClassDefinition = GetObject(vRoot.Schema) '//獲得虛擬目錄的類定義
asMustHaves = ClassDefinition.MandatoryProperties
asMayHaves = ClassDefinition.OptionalProperties
i=1
%>



<%
on error resume next
For Each Thing in asMustHaves
Response.Write ""
i = i + 1
Next
%>

Class Must Have Property	Root Virtual Directory Current value
("& Cstr(i) & ") " &_ Thing & "	" & vRoot.Get(Thing) &_ "

<%
i=1
For Each Thing in asMayHaves
Response.Write ""
i = i + 1
Next
on error goto 0
'//建立虛擬目錄
Response.Write svirdir & "
"
Set vDir = vRoot.Create("IIsWebVirtualDir",sVirDir)
'//設置虛擬目錄的兩個屬性，這里設置可讀屬性和將虛擬目錄的路徑指向物理路徑
vDir.AccessRead = true
vDir.Path = sPhyDir
vDir.SetInfo '//將信息寫入庫，指的IIS站點相關的庫，不是你的用戶數據表
%>
<%
Rs.Movenext
Loop
Rs.Close
Response.Write "創建虛擬目錄完成!"
%>
另外，還有利用adsi進行站點設置比如建站點，刪除站點，配置站點IP，主機頭，默認文檔的等等，這里不做下載，有興趣的朋友可以到微軟站點下載 adsiSDK 的開發文檔深入。

Class May Have Property	當前站點
("& CStr(i) & ") " &_ Thing & "	" & vRoot.Get(Thing) &_ "
關鍵字查詢 實現 目錄 虛擬 iis 建立 相關文章 正在查詢...