vc2010 atl编写的asp com控件
可以比较全面的分析种子文件，可以用来转换bt种子为磁力链接
使用例子
<%
'创建服务器对象
Set tp = Server.CreateObject("Bdecode.MyTorrent")
'打开种子文件
tp.OpenTorrent(Server.MapPath("3.torrent"))
'获取Announce
response.Write(tp.GetAnnounce()&"<br>")
'获取Announce-List
AnnounceLists=split(tp.GetAnnounceList(),"|")
for i=0 to ubound(AnnounceLists)
response.write AnnounceLists(i)
response.write "<br>"
next
'获取种子来源名
response.Write(tp.GetName()&"<br>")
'获取种子内文件总大小，单位B
response.Write(tp.GetTsize()&"<br>")
'获取种子文件创建时间
response.Write(tp.GetDate()&"<br>")
'获取种子说明内容
response.Write(tp.GetComment()&"<br>")
'获取种子创建软件名
response.Write(tp.GetCreator()&"<br>")
'获取Publisher
response.Write(tp.GetPublisher()&"<br>")
'获取InfoHash
response.Write(tp.GetHash()&"<br>")
'获取种子内文件名列表
FileNames=split(tp.GetFileList(),"|")
'获取种子内文件路径列表
FilePaths=split(tp.GetPath(),"|")
'获取种子内文件大小列表，单位B
FileSizes=split(tp.GetLength(),"|")
for i=0 to ubound(FileNames)
response.write FileNames(i)
response.write "<br>"
response.write FileSizes(i)
response.write "<br>"
response.write FilePaths(i)
response.write "<br>"
next
'释放资源
Set tp = Nothing
%>
需要源码的可以另外联系我
