台灣最大程式設計社群網站
線上人數
1208
 
會員總數:246138
討論主題:189722
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 用ASP程式在IIS中建立一個建立新的WEB
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
用ASP程式在IIS中建立一個建立新的WEB
價值 : 0 QP  點閱數:2681 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
這個Function給大家參考

Function ASPCreateWebSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Index,AnonymousUserName,AnonymousUserPass,LogFileDirectory)
Dim w3svc, WebServer, NewWebServer, NewDir
Dim Bindings, BindingString, NewBindings, Index, SiteObj, bDone
On Error Resume Next
Err.Clear
Set w3svc = GetObject("IIS://" & Computer & "/w3svc")

BindingString = IpAddress & ":" & PortNum & ":" & HostName

bDone = False
Set NewWebServer = w3svc.Create("IIsWebServer", Index)

NewWebServer.ServerBindings = BindingString

NewWebServer.ServerComment = ServerComment '---IP----
NewWebServer.AnonymousUserName = AnonymousUserName '---目錄安全設定帳號
NewWebServer.AnonymousUserPass = AnonymousUserPass '---目錄安全設定帳號
NewWebServer.KeyType = "IIsWebServer"
NewWebServer.FrontPageWeb = True '---使用frontPageWeb
NewWebServer.EnableDefaultDoc = True
NewWebServer.DefaultDoc = "Default.htm, Default.asp, Index.htm, Index.asp" '-文件
NewWebServer.LogFileDirectory = LogFileDirectory '---日誌檔目錄
NewWebServer.HttpCustomHeaders = "www.topidea.com.tw"
NewWebServer.SetInfo

Set NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
NewDir.Path = RootDirectory
NewDir.AccessRead = true
NewDir.AppFriendlyName = "應用程序" & ServerComment
NewDir.AppCreate = True
'NewDir.AppAllowClientDebug = True 'ASP客戶端除錯是否啟動
'NewDir.AppAllowDebugging = True 'ASP客戶端除錯是否啟動
'NewDir.AspScriptLanguage = "VBScript" '預設ASP語系
'NewDir.AspScriptTimeout = 90 'ASP指令愈時
'NewDir.AspSessionTimeout = 20 '工作階段愈時
'NewDir.AspSessionState = True '啟用作業狀態
'NewDir.AspBufferingOn = False '啟用緩衝處理

NewDir.AppCreate = True
NewDir.Accessscript = True
Err.Clear
NewDir.SetInfo
If (Err.Number = 0) Then
Else
response.write "主目錄建立時出錯."
End If

response.write Index
End Function

本篇文章發表於2001-05-14 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.