BTʾϸϢ V1.0 for Dv7.1.0

ƣBTʾϸϢ
汾1.0
ߣƽ
ʱ䣺2005320

Ҫܣ

1BitTorrent¼شʾļ
2ʾԭϴʱļǱŵļӰ챣ܹܣ
3Բ鿴ߵĹܣֻзߺ͹ԱԿ˿
4ļʾByteByteKByteKByteMByteMByte
5ϴļϵͳʲôĺ׺ţʵڷͷֹļģʱֻʾԭļֺߵһţҪϵͳ˷ܲЧ
6ϴͼƬʱԭļĴ
7ϴļʱɶȡBiteTorrentϢдݿ⣬ʾʱٶȡϢµҳ
8֧ͬʱʾϴļʾBitTorrentϢ
9ʾBTļеơʱ䡢ֿСֿܼƴСߡļϢ
10Ѿ˼BTԼʵʱʾĹܣֻʵʱϢ޷ݿУҪķѴķԴ˸ر

װ취

һѹеz_Upload.aspϴ̳Ŀ¼


޸inc/dv_ubbcode.asp

	1ڵһ֮ǰӣ
		<!--#include file="../z_BTInfo.asp"-->
	
	2ҵ㰲װˡExifϢʾ for Dv7.1.0ôһͲˣ
		Public Re,reed,isgetreed,Board_Setting
	Ϊ
		Public Re,reed,isgetreed,Board_Setting,abgcolor

	3ҵ
		re.Pattern="\x01UPLOAD=(.[^\x01]*)\x02\x01\/UPLOAD\x02"
		s=re.Replace(s,"")
	
	±ӣװˡϴʾϸϢ V1.11 for Dv7.1.0ôһһҪs=Dv_UbbCode_Upload(s,PostUserGroup,Flag,MaxLoopCount,abgcolor)ǰߣ
		s=Dv_UbbCode_BT(s,PostUserGroup,Flag,MaxLoopCount,abgcolor)
 
޸Post_Upload.aspļ£

	1ҵ
		<!-- #include File="inc/dv_clsother.asp" -->
	е±߲һУ
		<!-- #include File="z_BTInfo.asp" -->
	
	2ҵ
		Dim OnceUPCount
	е±߲У
		Dim F_BTInfo

	3ҵ
		Set File = Upload.UploadFiles(FormName)
	е±߲һУ
		F_BTInfo=""
		If LCase(File.FileExt)="torrent" Then F_BTInfo=GetBTInfo(F_FileName)

	===== ûаװExifϢʾ V1.11 for Dv7.1.0޸ =====

	4ҵ
		UploadSave F_FileName,ChildFilePath&File.FileName,File.FileExt,F_Viewname,File.FileSize,File.FileType
	Ϊ
		UploadSave F_FileName,ChildFilePath&File.FileName,File.FileExt,F_Viewname,File.FileSize,File.FileType,F_BTInfo
	
	5ҵ
		Sub UploadSave(FileName,ChildFileName,FileExt,ViewName,FileSize,F_Type)
	Ϊ
		Sub UploadSave(FileName,ChildFileName,FileExt,ViewName,FileSize,F_Type,F_BTInfo)
	
	6ҵ
		Dvbbs.Execute("Insert into Dv_upFile (F_BoardID,F_UserID,F_Username,F_Filename,F_Viewname,F_FileType,F_Type,F_FileSize,F_Flag) values ("&Dvbbs.BoardID&","&Dvbbs.UserID&",'"&Dvbbs.Membername&"','"&ChildFileName&"','"&ViewName&"','"&FileExt&"',"&F_Type&","&FileSize&",4)")
	Ϊ
		If F_BTInfo<>"" Then
			Dvbbs.Execute("Insert into Dv_upFile (F_BoardID,F_UserID,F_Username,F_Filename,F_Viewname,F_FileType,F_Type,F_FileSize,F_Flag,F_DownUser) values ("&Dvbbs.BoardID&","&Dvbbs.UserID&",'"&Dvbbs.Membername&"','"&ChildFileName&"','"&ViewName&"','"&FileExt&"',"&F_Type&","&FileSize&",4,'"&Replace(F_BTInfo,"'","''")&"$$$')")
		Else
			Dvbbs.Execute("Insert into Dv_upFile (F_BoardID,F_UserID,F_Username,F_Filename,F_Viewname,F_FileType,F_Type,F_FileSize,F_Flag) values ("&Dvbbs.BoardID&","&Dvbbs.UserID&",'"&Dvbbs.Membername&"','"&ChildFileName&"','"&ViewName&"','"&FileExt&"',"&F_Type&","&FileSize&",4)")
		End If

	===== 㰲װExifϢʾ V1.11 for Dv7.1.0޸ =====

	4ҵ
		UploadSave F_FileName,ChildFilePath&File.FileName,File.FileExt,F_Viewname,File.FileSize,File.FileType,F_Exif
	Ϊ
		UploadSave F_FileName,ChildFilePath&File.FileName,File.FileExt,F_Viewname,File.FileSize,File.FileType,F_Exif,F_BTInfo
	
	5ҵ
		Sub UploadSave(FileName,ChildFileName,FileExt,ViewName,FileSize,F_Type,F_Exif)
	Ϊ
		Sub UploadSave(FileName,ChildFileName,FileExt,ViewName,FileSize,F_Type,F_Exif,F_BTInfo)
	
	6ҵ
		Dvbbs.Execute("Insert into Dv_upFile (F_BoardID,F_UserID,F_Username,F_Filename,F_Viewname,F_FileType,F_Type,F_FileSize,F_Flag,F_DownUser) values ("&Dvbbs.BoardID&","&Dvbbs.UserID&",'"&Dvbbs.Membername&"','"&ChildFileName&"','"&ViewName&"','"&FileExt&"',"&F_Type&","&FileSize&",4,'"&Replace(F_Exif,"'","''")&"')")
	Ϊ
		If F_BTInfo<>"" Then
			Dvbbs.Execute("Insert into Dv_upFile (F_BoardID,F_UserID,F_Username,F_Filename,F_Viewname,F_FileType,F_Type,F_FileSize,F_Flag,F_DownUser) values ("&Dvbbs.BoardID&","&Dvbbs.UserID&",'"&Dvbbs.Membername&"','"&ChildFileName&"','"&ViewName&"','"&FileExt&"',"&F_Type&","&FileSize&",4,'"&Replace(F_BTInfo,"'","''")&"$$$')")
		Else
			Dvbbs.Execute("Insert into Dv_upFile (F_BoardID,F_UserID,F_Username,F_Filename,F_Viewname,F_FileType,F_Type,F_FileSize,F_Flag,F_DownUser) values ("&Dvbbs.BoardID&","&Dvbbs.UserID&",'"&Dvbbs.Membername&"','"&ChildFileName&"','"&ViewName&"','"&FileExt&"',"&F_Type&","&FileSize&",4,'"&Replace(F_Exif,"'","''")&"')")
		End If

ġ޸viewfile.asp㰲װˡϴʾϸϢ V1.11 for Dv7.1.0ô±ߵͶˣ

	1ҵ
		If Dvbbs.Forum_Setting(75)="0" Then
			Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1 Where F_ID="&DownID)
			Response.Redirect uploadpath&rs("F_filename")
		Else
			filename=Replace(rs("F_filename"),"..","")&""
			If Request.ServerVariables("HTTP_REFERER")="" Or InStr(Request.ServerVariables("HTTP_REFERER"),Request.ServerVariables("SERVER_NAME"))=0 Or filename="" Then
				Response.Redirect "index.asp"
			Else
				Call downloadFile(Server.MapPath(Dvbbs.Forum_Setting(76)&filename))
				
			End If
		End If
	Ϊ
		If Dvbbs.Forum_Setting(75)="0" Then
			If Dvbbs.UserID<>0 Then
				Call UpdateDownUser(rs("f_downuser"),Dvbbs.MemberName)
			Else
				Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1 Where F_ID="&DownID)
			End If
			Response.Redirect uploadpath&rs("F_filename")
		Else
			filename=Replace(rs("F_filename"),"..","")&""
			If Request.ServerVariables("HTTP_REFERER")="" Or InStr(Request.ServerVariables("HTTP_REFERER"),Request.ServerVariables("SERVER_NAME"))=0 Or filename="" Then
				Response.Redirect "index.asp"
			Else
				If Dvbbs.UserID<>0 Then
					Call UpdateDownUser(rs("f_downuser"),Dvbbs.MemberName)
				Else
					Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1 Where F_ID="&DownID)
				End If
				Call downloadFile(Server.MapPath(Dvbbs.Forum_Setting(76)&filename))
			End If
		End If
	
	2ҵ
	  If Response.IsClientConnected Then 
	   Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name 
	Ϊ
		If Response.IsClientConnected Then 
			Dim TruePos
			Dim TrueFileName
			
			TruePos=InStrRev(f.name,"___")
			If TruePos>0 Then
				TrueFileName=Left(f.name,TruePos-1)
			Else
				TrueFileName=f.name
			End If
			TruePos=InStrRev(TrueFileName,"/")
			If TruePos>0 Then
				TrueFileName=Right(TrueFileName,Len(TrueFileName)-TruePos)
			End If
			Response.AddHeader "Content-Disposition", "attachment; filename=" & TrueFileName

	3ļ%>֮ǰӣ
		Sub UpdateDownUser(DownUser,UserName)
			If Not Instr(1,"|"&DownUser&"|","|"&UserName&"|")>0 Then
				If IsNull(DownUser) Or DownUser="" Then
					Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1,F_DownUser='"&UserName&"' Where F_ID="&DownID)
				Else
					Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1,F_DownUser='"&DownUser&"|"&UserName&"' Where F_ID="&DownID)
				End If
			End If
		End Sub

塢޸Dispbbs.asp㰲װˡExifϢʾ for Dv7.1.0ôһͲˣ

	ҵ
		If Not (node.attributes.getNamedItem("LockUser").text="2" Or (node.attributes.getNamedItem("isbest").text="1" And Dvbbs.GroupSetting(41)="0") Or node.attributes.getNamedItem("LockUser").text="1") Then
	±ӣ
		If i Mod 2 = 0 Then dv_ubb.abgcolor="Tablebody2" Else dv_ubb.abgcolor="TableBody1"
