如何编写一个创建FTP站点的函数？
Functionnbsp;ASTCreateFtpSite(IPAddress,nbsp;RootDirectory,nbsp;ServerComment,nbsp;HostName,nbsp;PortNum,nbsp;Computer,nbsp;Start,LogFileDirectory)
nbsp;nbsp;nbsp;nbsp;Dimnbsp;MSFTPSVC,nbsp;FtpServer,nbsp;NewFtpServer,nbsp;NewDir
nbsp;nbsp;nbsp;nbsp;Dimnbsp;Bindings,nbsp;BindingString,nbsp;NewBindings,nbsp;Index,nbsp;SiteObj,nbsp;bDone
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Onnbsp;Errornbsp;Resumenbsp;Next
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Err.Clear
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Setnbsp;MSFTPSVCnbsp;=nbsp;GetObject("IIS://"nbsp;nbsp;Computernbsp;nbsp;"/MSFTPSVC")
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;Err.Numbernbsp;lt;gt;nbsp;0nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WScript.Echonbsp;"无法打开:nbsp;""IIS://"nbsp;nbsp;Computernbsp;nbsp;"/MSFTPSVC"nbsp;nbsp;VbCrlfnbsp;nbsp;"程序将退出!"
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WScript.Quitnbsp;(1)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;BindingStringnbsp;=nbsp;IpAddressnbsp;nbsp;":"nbsp;nbsp;PortNumnbsp;nbsp;":"nbsp;nbsp;HostName
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Fornbsp;Eachnbsp;FtpServernbsp;innbsp;MSFTPSVC
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;FtpServer.Class="IIsFtpServer"nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Bindingsnbsp;=nbsp;FtpServer.ServerBindings
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;BindingStringnbsp;=nbsp;Bindings(0)nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WScript.Echonbsp;"噢,IP地址冲突:"nbsp;nbsp;IpAddressnbsp;nbsp;",请检测IP地址！"nbsp;nbsp;VbCrlfnbsp;nbsp;"取消创建本站点."
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Exitnbsp;Function
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Next
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Indexnbsp;=nbsp;1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;bDonenbsp;=nbsp;False
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Whilenbsp;(Notnbsp;bDone)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Err.Clear
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Setnbsp;SiteObjnbsp;=nbsp;GetObject("IIS://"Computer"/MSFTPSVC/"nbsp;nbsp;Index)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;(Err.Numbernbsp;=nbsp;0)nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Indexnbsp;=nbsp;Indexnbsp;+nbsp;1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Err.Clear
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Setnbsp;NewFtpServernbsp;=nbsp;MSFTPSVC.Create("IIsFtpServer",nbsp;Index)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;(Err.Numbernbsp;lt;gt;nbsp;0)nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Indexnbsp;=nbsp;Indexnbsp;+nbsp;1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Err.Clear
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Setnbsp;SiteObjnbsp;=nbsp;GetObject("IIS://"Computer"/MSFTPSVC/"nbsp;nbsp;Index)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;(Err.Numbernbsp;=nbsp;0)nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;bDonenbsp;=nbsp;True
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Indexnbsp;=nbsp;Indexnbsp;+nbsp;1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;(Indexnbsp;gt;nbsp;10000)nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WScript.Echonbsp;"噢,创建站点异常!正在创建的站点的序号为:"Index"."nbsp;nbsp;VbCrlfnbsp;nbsp;"取消创建本站点."
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Exitnbsp;Function
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Wend
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewBindingsnbsp;=nbsp;Array(0)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewBindings(0)nbsp;=nbsp;BindingString
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.ServerBindingsnbsp;=nbsp;NewBindings
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.ServerCommentnbsp;=nbsp;ServerComment
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.AllowAnonymousnbsp;=nbsp;False
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.AccessWritenbsp;=nbsp;True
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.AccessReadnbsp;=nbsp;True
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.DontLognbsp;=nbsp;False
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.LogFileDirectorynbsp;=nbsp;LogFileDirectory
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.SetInfo
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Setnbsp;NewDirnbsp;=nbsp;NewFtpServer.Create("IIsFtpVirtualDir",nbsp;"ROOT")
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewDir.Pathnbsp;=nbsp;RootDirectory
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewDir.AccessReadnbsp;=nbsp;true
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Err.Clear
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewDir.SetInfo
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;(Err.Numbernbsp;=nbsp;0)nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WScript.Echonbsp;"噢,主目录创建时出错!"
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;Startnbsp;=nbsp;Truenbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Err.Clear
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Setnbsp;NewFtpServernbsp;=nbsp;GetObject("IIS://"nbsp;nbsp;Computernbsp;nbsp;"/MSFTPSVC/"nbsp;nbsp;Index)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NewFtpServer.Start
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;Err.Numbernbsp;lt;gt;nbsp;0nbsp;Then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WScript.Echonbsp;"噢,启动站点时出错!"
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Err.Clear
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;If
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;Ifnbsp;nbsp;nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ASTCreateFtpSitenbsp;=nbsp;Index
Endnbsp;Function （编辑：我爱制作网_池州站长网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
