IIS站点服务器在线维护 0.1.0.0

软件类别: 主机域名
软件大小: 10KB
运行环境: windows
软件等级: ★★★
演示: 程序演示
缩略图:
下载次数: 475

软件介绍

''''''''''''''''''''''''''''''''''''''''''''''''''''''
' IIS站点服务器在线维护 0.1.0.0                      '
'                                                    '
' 作者:Mscga  HTTP://www.7ik.net QQ:51139045         '
'                                                    '
' 第一次用VB编组件.有不足之处请联系我                '
'                                                    '
' 上海钧尹网络科技有限公司                           '
'                                                    '
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                                                    '
' 开发环境:IIS5.0 +VB 6.0 + 2000 Server + IE 6 SP1   '
'                                                    '
' 使用本程序时请注意:网站要有管理员权限!             '
'                                                    '
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Set obj=Server.CreateObject("Mscga.Contorl")
'obj.ServerIP = "127.0.0.1"
'设制站点CPU限制 [标识,百他比]
'obj.SetCpuLimit 1,24
'开启关闭主机 [标识,1开/0关]
'Status = obj.SiteStatus(1,1)
'Select Case Status
'Case "01"
'Response.Write "无法启动指定Web站点!"
'Case "10"
'Response.Write "已经启动指定Web站点"
'Case "00"
'Response.Write "无法停止指定Web站点!"
'Case "11"
'Response.Write "已经停止指定Web站点!"
'Case Else
'Response.Write Status
'End Select
'删除站点 [标识]
'DelOk = obj.DeleteSite(4)
'If DelOk Then
'Response.Write "站点删除成功!"
'Else
'Response.Write "站点删除失败!"
'End If
'设置默认文档 [标识,默认文档]
'Doc = obj.DefaultDoc(1,"index.php")
'If Doc Then
'Response.Write "默认文档设置成功!"
'Else
'Response.Write "默认文档设置失败!"
'End If
'设置带宽限制 [标识,带宽(单位K)]
Band = obj.Bandwidth(1, 256)
'If Band Then
'Response.Write "带宽设置成功!"
'Else
'Response.Write "带宽设置失败!"
'End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'修改脚本解析 [标识,解析数组]
'Dim SMP(2)
'SMP(0) = ".asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE"
'SMP(1) = ".aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG"
'SMP(2) = ".php,C:\php\sapi\php4isapi.dll,1,GET,HEAD,POST"
'ScriptMap = obj.SetScript(1,SMP)
'If ScriptMap Then
'Response.Write "脚本解析成功!"
'Else
'Response.Write "脚本解析失败!"
'End If
'建立站点待续
'有意的朋友请联系我关于此DLL开发