以前经常向虚拟主机上传和下载自己的网站。文件使用FTP命令一条一条执行传效率还是很低的。 我做了一个网站文件和XML文件互相转换的类，发布出来方便大家使用。 /** * @author shadu####foxmail.com * @version v0.2 * @updated 2009-05-20 * @desc Covert the files on the website to one XML,where excluede the special file extend name *
<% On Error Resume Next Dim r Set r = New Rar r.Add Server.MapPath(“a.gIf”) r.Add Server.MapPath(“a.txt”) r.Add Server.MapPath(“test”) r.Add Server.MapPath(“file.asp”) r.packname = Server.MapPath(“xxx.dat”) r.Pack r.rootpath = Server.MapPath(“xxx”
