用ASP編程來控制在IIS建立Web站點

'' 創建一個WebServer

'' 必須參數:WRoot,爲創建站點的物理目錄;WComment爲站點說明;WPort爲站點端口;ServerRun爲是否自動運行

'' 當創建成功時返回1,失敗時提示退出並返回0,當創建站點成功但啓動失敗時返回2

''**********************************************************************************

''

''******************注意:WPort爲List類型,意爲服務器端口,***************

''

本函數在IIS5.0上通過,**必須以管理員身份登錄**

'' 端口舉例:

'' Dim WPort,bindlists,createflag,oComputer

'' oComputer="LocalHost"

'' binglists=Array(0)

'' binglists(0)=":80:"''端口號爲80

'' WPort=binglists

'' createflag=CreateWebServer("D:myweb","我的家園",WPort,False)''調用建站函數

''

If creatflag=0 Then

'' Response.Write "創建站點失敗!請確定是否有權限"

'' ElseIf createflag=1 Then

'' Response.Write "創建站點成功!"

'' ElseIf createflag=2 Then

'' Response.Write "創建站點成功,但啓動站點失敗,可能端口沖突!"

'' End If

''******************************************************************************

Function CreateWebServer(WRoot,WComment,WPort,ServerRun)

On Error Resume Next

Dim ServiceObj,ServerObj,VDirObj

Set ServiceObj = GetObject("IIS://"&oComputer&"/W3SVC")'' 首先創建一個服務實例

WNumber=1

Do While IsObject(ServiceObj.GetObject("IIsWebServer",WNumber))

If Err.number<0 Then

Err.Clear()

Exit Do

End If

WNumber=WNumber+1

Loop

Set ServerObj = ServiceObj.Create("IIsWebServer", WNumber)'' 然後創建一個WEB服務器

If (Err.Number < 0) Then'' 是否出錯

''Response.Write "錯誤: 創建Web服務器的ADSI操作失敗!"

CreateWebServer=0

Exit Function

End If

'' 接著配置服務器

ServerObj.ServerSize = 1 '' 中型大小

ServerObj.ServerComment = WComment ''說明

ServerObj.ServerBindings = WPort ''端口

ServerObj.EnableDefaultDoc=True

'' 提交信息

ServerObj.SetInfo

'' 最後,建立虛擬目錄

Set VDirObj = ServerObj.Create("IIsWebVirtualDir", "ROOT")

If (Err.Number < 0) Then'' 是否出錯

''Response.Write "錯誤: 創建虛擬目錄的ADSI操作失敗!"

CreateWebServer=0

Exit Function

End If

'' 配置虛擬目錄

VDirObj.Path = WRoot

VDirObj.AccessRead = True

VDirObj.AccessWrite = True

VDirObj.EnableDirBrowsing = False

VDirObj.EnableDefaultDoc=True

VDirObj.AccessScript=True

VDirObj.AppCreate2 2

VDirObj.AppFriendlyName="默認應用程序"

VDirObj.SetInfo

If ServerRun = True Then

ServerObj.Start

If (Err.Number < 0) Then '' Error!

''Response.Write "錯誤: 起動服務器時出錯!請手動啓動WebServer "&WComment&"!

"

CreateWebServer=2

Exit Function

End If

End If

Set VDirObj=Nothing

Set ServerObj=Nothing

Set ServiceObj=Nothing

CreateWebServer=1

End Function

用ASP編程控制在IIS建立Web站點的程序代碼
  '*****************************************************   ' 創建一個WebServer   ' 必須參數:WRoot,爲創建站點的物理目錄;WComment爲站點說明;WPort爲站點端口;ServerRun爲是否自動運行   ' 當創...查看完整版>>用ASP編程控制在IIS建立Web站點的程序代碼
 
用ASP編程控制在IIS建立Web站點
''******************************************************* '' 創建一個WebServer '' 必須參數:WRoot,爲創建站點的物理目錄;WComment爲站點說明;WPort爲站點端口;ServerRun爲是否自動運行 '' 當創建成功時返回...查看完整版>>用ASP編程控制在IIS建立Web站點
 
用ASP編程控制在IIS建立Web站點的程序代碼
'***************************************************** ' 創建一個WebServer ' 必須參數:WRoot,爲創建站點的物理目錄;WComment爲站點說明;WPort爲站點端口;ServerRun爲是否自動運行 ' 當創建成功時返回1,...查看完整版>>用ASP編程控制在IIS建立Web站點的程序代碼
 
用ASP編程控制在IIS建立Web站點
''******************************************************* '' 創建一個WebServer '' 必須參數:WRoot,爲創建站點的物理目錄;WComment爲站點說明;WPort爲站點端口;ServerRun爲是否自動運行'' 當創建成功時返回...查看完整版>>用ASP編程控制在IIS建立Web站點
 
安全維護 IIS ASP 站點的高級技巧(4)
②、啓用日志監測  這是亡羊補牢的好工具,至少你可以用它來監測誰通過web幹了什麽。當然,你還要保護該日志的權限只能是被系統管理員和超級管理所控制。這樣避免某些人的幹了某些事而不留痕迹。爲了留好現場而又不...查看完整版>>安全維護 IIS ASP 站點的高級技巧(4)
 
安全維護 IIS ASP 站點的高級技巧(5)
③、配置合適的腳本映射  相信我,大部分的ASP源代碼泄漏都是通過不安全或是有錯誤的腳本映射導致的。而他們中的大多數可能你用不到,如下面我說的:  1 *.htr這是一個比較厲害的文件,他是web應用程序的一種。同...查看完整版>>安全維護 IIS ASP 站點的高級技巧(5)
 
安全維護 IIS ASP 站點的高級技巧(1)
一. 前言  (僅以此文感謝好友bigeagle。不是他,我可能不用這麽擔心win2000安全問題的。呵呵!)  人說,一朝被蛇咬,十年怕.....,就是這樣。2000年初,當我終于擺脫winnt 4.0 server那可怕的補丁之旅,邁向wi...查看完整版>>安全維護 IIS ASP 站點的高級技巧(1)
 
安全維護 IIS ASP 站點的高級技巧(6)
④、好的安全習慣  要注意多上ms的站點,看看安全公告。(MS的訪問量就是這樣長期排行世界前三的!)還要准備好一些第三方的工具。如掃描工具,模擬攻擊工具。多上安全站點看看。  如果你可以交道一些比較好的黑...查看完整版>>安全維護 IIS ASP 站點的高級技巧(6)
 
安全維護 IIS ASP 站點的高級技巧(2)
4. 不要安裝html的遠程管理。html的遠程管理在winnt 4.0還能用的上,但漏洞比較大,而且比較危險,端口號雖然是隨機的,但很容易被人掃描道,從而留下隱患。事實上,我們可以通過另一台服務器上的IIS來管理他。這樣比...查看完整版>>安全維護 IIS ASP 站點的高級技巧(2)
 
 
回到王朝網路移動版首頁