當(dāng)前位置:首頁(yè)>>軟件教程>>新聞內(nèi)容  
用ASP編程控制在IIS建立Web站點(diǎn)
作者:佚名 發(fā)布時(shí)間:2003-12-12 10:46:40 | 【字體:

'******************************************************************************' 創(chuàng)建一個(gè)WebServer
' 必須參數(shù):WRoot,為創(chuàng)建站點(diǎn)的物理目錄;WComment為站點(diǎn)說(shuō)明;WPort為站點(diǎn)端口;ServerRun為是否自動(dòng)運(yùn)行
' 當(dāng)創(chuàng)建成功時(shí)返回1,失敗時(shí)提示退出并返回0,當(dāng)創(chuàng)建站點(diǎn)成功但啟動(dòng)失敗時(shí)返回2
'******************************************************************************
'******************注意:WPort為L(zhǎng)ist類型,意為服務(wù)器端口,***************
'  本函數(shù)在IIS5.0上通過(guò),**必須以管理員身份登錄**
' 端口舉例:
' Dim WPort,bindlists,createflag,oComputer
' oComputer="LocalHost"
' binglists=Array(0)
' binglists(0)=":80:"'端口號(hào)為80
' WPort=binglists
' createflag=CreateWebServer("D:\myweb","我的家園",WPort,False)'調(diào)用建站函數(shù)
'  If creatflag=0 Then
' Response.Write "創(chuàng)建站點(diǎn)失!請(qǐng)確定是否有權(quán)限"
' ElseIf createflag=1 Then
' Response.Write "創(chuàng)建站點(diǎn)成功!"
' ElseIf createflag=2 Then
' Response.Write "創(chuàng)建站點(diǎn)成功,但啟動(dòng)站點(diǎn)失敗,可能端口沖突!"
' End If
'******************************************************************************'關(guān)于Ftp站點(diǎn)的創(chuàng)建我已發(fā)表在asp版,請(qǐng)有興趣的朋友自己去查看
'如有問(wèn)題,歡迎跟我聯(lián)系:nonepassby@163.com

Function CreateWebServer(WRoot,WComment,WPort,ServerRun)
On Error Resume Next
Dim ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject("IIS://"&oComputer&"/W3SVC")' 首先創(chuàng)建一個(gè)服務(wù)實(shí)例
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)' 然后創(chuàng)建一個(gè)WEB服務(wù)器
If (Err.Number <> 0) Then' 是否出錯(cuò)
'Response.Write "錯(cuò)誤: 創(chuàng)建Web服務(wù)器的ADSI操作失。"
CreateWebServer=0
Exit Function
End If
' 接著配置服務(wù)器
ServerObj.ServerSize = 1 ' 中型大小
ServerObj.ServerComment = WComment '說(shuō)明
ServerObj.ServerBindings = WPort '端口
ServerObj.EnableDefaultDoc=True
' 提交信息
ServerObj.SetInfo
' 最后,建立虛擬目錄
Set VDirObj = ServerObj.Create("IIsWebVirtualDir", "ROOT")
If (Err.Number <> 0) Then' 是否出錯(cuò)
'Response.Write "錯(cuò)誤: 創(chuàng)建虛擬目錄的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="默認(rèn)應(yīng)用程序"
VDirObj.SetInfo
If ServerRun = True Then
ServerObj.Start
If (Err.Number <> 0) Then ' Error!
'Response.Write "錯(cuò)誤: 起動(dòng)服務(wù)器時(shí)出錯(cuò)!請(qǐng)手動(dòng)啟動(dòng)WebServer "&WComment&"!<br>"
CreateWebServer=2
Exit Function
End If
End If
Set VDirObj=Nothing
Set ServerObj=Nothing
Set ServiceObj=Nothing
CreateWebServer=1
End Function


文章來(lái)源:
·IIS常見(jiàn)問(wèn)題及解答
·WinXP家用版也能裝IIS
·有關(guān)win2k的IIS中asp詳細(xì)出錯(cuò)信息的顯示
·IIS6上傳文件尺寸太小解決辦法
·如何在WinXP Home Edition中安裝IIS5
 放生
 愚愛(ài)
 夠愛(ài)
 觸電
 白狐
 葬愛(ài)
 光榮
 畫心
 火花
 稻香
 小酒窩
 下雨天
 右手邊
 安靜了
 魔杰座
 你不像她
 邊做邊愛(ài)
 擦肩而過(guò)
 我的答鈴
 懷念過(guò)去
 等一分鐘
 放手去愛(ài)
 冰河時(shí)代
 你的承諾
 自由飛翔
 原諒我一次
 吻的太逼真
 左眼皮跳跳
 做你的愛(ài)人
 一定要愛(ài)你
 飛向別人的床
 愛(ài)上別人的人
 感動(dòng)天感動(dòng)地
 心在跳情在燒
 玫瑰花的葬禮
 有沒(méi)有人告訴你
 即使知道要見(jiàn)面
 愛(ài)上你是一個(gè)錯(cuò)
 最后一次的溫柔
 愛(ài)上你是我的錯(cuò)
 怎么會(huì)狠心傷害我
 不是因?yàn)榧拍畔?/a>
 親愛(ài)的那不是愛(ài)情
 難道愛(ài)一個(gè)人有錯(cuò)
 寂寞的時(shí)候說(shuō)愛(ài)我