2008-01
13
Sun
给UBB 添加新的图片显示样式（渐隐）
作者:Edge 日期:2008-01-13 14:29
[photo=4,宁静]download.asp?id=18[/photo]
前些天看见有人在论坛上发了一个图片渐隐显示的帖子，于是为了方便在UBB添加了新的样式
主要步骤为：
1.打开common/common.js 文件在其最后添加
程序代码//图片渐隐
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
if (!document.all)
return
if (object != "[object]"){ //do this so I can take a string too
setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
return;
}
clearTimeout(nereidFadeTimers[object.sourceIndex]);
diff = destOp-object.filters.alpha.opacity;
direction = 1;
if (object.filters.alpha.opacity > destOp){
direction = -1;
}
delta=Math.min(direction*diff,delta);
object.filters.alpha.opacity+=direction*delta;
if (object.filters.alpha.opacity != destOp){
nereidFadeObjects[object.sourceIndex]=object;
nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
}
}
//<!-- edit by Edge for 图片渐隐 -->
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
if (!document.all)
return
if (object != "[object]"){ //do this so I can take a string too
setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
return;
}
clearTimeout(nereidFadeTimers[object.sourceIndex]);
diff = destOp-object.filters.alpha.opacity;
direction = 1;
if (object.filters.alpha.opacity > destOp){
direction = -1;
}
delta=Math.min(direction*diff,delta);
object.filters.alpha.opacity+=direction*delta;
if (object.filters.alpha.opacity != destOp){
nereidFadeObjects[object.sourceIndex]=object;
nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
}
}
//<!-- edit by Edge for 图片渐隐 -->
[pagebreak]
2.打开common/ubbcode.asp 在
Next
End if 两行中间插入
程序代码'-----------渐隐图像----------------
re.Pattern="\[photo=(0|1|2|3|4|5|),(.[^\]]*)\](.[^\]]*)(\[\/photo\])"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=strMatch.SubMatches(1)
tmpStr3=checkURL(strMatch.SubMatches(2))
strContent=replace(strContent,strMatch.Value,"<img src="""&tmpStr3&""" onmouseout=""nereidFade(this,50,10,5)"" onmouseover=""nereidFade(this,100,10,5)"" style=""filter: alpha(opacity=55);border:"&tmpStr1&"px solid #fff;margin:2px;"" alt="""&tmpStr2&"""/>",1,-1,0)
Next
'-----------渐隐图像----------------
re.Pattern="\[photo=(0|1|2|3|4|5|),(.[^\]]*)\](.[^\]]*)(\[\/photo\])"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=strMatch.SubMatches(1)
tmpStr3=checkURL(strMatch.SubMatches(2))
strContent=replace(strContent,strMatch.Value,"<img src="""&tmpStr3&""" onmouseout=""nereidFade(this,50,10,5)"" onmouseover=""nereidFade(this,100,10,5)"" style=""filter: alpha(opacity=55);border:"&tmpStr1&"px solid #fff;margin:2px;"" alt="""&tmpStr2&"""/>",1,-1,0)
Next
'-----------渐隐图像----------------
3. 打开UBBCode_Gecko.js 在最后加入
程序代码//===========Edge修改 star================
//帖渐隐图像
function UBB_photo(){
if (EditMethod=="normal")
{
var PopText
if (PopText=window.prompt(photo_normal,"")) {
AddText("\n[photo]"+PopText+"[/photo]")
}
}
if (EditMethod=="expert")
{
AddText("[photo=0,title][/photo]")
}
}
//===========Edge修改 end================
//帖渐隐图像
function UBB_photo(){
if (EditMethod=="normal")
{
var PopText
if (PopText=window.prompt(photo_normal,"")) {
AddText("\n[photo]"+PopText+"[/photo]")
}
}
if (EditMethod=="expert")
{
AddText("[photo=0,title][/photo]")
}
}
//===========Edge修改 end================
4.打开UBBCode_help.js 在最后加入
程序代码var photo_normal = "请输入渐隐图像的 URL。\n使用标签:[photo=0,title][/photo]";
[pagebreak]
5.打开common/UBBCode_IE.js 在最后加入
//帖渐隐图像
程序代码function UBB_photo(){
var UBBSelectrange=document.selection.createRange()
if (SelectAllow && UBBSelectrange.text!=""){
UBBSelectrange.text="[photo]"+UBBSelectrange.text+"[/photo]"
return
}
if (EditMethod=="normal")
{
var PopText
if (PopText=window.prompt(photo_normal,"")) {
AddText("\n[photos=0,title]"+PopText+"[/photos]")
}
}
if (EditMethod=="expert")
{
AddText("[photos=0,title][/photos]")
}
}
var UBBSelectrange=document.selection.createRange()
if (SelectAllow && UBBSelectrange.text!=""){
UBBSelectrange.text="[photo]"+UBBSelectrange.text+"[/photo]"
return
}
if (EditMethod=="normal")
{
var PopText
if (PopText=window.prompt(photo_normal,"")) {
AddText("\n[photos=0,title]"+PopText+"[/photos]")
}
}
if (EditMethod=="expert")
{
AddText("[photos=0,title][/photos]")
}
}
以上步骤注意，由于我是UBB模式编辑的PHOTO 标签会自动转换，此步代码的PHOTOS 全部应为 PHOTO,修改时请注意。
6.打开 UBBconfig.asp
找到 第一个
程序代码 highlightcode
在后面加入
程序代码 ,photo
找到
程序代码 function Tip(str)
Select Case str
Select Case str
换行插入
程序代码case "photo":
Tip="插入渐隐图像"
Tip="插入渐隐图像"
最后将下面的PHOTO.GIF 保存到你皮肤目录的 UBB/ICONS目录下面
等有空了再做成自动安装文件，如有问题请留言本站！
文章来自: 
引用通告: 
Tags: 
]v3用了有错误啊。
就照这个步骤修改后无法浏览。
提示
UBBconfig.asp 语句错误!
如若再不行的话，请将修改的文件发我的邮箱。我帮你测试！或给我演示地址
就照这个步骤修改后无法浏览。
提示
UBBconfig.asp 语句错误!
Edge于2008-10-13 07:54 PM回复
经测试PJ3 1.57版是正常的。请确认你修改的是否正确，并检查以前修改是否一直如若再不行的话，请将修改的文件发我的邮箱。我帮你测试！或给我演示地址
2008-10-12 08:45 PM 回复该评论
老大,我一切都成功！图片也能正常显示，唯独一点，就是图片不能渐变，一直处于半透明状态，鼠标放上去不管用！是什么情况哦~~~加你QQ了！！~~
Edge 于 2008-08-24 02:17 PM 回复
请仔细检查每一步修改步骤。 2008-08-23 09:22 PM 回复该评论
在PJ论坛直接下载的附件.复盖后日志评论处出现错误
发表评论
昵 称:
内 容: Microsoft VBScript runtime ?펳 '800a01f4'
Variable is undefined: 'UBBeditorCore'
/class/cls_article.asp??А 260
发表评论
昵 称:
内 容: Microsoft VBScript runtime ?펳 '800a01f4'
Variable is undefined: 'UBBeditorCore'
/class/cls_article.asp??А 260
Edge 于 2008-08-19 10:05 AM 回复
你覆盖的文件必须针对PJ2.7B5版本，其他版本请自己手动修改 2008-08-19 00:44 AM 回复该评论
发表评论
但是 图片无法显示
是显示的 【photo=0,title】 图片地址【/photo】