如何编写一个创建FTP站点的函数？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, NewFtpServer, NewDir Dim Binding...
http://www.jb51.net//article/4675.htm
如何编写一个过滤掉HTML代码的函数？<%FunctionFilterhtml(strToFilter) DimstrTemp strTemp=strToFilter WhileInstr(1,strTemp,"<")ANDInstr(1,strTemp,">") strTemp=Left(strTemp,Instr(1,strTemp,"<")-1)&Right(strTemp,Len(strTemp)-Instr(1,strTemp,">")) WEnd Filterhtml=st...
http://www.jb51.net//article/4674.htm