ASP如何添加或删除主机头。

转载 2004年09月17日 09:30:00


'===============================================================
'函数名称:AddWebSiteHostName
'函数功能:在已存在的站点中主机头中添加新的主机头
'           index 站点编号
'           NewWebTop 主机头字符串
'开发成员:MMC(mmcgzs@hotmail.com)
'===============================================================
Public Function AddWebSiteHostName(index, NewWebTop)

  On Error Resume Next
 
  Dim tmpwebtop, ztop, oWebServer, tmpstring, Computer
 
  Computer = "localhost"
 
  Set oWebServer = GetObject("IIS://" & Computer & "/w3svc/" & index)
 
  tmpwebtop = oWebServer.serverbindings '''获取原来的主机头
  
  tmpstring = Join(tmpwebtop, "|||")
 
  If InStr(tmpstring, "|||" & NewWebTop & "|||") Or InStr(tmpstring, "|||" & NewWebTop) Or InStr(tmpstring, NewWebTop & "|||") = 1 Then
    
     oWebServer.serverbindings = tmpwebtop
    
      Else
    
     ReDim Preserve tmpwebtop(UBound(tmpwebtop) + 1)
    
     tmpwebtop(UBound(tmpwebtop)) = NewWebTop
  
     oWebServer.serverbindings = tmpwebtop
    
  End If
 
  oWebServer.SetInfo
 
  If Err.Number <> 0 Then Call ErrMessage("发生意外错误,请和管理员联系。")
 
  Err.Clear


End Function

'===============================================================
'函数名称:DelWebSiteHostName
'函数功能:在已存在的站点中主机头中删除一个主机头
'           index 站点编号
'          WebTop 主机头字符串
'开发成员:MMC(mmcgzs@hotmail.com)
'===============================================================
Public Function DelWebSiteHostName(index, WebTop)
 
  On Error Resume Next
 
  Dim tmpwebtop, ztop, oWebServer, tmpstring, Computer, i
 
  Computer = "localhost"
 
  Set oWebServer = GetObject("IIS://" & Computer & "/w3svc/" & index)
 
  tmpwebtop = oWebServer.serverbindings '''获取原来的主机头
  
  tmpstring = Join(tmpwebtop, "|||")
 
  If InStr(tmpstring, "|||" & WebTop & "|||") Or InStr(tmpstring, "|||" & WebTop) Or InStr(tmpstring, WebTop & "|||") = 1 Then
    
    
     For i = 0 To UBound(tmpwebtop)
                
       If i > UBound(tmpwebtop) Then Exit For
           
       If tmpwebtop(i) = WebTop Then
        
         tmpwebtop(i) = tmpwebtop(UBound(tmpwebtop))
 
         ReDim Preserve tmpwebtop(UBound(tmpwebtop) - 1)
 
       End If
       
     Next
    
     oWebServer.serverbindings = tmpwebtop
    
    
  End If
 
  oWebServer.SetInfo

  If Err.Number <> 0 Then Call ErrMessage("发生意外错误,请和管理员联系。")
 
  Err.Clear

End Function

 

IIS&Apache虚拟主机设置(主机头,一服多站)

IIS&Apache虚拟主机设置(主机头,一服多站)打开“控制面板”->“管理工具”->“Internet服务管理器”->“默认web站点”。 在“默认web站点”上按鼠标右键,选择“新建”->“站点...
  • forest_fire
  • forest_fire
  • 2016年03月21日 10:59
  • 1373

tomcat配置多个主机头

tomcat配置多个主机头步骤,今天刚用到,总结下自己的,tomcat7.0 jdk7.0 1. 修改hosts文件,在C:\WINDOWS\system32\drivers\etc路径下 如:127...
  • huwei0518
  • huwei0518
  • 2015年02月06日 13:50
  • 1353

TOMCAT类似iis主机头配置方法

测试过程:   系统:windowsxp    C:/WINDOWS/system32/drivers/etc/hosts文件添加   127.0.0.1       www.hi.com   127...
  • njslh
  • njslh
  • 2011年04月02日 21:31
  • 2515

通过代码给IIS增加主机头

  • zgqtxwd
  • zgqtxwd
  • 2008年04月24日 06:58
  • 84

nginx空主机头

主机头这个概念来源于windows IIS服务器;我们可以简单理解为,一个主机头就是一个host;nginx 禁止空主机头配置可以根据域名和location来分发请求,反向代理; 譬如server ...
  • huyangyamin
  • huyangyamin
  • 2015年10月24日 15:45
  • 1664

同一主机,不同域名绑定不同网站(IIS主机头实现方法)

说明:   网站A域名:www.weba.com  网站A路径:D:\website\weba   网站B域名:www.webb.com  网站B路径:D:\website\webb   公用主...
  • u010409570
  • u010409570
  • 2016年04月29日 15:28
  • 282

IIS6如何设置中文域名虚拟主机头?

IIS6主机头值与中文域名。
  • smstong
  • smstong
  • 2011年02月28日 10:32
  • 4723

tomcat配置主机头及tomcat配置多域名多站点

C:\WINDOWS\system32\drivers\etc\hosts   转载http://www.cnblogs.com/rafx/archive/2011/10/24/tomcat.ht...
  • cai5
  • cai5
  • 2012年03月30日 14:43
  • 13681

apache主机头设置-一台服务器支持多个网站,多个域名 ... [复制链接]

如何在一台服务器上运行多个网站,并对应不同的网址呢?这个问题一直没有解决,在网上找了很多次,很简单,但每次试验都没有成功.直到遇到下面的介绍:当apache在读取httpd.conf过程中遇到Name...
  • forest_fire
  • forest_fire
  • 2016年03月21日 10:50
  • 440

Win7 IIS配置主机头

原文:http://www.cnblogs.com/yinbo_crazy/archive/2012/11/13/2767982.html  在网站开发过程中,需要在本地电脑中对编辑的效果进行浏...
  • Joyhen
  • Joyhen
  • 2015年03月25日 14:41
  • 1355
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP如何添加或删除主机头。
举报原因:
原因补充:

(最多只允许输入30个字)