因为网上的那个有点BUG，所以我做了修改，现在无错了，如果不想自己改的话下面有做好的文件大家自己下了覆盖就可以了
修改涉及到 common.js 和 ubbcode.asp
1.在common.js 加入函数
因为网上的那个有点BUG，所以我做了修改，现在无错了，如果不想自己改的话下面有做好的文件大家自己下了覆盖就可以了[/color]
修改涉及到 common.js 和 ubbcode.asp
1.在common.js 加入函数
[code]function ubbShowObj(strType,strID,strURL,intWidth,intHeight)
{
var varHeader="b";
var tmpstr="";
var bSwitch = false;
bSwitch = document.getElementById(varHeader+strID).value;
bSwitch =~bSwitch;
document.getElementById(varHeader+strID).value = bSwitch;
if(bSwitch){
document.getElementById(strID).innerHTML = "Source URL";
}else{
switch(strType){
case "swf":
tmpstr="";
break;
case "wma":
tmpstr="";
break;
case "wmv":
tmpstr="";
break;
case "mp3":
tmpstr="";
break;
case "mid":
tmpstr="";
break;
case "rm":
tmpstr="
";
break;
case "ra":
tmpstr=";"
break;
case "qt":
tmpstr="
[code]strContent=replace(strContent,"[swf=550,400]","[swf=500,375]",1,-1,1)
strContent=replace(strContent,"[wma]","[wma=300,69]",1,-1,1)
strContent=replace(strContent,"[wmv]","[wmv=400,369]",1,-1,1)
strContent=replace(strContent,"[mp3]","[mp3=300,69]",1,-1,1)
strContent=replace(strContent,"[mid]","[mid=300,50]",1,-1,1)
strContent=replace(strContent,"[rm]","[rm=400,300]",1,-1,1)
strContent=replace(strContent,"[ra]","[rm=300,64]",1,-1,1)
strContent=replace(strContent,"[qt]","[qt=400,300]",1,-1,1)
re.Pattern="\[(swf|wma|wmv|mp3|mid|rm|ra|qt)=(\d*?|),(\d*?|)\]([^<>]*?)\[\/(swf|wma|wmv|mp3|mid|rm|ra|qt)\]"
Dim rStr
Set strMatches=re.Execute(strContent)
For Each strMatch in strMatches
rStr=Generator(6)
tmpStr1=CheckLinkStr(strMatch.SubMatches(3))
strContent=replace(strContent,strMatch.Value,"
Next
Set strMatches=nothing
End IF
[/code]
红色部分自己改
如果自己不愿意改的话我这有做好的文件你直接下载就可以了[color=Red]（注意：如果你使用了分页功能的话可以直接下载使用，其它版本的用户请自己修改）[down=attachments/month_0411/41s7_nintendo.rar]点击下载此文件[/down]
