2015年5月22日

程序代码:

'=========================================================='
函数介绍:创建WebSite
'本函数使用ADSI,需要Administrators组用户权限
'函数名称:CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,
GuestUserName,GuestUserPass,StartOrStop)
'用法:CreateWebSite 计算机名(一搬为LocalHost或127.0.0.1),站点IP地址,端口号,主机名,站点根目录,,LOG文件的目录站点说明,网站访问时所使用的帐号,网站访问时所用帐号的口令,是否启动站点
'例:CreateWebSite "LocalHost","127.0.0.123","80","www.test.net","E:UserDataUserNum001",
"E:UserDataUserNum001LogFiles","CnKnow.Com","IUSR_Num001_test.net",
"abc888",True
'==================================================
Function CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,
GuestUserName,GuestUserPass,StartOrStop)
Dim w3svc, WebServer, NewWebServer, NewDir
Dim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDone
On Error Resume Next
Err.Clear
'检测是否能够加载W3SVC服务(即WEB服务)
Set w3svc = GetObject("IIS://" & Computer & "/w3svc")
If Err.Number <> 0 Then '显示错误提示
 response.write "无法打开: "&"IIS://" & Computer & "/w3svc"
 response.end
End If
'检测是否有设定相同IP地址、端口及主机名的站点存在
BindingString = IPAddr & ":" & PortNum & ":" & HostName
For Each WebServer in w3svc
 If WebServer.Class = "IIsWebServer" Then
 Bindings = WebServer.ServerBindings
 If BindingString = Bindings(0) Then
 response.write "IP地址冲突:" & IPAddr & ",请检测IP地址!."
 Exit Function
 End If
 End If
Next

'确定一个不存在的站点编号做为新建站点编号,系统默认WebSite站点编号为1,因此从2开始
SiteNum=2
bDone = False
While (Not bDone)
Err.Clear
Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&SiteNum) '加载指定站点
If (Err.Number = 0) Then
 'response.write " Step_1站点"&SiteNum&"存在"
 SiteNum = SiteNum + 1
Else
 'response.write " Step_1站点"&SiteNum&"不存在"
 Err.Clear
 Set NewWebServer = w3svc.Create("IIsWebServer",SiteNum) '创建指定站点
 If (Err.Number <> 0) Then
 'response.write " Step_2站点"&SiteNum&"创建失败"
 SiteNum = SiteNum + 1
 Else
 'response.write " Step_2站点"&SiteNum&"创建成功"
 bDone = True
 End If
End If
If (SiteNum > 50) Then '服务器最大创建站点数
 response.write "超出服务器最大创建站点数,正在创建的站点的序号为: "&SiteNum&"."
 response.end
End If
Wend

'进行站点基本配置
NewBindings = Array(0)
NewBindings(0) = BindingString
NewWebServer.ServerBindings = NewBindings
NewWebServer.ServerComment= WebSiteInfo
NewWebServer.AnonymousUserName= GuestUserName
NewWebServer.AnonymousUserPass= GuestUserPass
NewWebServer.KeyType = "IIsWebServer"
NewWebServer.FrontPageWeb = True
NewWebServer.EnableDefaultDoc = True
NewWebServer.DefaultDoc = "Default.htm, Default.asp, Index.htm, Index.asp"
NewWebServer.LogFileDirectory= LogDirectory
NewWebServer.SetInfo
Set NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
NewDir.Path = WebSiteDirectory
NewDir.AccessRead = true
NewDir.AppFriendlyName = "应用程序" & WebSiteInfo
NewDir.AppCreate True
NewDir.AccessScript = True
Err.Clear
NewDir.SetInfo
If (Err.Number <> 0) Then
 response.write "主目录创建时出错."
 response.end
End If
If StartOrStop = True Then
 Err.Clear
 Set NewWebServer = GetObject("IIS://" & Computer & "/w3svc/" & SiteNum)
 NewWebServer.Start
 If Err.Number <> 0 Then
 response.write "启动站点时出错!"
 response.end
 Err.Clear
 End If
End If
response.write "站点创建成功,站点编号为:"& SiteNum &" ,域名为:"& HostName
End Function


使用ASP设置指定站点CPU最大使用程度
程序代码:


'=================================================
'函数介绍:设置指定站点CPU最大使用程度
'本函数使用ADSI,需要Administrators组用户权限
'函数名称:SetCPULimitVar (Computer,SiteNum,LimitVar)
'用法:SetCPULimitVar 计算机名,站点编号,最大限制值(100=1%,1000=10%)
'例:SetCPULimitVar "LocalHost","2","2000"
'=================================================
Function SetCPULimitVar(Computer,SiteNum,LimitVar)
Set MyObj001 = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)
'设置启用CPU限制
MyObj001.CpuLimitsEnabled = True
'设置限制使用额度值
MyObj001.CpuLimitLogEvent=LimitVar
MyObj001.setinfo
Set MyObj001=Nothing
End Function

使用ASP启动/停止指定WEB站点

程序代码:


'=========================================================
'函数介绍:使用ASP启动/停止指定WEB站点
'本函数使用ADSI,需要Administrators组用户权限
'函数名称:AdminWebSite(Computer,WebSiteNum,DoWhat)
'用法:AdminWebSite(计算机名称,站点编号,启动/停止)
'例:启动127.0.0.1计算机上站点编号为1的站点
'AdminWebSite "127.0.0.1","1",1
'例:停止127.0.0.1计算机上站点编号为1的站点
'AdminWebSite "127.0.0.1","1",0
'=======================================================
Function AdminWebSite(Computer,WebSiteNum,DoWhat)
On Error Resume Next
Set objServer = GetObject("IIS://" & Computer & "/W3SVC/" & WebSiteNum)
If Err.Number <> 0 Then
 Response.Write Now & ". 错误码: " & Hex(Err)& " - " & "无法开启指定站点<br>"
End If
if Dowhat=1 then
'使用Start启动站点
 objServer.Start
 If Err.Number <> 0 Then
 Response.Write "无法启动指定Web站点<br>"
 else
 Response.Write "已经启动指定Web站点<br>"
 End If
elseif DoWhat=0 then
 '使用Stop停止站点
 objServer.Stop
 If Err.Number <> 0 Then
 Response.Write "无法停止指定Web站点<br>"
 else
 Response.Write "已经停止指定Web站点<br>"
 End If
end if
End Function


使用ASP列出服务器WEB站点信息

程序代码:


'=====================================================
'函数介绍:列出当前服务器WEB站点信息
'本函数使用ADSI,需要Administrators组用户权限
'函数名称:ListWebSite (Computer,Num)
'用法:ListWebSite (计算机名称,显示站点数量)
'例:显示127.0.0.1计算机上1000个站点信息
'ListWebSite "127.0.0.1","1000"
'====================================================
Function ListWebSite(Computer,Num)
On Error Resume Next
Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&i)
for i=0 to Num
 Err.Clear
 if Err.Number=0 then
 response.write "<p><b>以下显示为计算机:"&Computer&"上所有站点信息</b></p>"
 ShowWebSite = SiteObj.Get("ServerBindings") '获得站点IP地址:端口:主机头
 Info=split(ShowWebSite(0),":")
 response.write "站点编号:"&i&"<br>"
 response.write "站点IP地址:"&Info(0)&"<br>"
 response.write "站点端口:"&Info(1)&"<br>"
 response.write "站点主机头:"&Info(2)&"<br><br>"
 end if
next
set SiteOjb=nothing
End Function

使用ASP删除指定IIS站点

程序代码:


'======================================================
'函数介绍:删除指定IIS站点
'本函数使用ADSI,需要Administrators组用户权限
'函数名称:DelWebSite (Computer,SiteNum)
'用法:DelWebSite 计算机名,站点编号
'例:DelWebSite "127.0.0.1","2"
'======================================================
Function DelWebSite(Computer,SiteNum)
Set W3SVC = GetObject("IIS://"&Computer&"/w3svc")
W3SVC.delete "IIsWebServer",SiteNum
response.write "删除成功!"
End Function


通过ASP管理NT帐号

程序代码:


'=======================================================
'函数介绍:通过ASP管理NT帐号
'本函数使用ADSI,需要Administrators组用户权限
'====================================================
'填加用户
'函数用法:AddUser(Computer,UserName,PassWord,FullName,Info)
'参数:计算机名,帐号名称,帐号密码,帐号全名,帐号说明
'例:AddUser "127.0.0.1","Test","Test","测试管理员帐号","本帐号通过ASP填加"
'修改指定用户基本信息
'函数用法:EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'参数:计算机名,帐号名称,帐号密码,帐号全名,帐号说明
'例:EditUser "127.0.0.1","Test","Test2","测试管理员帐号修改","本帐号通过ASP修改过"
'删除指定用户
'函数用法:DelUser(Computer,UserName)
'参数:计算机名,用户名'
'例:DelUser "127.0.0.1","Test"
========================================================
Function AddUser(Computer,UserName,PassWord,FullName,Info)
'执行创建帐号命令
Set ComputerObj = GetObject("WinNT://"&Computer)
Set NewUser = ComputerObj.Create( "User" , UserName )
NewUser.SetInfo
'进行帐号设置
NewUser.SetPassword ( PassWord ) '帐号密码
NewUser.FullName = FullName '帐号全名
NewUser.Description = Info '帐号说明
NewUser.UserFlags = &H10000 '&H20000(使用者下次登入时须变更密码) &H0040(使用者不得变更密码) &H10000(密码永久正确) &H0002(帐户暂时停用)
NewUser.SetInfo
response.write "帐号"&UserName&"创建成功!"
Set ComputerObj=nothing
End Function

Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'读取用户信息
Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")
'修改帐号密码
if PassWord<>"" then
 ChangeUserObj.SetPassword PassWord
 response.write "帐号密码修改成功!<br>"
end if
'修改帐号全名
if FullName<>"" then
 UserFullName = ChangeUserObj.get("FullName")
 ChangeUserObj.FullName = FullName
 ChangeUserObj.SetInfo
 response.write "帐号全名修改成功!<br>"
end if
'修改帐号说明
if Info<>"" then
 UserFullName = ChangeUserObj.get("Description")
 ChangeUserObj.Description = Info
 ChangeUserObj.SetInfo
 response.write "帐号说明修改成功!<br>"
end if
Set ChangeUserObj=nothing
End Function

Function DelUser(Computer,UserName)
Set DelUserObj = GetObject("WinNT://"&Computer&"/"&UserName)
If Err = &H800401E4 Then
 Response.Write "用户"&UserName&"不存在"
 Response.End
End If
Set DelObj = GetObject(DelUserObj.Parent)
DelObj.Delete "User", DelUserObj.Name
Set DelUserObj = Nothing
Set DelObj = Nothing
Response.Write "删除成功"
End Function


使用ASP控制指定站点解析脚本语言函数

程序代码:


Function AdminAegis(Computer,SiteNum)
Set IIsWebServiceObj = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)
dim Aegis(1)
Aegis(0)=".asp,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE"
'Aegis(1)=".aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG"
'解析其它文件请同样使用Aegis(Num)=""这种格式,记得要将dim Aegis(Num)定义
'.htw,C:WINNTsystem32webhits.dll,3,GET,HEAD,POST
'.ida,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
'.idq,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
'.asp,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.cer,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.cdx,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.asa,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.idc,C:WINNTsystem32inetsrvhttpodbc.dll,5,GET,POST<br>
'.shtm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
'.shtml C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
'.stm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
'.asax C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,
DEBUG
'.ascx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.ashx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.asmx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.axd,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.vsdisco,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.rem,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.soap,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.config,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.cs,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.csproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.vb,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.vbproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.webinfo,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.licx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.resx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.resources,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,
HEAD,POST,DEBUG
IIsWebServiceObj.ScriptMaps=Aegis
IIsWebServiceObj.SetInfo
'显示支持脚本语言
response.write "当前站点支持解析列表:<br>"
For ValueIndex = 0 To UBound(IIsWebServiceObj.ScriptMaps)
 response.write IIsWebServiceObj.Get("ScriptMaps")(ValueIndex)
 response.write "<br>"
Next
End Function


使用ASP列出NT用户组及用户

程序代码:


'=======================================================
'函数介绍:列出NT用户组及用户
'本函数使用ADSI,需要Administrators组用户权限
'函数名称:ListGroup(Computer)
'用法:ListGroup(计算机名称)
'例:显示127.0.0.1计算机NT用户组及用户
'ListGroup "127.0.0.1"
'=======================================================
Function ListGroup(Computer)
response.write "<p><b>以下为计算机"&Computer&"系统用户组及用户列表</b></p>"
Set ComputerObj = GetObject("WinNT://"&Computer)
ComputerObj.Filter = Array("Group")
For Each Member in ComputerObj
 Response.Write "用户组:"&Member.Name&"<br>"
 ListUser Computer,Member.Name
Next
end Function

'列出指定用户组用户
Function ListUser(Computer,Group)
Set UserObj = GetObject("WinNT://"&Computer&"/"&Group)
For Each Member in UserObj.Members
 Response.write "    组中用户:"&Member.Name &"<br>"
Next
End Function

IIS 提供了 IIS Admin Objects,让用户可以通过程序来管理IIS。IIS Admin Objects 基于 Microsoft Active Directory Service Interfaces (ADSI)。任何支持 Automation 的编程语言,如 ASP 中的 VBScript/JScript,Visual Basic, Java, 或 C++ 都能使用它。
您可以参考以下的 ASP 示例程序来修改 IIS 默认站点的地址:
<%
       Set IISOBJ = GetObject("IIS://MyServer/w3svc/1/root")
       IISOBJ.Path = "D:newroot"
       IISOBJ.SetInfo
       Set IISOBJ=Nothing
%>
注意:用户必须要对 IIS Metabase 有足够的权限。
关于如何用程序来管理 IIS,您可以到 MSDN 参考以下的文章:
Administering IIS Programmatically
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/html/psdk/asp/aint7e9l.asp

posted @ 2015-05-22 09:03 腾云 阅读(844) 评论(0) 推荐(0) 编辑

2015年5月13日

摘要: Access中数据库转义字符规则:插入、更新、=匹配 数据时,文本类型如用''括起来,中间可以有 ",*,%,[,],/,/,?,(,),{,}的任意组合,如要插入一个',需写''并在整个表达式外套一对''如,插入 '张''三',数据库里就是 张'三,用方括号是不可以的插入、更新、=匹配 数据时,文... 阅读全文
posted @ 2015-05-13 14:14 腾云 阅读(1110) 评论(0) 推荐(0) 编辑

2013年1月15日

摘要: 'sendMail"99669806@qq.com","QQ","aaaa","bb" '收件人邮箱,发件人姓名,标题,内容 Function sendMail(email,sendname,zhuti,mailbody) Server.ScriptTimeOut=5000 If Not isInstallObj("JMail.Message") Then exit function d... 阅读全文
posted @ 2013-01-15 16:00 腾云 阅读(2091) 评论(0) 推荐(0) 编辑

2012年11月1日

摘要: 今天同事问我IE6查看源代码 怎么老是用记事本打开 看起来太不舒服了 可以修改吗 当时也没搞出来 由于我自己的是IE8而网上搜到的都是IE8以前的版本的(一开始我以为都一样的) 无法测试 所以就没告诉我同事 晚上回来查到这篇文章 蛮好的~~~转来学习下IE8及IE9无意中发现,原来修改也很简单:1、管理员身份打开IE(很喜欢这样的方式,WIN7的安全控制搞的比XP好不少,有人感觉很烦,我也很烦这些人);2、点“工具”,点“开发人员工具”,打开开发人员工具,快捷键F12;3、点“文件”,点“自定义Internet Explorer查看源文件(C)”,点“其他(O)”,选择要修改的程序,再点“代开 阅读全文
posted @ 2012-11-01 09:20 腾云 阅读(318) 评论(0) 推荐(1) 编辑

2011年11月7日

摘要: 1.设置SQL脚本大小写不敏感USE [master]GOALTER DATABASE [DatabaseName] COLLATE Chinese_PRC_CI_AIGO2.设置大SQL脚本大小写敏感USE [master]GOALTER DATABASE [DatabaseName] COLLATE Chinese_PRC_CS_AIGO3.设置参考值_CI_AI 不区分大小写、不区分重音、不区分假名类型、不区分宽度_CI_AI_WS 不区分大小写、不区分重音、不区分假名类型、区分宽度_CI_AI_KS 不区分大小写、不区分重音、区分假名类型、不区分宽度_CI_AI_KS_WS 不区分大小 阅读全文
posted @ 2011-11-07 16:21 腾云 阅读(325) 评论(0) 推荐(0) 编辑

2011年10月14日

摘要: 1、数字转换到字符串格式说明符说明示例输出C货币2.5.ToString("C")¥2.50D十进制数25.ToString("D5")00025E科学型25000.ToString("E")2.500000E+005F固定点25.ToString("F2")25.00G常规2.5.ToString("G")2.5N数字2500000.ToString("N")2,500,000.00X十六进制255.ToString("X")FF固定长度一个数值其它方法 阅读全文
posted @ 2011-10-14 20:21 腾云 阅读(152) 评论(0) 推荐(0) 编辑

2011年9月21日

摘要: 这几天在做个项目,其中用到了SWFUpload进行多图上传.当用vs2010启动调试的时候,问题出现了,当我用Chorme浏览器的时候,可以看到这可爱的flash按钮.当我用IE9打开的时候,死活看不到.然后我在IE9中打开SWFUpload的官网,查看demo,确可以看到的.这让我很不解,于是我又将flash链接地址修改成远程的. 引用的文件:<script type="text/javasc... 阅读全文
posted @ 2011-09-21 10:30 腾云 阅读(1135) 评论(0) 推荐(0) 编辑

2010年11月19日

摘要: 其中使用到一个分页类CPaging 代码如下: 以下是调用页 代码如下: 阅读全文
posted @ 2010-11-19 20:03 腾云 阅读(157) 评论(0) 推荐(0) 编辑

2010年11月16日

摘要: //资源:C:\Inetpub\AdminScripts\cscript adsutil.vbs ,C:\WINNT\system32\cscript.exe adsutil.vbs HELP                 &#... 阅读全文
posted @ 2010-11-16 14:57 腾云 阅读(603) 评论(0) 推荐(0) 编辑
摘要:       如何快速建立Subversion服务器,并且在项目中使用起来,这是大家最关心的问题,与CVS相比,Subversion有更多的选择,也更加的容易,几个命令就可以建立一套服务器环境,可以使用起来,这里配套有动画教程。 本文是使用Subversion最快速的教程,在最短的时间里帮助您建立起一套可用的服务器环境,只需略加调整就可以应用到实际项... 阅读全文
posted @ 2010-11-16 14:37 腾云 阅读(322) 评论(0) 推荐(0) 编辑

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示