动网8.3 论坛附件图片显示Exif信息插件

蓝雨

安装前请备份inc/dv_ubbcode.asp,以便错误时恢复或卸载本插件之用。

附件中提供了修改好的 inc/dv_ubbcode.asp 文件 如果你要手动修改只需上传 Dv_Exif.asp 到论坛根目录即可

修改步骤:
1,inc/dv_ubbcode.asp
在顶部添加

1. <!--#include file="../Dv_exif.asp"-->

复制代码

2,查找

1. s = Replace(s,"LoadTime","LoadTime.")

复制代码

下面添加

1. s = Replace(s,"ExifInfo","ExifInfo.") 'Exif相片信息

复制代码

3,查找

1. Private Function Dv_UbbCode_U(strText,PostUserGroup,Flag) '(帖子内容，用户组，是否开放图片标签)
   
2.   Dim s
   
3.   Dim downUrl
   
4.   Dim Match

复制代码

下面添加

1. Dim ExifInfoTempStr

复制代码

4,查找

1. s= re.Replace(s,"<br/><img "& DV_UBB_TITLE &" src=""skins/default/filetype/$1.gif"" border=""0"" />此主题相关图片如下：$3<br/><a href="""&Dvbbs.Forum_Setting(76)&"$4"" target=""_blank"" ><img "& DV_UBB_TITLE &" src="""&Dvbbs.Forum_Setting(76)&"$4"" border=""0"" alt=""按此在新窗口浏览图片"" /></a>")

复制代码

改为

1. 
   
2. rem 添加Exif相片信息 add by reoaiq at 091211 Start
   
3.     Dim F_i_e,F_FileNames,x2,SqlStr_e,F_RS_e,F_Del_e,F_Data_e
   
4.     F_i_e=0
   
5.     If re.Test(s) Then
   
6.      Set match = re.Execute(s)
   
7.      Dim item_e
   
8.      For Each item_e In match
   
9.       If re.Replace(item_e,"$4")="" Then Exit For
   
10.       If F_i_e=0 Then
    
11.        F_FileNames = "'"&re.Replace(item_e,"$4")&"'"
    
12.       Else
    
13.        F_FileNames = F_FileNames &"," & "'"&re.Replace(item_e,"$4")&"'"
    
14.       End If
    
15.       F_i_e = F_i_e+1
    
16.      Next
    
17.      Set match=Nothing
    
18.     End If
    
19.     F_i_e=F_i_e-1
    
20.     If F_FileNames <> "" Then
    
21.    SqlStr_e = "Select F_ID,F_FileSize,F_filename From Dv_Upfile Where F_filename In("& F_FileNames &") order by F_filename Asc"
    
22.      Set F_RS_e=Dvbbs.execute(SqlStr_e)
    
23.      If F_RS_e.Bof And F_RS_e.Eof Then
    
24.       F_Data_e=""
    
25.       F_Del_e=1
    
26.      Else
    
27.          F_Data_e = F_RS_e.GetRows(-1)
    
28.       F_Del_e=0
    
29.      End If
    
30.      Set F_RS_e=Nothing
    
31.     If F_i_e=UBound(F_Data_e,2)+1 Then '判断图片个数与内容多1时,F_i_e得再减1,否则下标越界
    
32.     F_i_e=F_i_e-1
    
33.     End If
    
34.        ExifInfoTempStr = "<img "& DV_UBB_TITLE &" src=""skins/default/filetype/$1.gif"" border=""0"" width=""16"" height=""16"" />此主题相关图片如下：$3<br/><a href="""&Dvbbs.Forum_Setting(76)&"$4"" target=""_blank"" ><img "& DV_UBB_TITLE &" src="""&Dvbbs.Forum_Setting(76)&"$4"" border=""0"" alt=""按此在新窗口浏览图片"" /></a><br/><div name=""ExifInfo"" id=""$4"">&nbsp;</div>"
    
35.     s = re.Replace(s,ExifInfoTempStr)
    
36. If FileInfo=1 Then
    
37.     '输出Exif信息
    
38.     x2=0
    
39.     If F_Del_e=0 then
    
40.      If CInt(F_i_e)>=0 Then
    
41.       UpFileInfoScript =  "<scr"&"ipt type=""text/javascript"" language=""javascript"">" & VBCrLf
    
42.       For x2=0 To F_i_e
    
43.        If E_Template_U(Dvbbs.Forum_Setting(76)&F_Data_e(2,x2))="" Then
    
44.         UpFileInfoScript = UpFileInfoScript & "document.getElementById('"&F_Data_e(2,x2)&"').innerHTML='';" & VBCrLf
    
45.        Else
    
46.         UpFileInfoScript = UpFileInfoScript & "document.getElementById('"&F_Data_e(2,x2)&"').innerHTML="""&E_Template_U(Dvbbs.Forum_Setting(76)&F_Data_e(2,x2))&""";" & VBCrLf
    
47.        End If
    
48.       Next
    
49.       UpFileInfoScript = UpFileInfoScript & "</sc"&"ript>" & VBCrLf
    
50.      End If
    
51.     Else
    
52.      If CInt(F_i_e)>=0 Then
    
53.       UpFileInfoScript =  "<scr"&"ipt type=""text/javascript"" language=""javascript"">" & VBCrLf
    
54.       For x2=0 To F_i_e
    
55.        UpFileInfoScript = UpFileInfoScript & "document.getElementById('"&F_Data_e(2,x2)&"').innerHTML='';" & VBCrLf
    
56.       Next
    
57.       UpFileInfoScript = UpFileInfoScript & "</sc"&"ript>" & VBCrLf
    
58.      End If
    
59.     End If
    
60. End If
    
61.     '输出Exif信息
    
62.    
    
63.     End If
    
64. rem 添加Exif相片信息 'add by reoaiq at 091211 End

复制代码

接着查找（只需修改查找到的第一个）

1. If CInt(F_i)>=0 Then
   
2.       UpFileInfoScript =  "<scr"&"ipt type=""text/javascript"" language=""javascript"">" & VBCrLf
   
3.       For x=0 To F_i

复制代码

改为

1. If CInt(F_i)>=0 Then
   
2.       UpFileInfoScript = UpFileInfoScript &  "<scr"&"ipt type=""text/javascript"" language=""javascript"">" & VBCrLf
   
3.       For x=0 To F_i

复制代码

Dv_Exif_8.3.rar (24.55 KB, 下载次数: 2)

2010-4-1 18:57 上传

点击文件名下载附件