asp打包类

<% 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”) r.packname = Server.MapPath(“xxx.dat”) r.UnP