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