ASP网页设计ASP把持假造主机函数ADSI
ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；函数|把持|假造主机|函数|假造主机利用ASP设置指定站点CPU最年夜利用水平=================================================
函数先容：设置指定站点CPU最年夜利用水平
本函数利用ADSI，必要Administrators组用户权限
函数称号：SetCPULimitVar(Computer,SiteNum,LimitVar)
用法：SetCPULimitVar盘算机名，站点编号，最年夜限定值（100=1%，1000=10%）
例：SetCPULimitVar"LocalHost","2","2000"
=================================================
FunctionSetCPULimitVar(Computer,SiteNum,LimitVar)
SetMyObj001=GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)
设置启用CPU限定
MyObj001.CpuLimitsEnabled=True
设置限定利用额度值
MyObj001.CpuLimitLogEvent=LimitVar
MyObj001.setinfo
SetMyObj001=Nothing
EndFunction
利用ASP在IIS创立WEB站点的函数
=============================================================
函数先容：创立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","wwwtest.net","IUSR_Num001_test.net","abc888",True
=============================================================
FunctionCreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
Dimw3svc,WebServer,NewWebServer,NewDir
DimBindings,BindingString,NewBindings,SiteNum,SiteObj,bDone
OnErrorResumeNext
Err.Clear
检测是不是可以加载W3SVC服务（即WEB服务）
Setw3svc=GetObject("IIS://"&Computer&"/w3svc")
IfErr.Number0Then显现毛病提醒
response.write"没法翻开:"&"IIS://"&Computer&"/w3svc"
response.end
EndIf
检测是不是有设定不异IP地点、端口及主机名的站点存在
BindingString=IPAddr&":"&PortNum&":"&HostName
ForEachWebServerinw3svc
IfWebServer.Class="IIsWebServer"Then
Bindings=WebServer.ServerBindings
IfBindingString=Bindings(0)Then
response.write"IP地点抵触:"&IPAddr&",请检测IP地点！."
ExitFunction
EndIf
EndIf
Next
断定一个不存在的站点编号做为新建站点编号，体系默许WebSite站点编号为1，因而从2入手下手
SiteNum=2
bDone=False
While(NotbDone)
Err.Clear
SetSiteObj=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
SetNewWebServer=w3svc.Create("IIsWebServer",SiteNum)创立指定站点
If(Err.Number0)Then
response.write"Step_2站点"&SiteNum&"创立失利"
SiteNum=SiteNum+1
Else
response.write"Step_2站点"&SiteNum&"创立乐成"
bDone=True
EndIf
EndIf
If(SiteNum>50)Then服务器最年夜创立站点数
response.write"超越服务器最年夜创立站点数，正在创立的站点的序号为："&SiteNum&"."
response.end
EndIf
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
SetNewDir=NewWebServer.Create("IIsWebVirtualDir","ROOT")
NewDir.Path=WebSiteDirectory
NewDir.AccessRead=true
NewDir.AppFriendlyName="使用程序"&WebSiteInfo
NewDir.AppCreateTrue
NewDir.AccessScript=True
Err.Clear
NewDir.SetInfo
If(Err.Number0)Then
response.write"主目次创立时堕落."
response.end
EndIf
IfStartOrStop=TrueThen
Err.Clear
SetNewWebServer=GetObject("IIS://"&Computer&"/w3svc/"&SiteNum)
NewWebServer.Start
IfErr.Number&</p>因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。
页:
[1]