说明:<% 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” <weixin_38623249> 上传 | 大小:27kb