早上去了dvbbs的官方论坛,又看到了有人需要这个功能,前些天也有人用QQ加我,说要我把7.1的改成8.0可用,当时怕麻烦,再加上我也不再用DVBBS了,所以就拒绝了,今天看来还是有必要做一下,其实过程很简单,修改方法如下:
为了避免大家出错,我把我改好的文件传上来,直接覆盖即可使用。
引用
动网升为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
修改完成。
下面来修改:
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
修改完成。
为了避免大家出错,我把我改好的文件传上来,直接覆盖即可使用。
下载文件
xiaoyuwxz
2007/08/02 10:55
贴完后就发现动网贴子内容打不开了,等过会能打开了,却发现一通乱码,上面的播放代码自动形成的播放器,害我改了好多次才成功,郁闷啊,连个贴都不会发了。感叹的动网的落没,这也许也是我不再想用动网的原因之一了。
分页: 1/1 1