ASP网站制作之asp创立用户、目次和站点
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.本讲将利用到ADSI，即举动目次服务接口.能够到15Seconds.com找到一些相干的材料.1.创立用户
上面这段代码在自力服务器white上创立用户user1,初始口令user1,用到了ADSI.
DimUsername,UserPass
DimoDomain,oUser
Username="user1"
UserPass="user1"
SetoDomain=GetObject("WinNT://white")
SetoUser=oDomain.Create("user",UserName)
If(err.number=0)Then
oUser.SetInfo
oUser.SetPasswordUserPass
oUser.SetInfo
Else
WScript.Echo"创立用户"&UserName&"堕落！"
EndIf
SetoUser=Nothing
SetoDomain=Nothing
2.创立目次
利用FileSystemObject创立目次:
DimFsObject
DimtmpFolder
SetFsObject=WScript.CreateObject("Scripting.FileSystemObject")
tmpFolder="D:userdateuser1"
IfNotFsObject.FolderExists(tmpFolder)Then
FsObject.CreateFolder(tmpFolder)
IfErr.Number0Then
WScript.Echo"创立目次"&tmpFolder&"失利！"
EndIf
EndIf
注重在创立目次前,先反省了目次是不是存在,假如存在,则不必创立了.
3.创立站点
上面这个子程序卖力创立一个WWW站点,各个参数的意义为：站点IP地点,站点根目次,站点申明,主机名,端标语,盘算机名(一搬为LOCALHOST),是不是当即启动,匿名会见时所利用的帐号,匿名会见时所用帐号的口令,LOG文件的目次.
函数前往所建站点在IIS中的序号(在IIS中,一切站点顺次编号,第一个为1).
一个挪用示例：siteid=ASTCreateWebSite("10.1.3.122","d:userdatauser1","www_user1","","80","LocalHost",True,"IUSR_user1","8iui%#","D:Logfiles")
FunctionASTCreateWebSite(IPAddress,RootDirectory,ServerComment,HostName,PortNum,Computer,Start,AnonymousUserName,AnonymousUserPass,LogFileDirectory)
Dimw3svc,WebServer,NewWebServer,NewDir
DimBindings,BindingString,NewBindings,Index,SiteObj,bDone
OnErrorResumeNext
Err.Clear
Setw3svc=GetObject("IIS://"&Computer&"/w3svc")
IfErr.Number0Then
WScript.Echo"没法翻开:"&"IIS://"&Computer&"/w3svc"&VbCrlf&"程序将加入."
WScript.Quit(1)
EndIf
BindingString=IpAddress&":"&PortNum&":"&HostName
ForEachWebServerinw3svc
IfWebServer.Class="IIsWebServer"Then
Bindings=WebServer.ServerBindings
IfBindingString=Bindings(0)Then
WScript.Echo"IP地点抵触:"&IpAddress&",请检测IP地点！."&VbCrlf&"作废创立本站点。"
ExitFunction
EndIf
EndIf
Next
Index=1
bDone=False
While(NotbDone)
Err.Clear
SetSiteObj=GetObject("IIS://"&Computer&"/w3svc/"&Index)
If(Err.Number=0)Then
Index=Index+1
Else
Err.Clear
SetNewWebServer=w3svc.Create("IIsWebServer",Index)
If(Err.Number0)Then
Index=Index+1
Else
Err.Clear
SetSiteObj=GetObject("IIS://"&Computer&"/w3svc/"&Index)
If(Err.Number=0)Then
bDone=True
Else
Index=Index+1
EndIf
EndIf
EndIf
If(Index>10000)Then
WScript.Echo"看起来不克不及创立站点，正在创立的站点的序号为："&Index&"."&VbCrlf&"作废创立本站点。"
ExitFunction
EndIf
Wend
NewBindings=Array(0)
NewBindings(0)=BindingString
NewWebServer.ServerBindings=NewBindings
NewWebServer.ServerComment=ServerComment
NewWebServer.AnonymousUserName=AnonymousUserName
NewWebServer.AnonymousUserPass=AnonymousUserPass
NewWebServer.KeyType="IIsWebServer"
NewWebServer.FrontPageWeb=True
NewWebServer.EnableDefaultDoc=True
NewWebServer.DefaultDoc="Default.htm,Default.asp,Index.htm,Index.asp"
NewWebServer.LogFileDirectory=LogFileDirectory
NewWebServer.SetInfo
SetNewDir=NewWebServer.Create("IIsWebVirtualDir","ROOT")
NewDir.Path=RootDirectory
NewDir.AccessRead=true
NewDir.AppFriendlyName="使用程序"&ServerComment
NewDir.AppCreateTrue
NewDir.AccessScript=True
Err.Clear
NewDir.SetInfo
If(Err.Number=0)Then
Else
WScript.Echo"主目次创立时堕落."
EndIf
IfStart=TrueThen
Err.Clear
SetNewWebServer=GetObject("IIS://"&Computer&"/w3svc/"&Index)
NewWebServer.Start
IfErr.Number0Then
WScript.Echo"启动站点时堕落!"
Err.Clear
Else
EndIf
EndIf
ASTCreateWebSite=Index
EndFunction
上面函数创立ＦＴＰ站点：
FunctionASTCreateFtpSite(IPAddress,RootDirectory,ServerComment,HostName,PortNum,Computer,Start,LogFileDirectory)
DimMSFTPSVC,FtpServer,NewFtpServer,NewDir
DimBindings,BindingString,NewBindings,Index,SiteObj,bDone
OnErrorResumeNext
Err.Clear
SetMSFTPSVC=GetObject("IIS://"&Computer&"/MSFTPSVC")
IfErr.Number0Then
WScript.Echo"没法翻开:"&"IIS://"&Computer&"/MSFTPSVC"&VbCrlf&"程序将加入."
WScript.Quit(1)
EndIf
BindingString=IpAddress&":"&PortNum&":"&HostName
ForEachFtpServerinMSFTPSVC
IfFtpServer.Class="IIsFtpServer"Then
Bindings=FtpServer.ServerBindings
IfBindingString=Bindings(0)Then
WScript.Echo"IP地点抵触:"&IpAddress&",请检测IP地点！."&VbCrlf&"作废创立本站点。"
ExitFunction
EndIf
EndIf
Next
Index=1
bDone=False
While(NotbDone)
Err.Clear
SetSiteObj=GetObject("IIS://"&Computer&"/MSFTPSVC/"&Index)
If(Err.Number=0)Then
Index=Index+1
Else
Err.Clear
SetNewFtpServer=MSFTPSVC.Create("IIsFtpServer",Index)
If(Err.Number0)Then
Index=Index+1
Else
Err.Clear
SetSiteObj=GetObject("IIS://"&Computer&"/MSFTPSVC/"&Index)
If(Err.Number=0)Then
bDone=True
Else
Index=Index+1
EndIf
EndIf
EndIf
If(Index>10000)Then
WScript.Echo"看起来不克不及创立站点，正在创立的站点的序号为："&Index&"."&VbCrlf&"作废创立本站点。"
ExitFunction
EndIf
Wend
NewBindings=Array(0)
NewBindings(0)=BindingString
NewFtpServer.ServerBindings=NewBindings
NewFtpServer.ServerComment=ServerComment
NewFtpServer.AllowAnonymous=False
NewFtpServer.AccessWrite=True
NewFtpServer.AccessRead=True
NewFtpServer.DontLog=False
NewFtpServer.LogFileDirectory=LogFileDirectory
NewFtpServer.SetInfo
SetNewDir=NewFtpServer.Create("IIsFtpVirtualDir","ROOT")
NewDir.Path=RootDirectory
NewDir.AccessRead=true
Err.Clear
NewDir.SetInfo
If(Err.Number=0)Then
Else
WScript.Echo"主目次创立时堕落."
EndIf
IfStart=TrueThen
Err.Clear
SetNewFtpServer=GetObject("IIS://"&Computer&"/MSFTPSVC/"&Index)
NewFtpServer.Start
IfErr.Number0Then
WScript.Echo"启动站点时堕落!"
Err.Clear
Else
EndIf
EndIf
ASTCreateFtpSite=Index
EndFunction
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。
页:
[1]