歌声与微笑

       动网升为8.0了，常来看贴，发现很多人还是想要这个功能，今天早上把它弄好了，想用的人就顶下贴吧。

---

下面来修改：

1、打开inc/upload_class.asp

找到判断文件类型:0=其它,1=图片,2=FLASH,3=音乐,4=电影

在下面的类别里添加自己想要增加的扩展名：如第三类添加"wma"，"wmv"，第四类添加,"rm"

如改成以下这样：

如改成这样:

Private Function CheckFiletype(Byval FileExt)
 FileExt = Lcase(Replace(FileExt,".",""))
 Select Case FileExt
   Case "gif", "jpg", "jpeg","png","bmp","tif","iff"
    CheckFiletype=1
   Case "swf", "swi"
    CheckFiletype=2
   Case "mid", "wav", "mp3","rmi","cda","wma","wmv"
    CheckFiletype=3
   Case "avi", "mpg", "mpeg","ra","ram","wov","asf","rm"
    CheckFiletype=4
   Case Else
    CheckFiletype=0
 End Select
End Function

2、在Skins\Default\filetype

目录里添加与刚添加扩展名一样的图标如"wma.gif","wmv.gif","rm,gif"(用原有图标直接复制粘贴下即

可)。

3、打开post_upload.asp

找到:
If F_Type=1 then
 Response.write

"<script>parent.Dvbbs_Composition.document.body.innerHTML+='[upload="&FileExt&","&F_OldName&

"]"&ShwoFileName&"[/upload]

<br>'</script>"
Else
 Response.write

"<script>parent.Dvbbs_Composition.document.body.innerHTML+='[upload="&FileExt&","&F_OldName&

"]viewFile.asp?

ID="&DownloadID&"[/upload]<br>'</script>"
End If

在下面添加:


If F_Type=2 then
 Response.write

"<script>parent.Dvbbs_Composition.document.body.innerHTML+='[flash=480,360]"&ShwoFileName&"[

/flash]<br>'</script>"
End If
If F_Type=3 then
 Response.write

"<script>parent.Dvbbs_Composition.document.body.innerHTML+='[MP=480,360,true]"&ShwoFileName&

"[/MP]<br>'</script>"
End If
If F_Type=4 then
 Response.write

"<script>parent.Dvbbs_Composition.document.body.innerHTML+='[RM=480,360,true]"&ShwoFileName&

"[/RM]<br>'</script>"
End If

修改完成。