请叫关于绑定IIS主机头的问题

[xdf1159]

请教各位大G大J们，如何使用asp程序实现在IIS的WEB某个站点上，绑定多个主机头！急等，谢谢了！

[kakalong]

当客户发出一个到IIS服务器的HTTP连接请求时，这个客户的请求包括一个叫做HOST:的字段，它包括了URL中的Web服务器请求。例如，如果你的请求将http://www.microsoft.com作为目的地，则浏览器将其发送到服务器，并一同提交HTTP头中的其它信息，HOST: http://www.microsoft.com。因为此字段的名称是“HOST”，并且它在客户的HTTP头中，所以我们把它称作“主机头”。

[xdf1159]

谢谢这位大哥回贴，可是有没有用asp程序去实现在IIS上绑定多个主机头呢？

[xdf1159]

我现在已经实现了绑定一个主机头，如下代码，可是主机头多个就困难了
public Function Create_Website(WRoot,WComment,WPort)
On Error Resume Next
Dim ServiceObj,ServerObj,VDirObj

'创建一个服务实例
Set ServiceObj = GetObject("IIS://localhost/W3SVC")
WNumber=1
'获取IIS空闲标识
Do While IsObject(ServiceObj.GetObject("IIsWebServer",WNumber))
If Err.number<>0 Then
Err.Clear()
Exit Do
End If
WNumber=WNumber+1
Loop

'创建一个WEB服务器
Set ServerObj = ServiceObj.Create("IIsWebServer", WNumber)
If (Err.Number <> 0) Then'' 是否出错
createflag=0
Exit Function
End If
'接着配置服务器
NewBindings = Array(0)
NewBindings(0) = WPort
ServerObj.ServerBindings = NewBindings ''端口
ServerObj.ServerComment = WComment ''说明
ServerObj.ServerSize = 1 '' 中型大小
ServerObj.EnableDefaultDoc=True
ServerObj.SetInfo' 提交信息

'建立虚拟目录
Set VDirObj = ServerObj.Create("IIsWebVirtualDir", "ROOT")
If (Err.Number <> 0) Then'' 是否出错
createflag=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

'置空
Set VDirObj=Nothing
Set ServerObj=Nothing
Set ServiceObj=Nothing
createflag=1
End Function

[konnex]

加我QQ,我回答你 927401

[chenxinlei]

<%
AdsPath="IIS://localhost/w3svc/894523"
Dim Bindings(1)
Bindings(0)=":80:www.domain1.com"
Bindings(1)=":80:www.domain2.com"

Set ServerObj = GetObject(AdsPath)
ServerObj.ServerBindings = Bindings
ServerObj.SetInfo


'AdsPath为要操作的站点的标识号
'Bindings是一数组，格式为： IP:Port:Domain，例：192.168.0.1:80:www.abc.com
%>