上传flash mp3 wmv自动播放For DVBBS8.1
[ 2007/12/27 00:48 | by admin ]
本不想弄这个的,今天一客户应该是想升级DVBBS,还想用8.0时修改的这个功能吧,下面把修改方法发上来吧,还是和原来的8.0时的修改差不多,只不过修改的时候小心仔细点就可以了,这次没去DV官方发布,好久不用DV了,感觉去那没意思了,也不想去发贴了。
---------------------------------------------------优美的分割线------------------------------------------------------
下面来修改:
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,68,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
修改完成。
---------------------------------------------------优美的分割线------------------------------------------------------
---------------------------------------------------优美的分割线------------------------------------------------------
下面来修改:
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,68,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
修改完成。
---------------------------------------------------优美的分割线------------------------------------------------------