上传附件显示详细信息插件 for dvbbs 7.1.0

上传附件显示详细信息插件 V1.11 for Dv7.1.0 插件名称：上传附件显示详细信息 插件版本：1.11 插件作者：老庙黄金 发布时间：2005年3月18日 主要功能： 1、单贴间多个下载文件单独记录下载次数并显示文件名 2、显示原来上传时的文件名，而不是变成序号的文件名（不影响保密功能） 3、可以查看下载者的功能（只有发布者和管理员可以看到，别人看不到） 4、文件长度显示，该Byte就Byte，该KByte就KByte，该MByte就MByte 5、无论上传文件后系统加了什么样的后缀序号（其实是用于防盗和防止文件重名的），下载时都会只显示原来的文件名，不会出现后边的一长串序号（这个功能要在系统开启了防盗功能才有效） 6、上传图片时不进行原文件名的处理 安装办法： 一、将压缩包中的z_Upload.asp上传至论坛根目录 二、修改inc/dv_ubbcode.asp： 1、在第一行之前添加： <!--#include file="../z_Upload.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(viewFile\.asp.[^\x01]*)\x01\/UPLOAD\x02" s= re.Replace(s,"<br><IMG SRC=""skins/default/filetype/$1.gif"" border=0> <a href=""$2"" target=_blank>点击浏览该文件</a>") 改为： s=Dv_UbbCode_Upload(s,PostUserGroup,Flag,MaxLoopCount,abgcolor) 三、修改inc/Upload_Class.asp： 1、找到： Private Function FormatName(Byval FileExt) 改为： Private Function FormatName(Byval FileExt, Byval FileType, Byval OrigFileName) 2、找到： TempStr = Year(now) & Month(now) & Day(now) & Hour(now) & Minute(now) & Second(now) & RanNum & "." & FileExt 下边添加： If FileType=1 Or FileType=2 Then Else TempStr = OrigFileName & "___" & TempStr End If 3、找到（一共四处都要改）： FileName = FormatName(FileExt) FileType = CheckFiletype(FileExt) 改为： FileType = CheckFiletype(FileExt) FileName = FormatName(FileExt, FileType, Replace(File.FileName,Chr(0),"")) 四、修改viewfile.asp： 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"