parse1.asp

分析torrent的东西是拿别人的

<%
   for a=1 to 100
   Set tp = Server.CreateObject("Torrent.Parse") 
   tp.LoadFile("D:\我的文档\torrent\200509090900283653.torrent")
   response.Write(tp.Name&"<br>")
   response.Write(tp.Hash&"<br>")
   response.Write(CDbl(tp.Size)&"<br>")
   response.Write(Replace(tp.FileList, chr(13), "<br>"))
   'response.Write(tp.BinaryHash&"<br>")
   'response.Write(tp.CreatedBy&"<br>")
   response.Write(tp.AnnounceList&"<br>")
   'tp.Close
   Set tp = Nothing
   next
%>