[改造DVBBS83]主题列表显示上传文件的多个图标

mccad

动网上传的文件，在主题列表中，只能显示单个图标，如果用户在一个贴子里上传了图片、压缩文件、文本文件等多个格式的文件，在主题列表中也只能显示一个图标，这对于浏览者来说并不直观，所以我们把它改了，让它可以显示多个图标。
改后的效果如下：
index.asp文件：
1.在
  Case "pagelist"
下面的
If lastpost(4)＜＞"" Then TPL_Echo " ＜img src="""&Dvbbs.Forum_PicUrl&"filetype/"&lastpost(4)&".gif"" width=""16"" height=""16"" class=""filetype"" /＞  "
删除掉，换成：(共2处)

2.   'mccad edit filetypedisp 7
3.    If lastpost(4)<>"" Then
4.     dim varFileType,strFileType
5.     varFileType=split(lastpost(4),"|")
6.     For each strFileType in varFileType
7.      TPL_Echo "&nbsp;<img src="""&Dvbbs.Forum_PicUrl&"filetype/"&strFileType&".gif"" width=""16"" height=""16"" class=""filetype"" />&nbsp;"
8.     next
9.    end if

复制代码

savepost.asp文件：
1.

1.   For i=0 to ubound(Forumupload)
2.    If Instr(Content,"[upload="&Forumupload(i)&"]") or Instr(Content,"."&Forumupload(i)&"") or Instr(Content,"["&Forumupload(i)&"]") then
3.     uploadpic_n=Forumupload(i)
4.     Exit For
5.    End If
6.   Next
7.   If InStr(Content,"viewfile.asp?ID=") Then uploadpic_n="down"

复制代码

改为

1.   'mccad edit filetypedisp 7
2.   For i=0 to ubound(Forumupload)
3.    If Instr(Content,"[upload="&Forumupload(i)&"]") or Instr(Content,"."&Forumupload(i)&"") or Instr(Content,"["&Forumupload(i)&"]") then
4.     uploadpic_n=Forumupload(i)&" "&uploadpic_n
5.     'uploadpic_n=Forumupload(i)
6.     'Exit For
7.    End If
8.   Next
9.   uploadpic_n=replace(trim(uploadpic_n)," ","|")
10.   'If InStr(Content,"viewfile.asp?ID=") Then uploadpic_n="down"

复制代码

boyhong

很人性化的改动，PF+敬业