打印

[制作求助] 制作图片渐变效果出错（寻高手求助100PJ币）已解决8#的方法

liuweiyuai

PJFORUM老会员

Rank: 8 Rank: 8

UID: 47132
帖子: 57
精华: 0
积分: 897
PJ币: 154 元
专长
在线时间: 84 小时
注册时间: 2007-7-25

发短消息
加为好友
当前离线

1^# 大中小发表于 2008-8-6 23:48 只看该作者

制作图片渐变效果出错（寻高手求助100PJ币）已解决8#的方法

我按照一下代码修改的我反复对了几遍都是一样的效果
Microsoft VBScript runtime �� '800a01a8'

Object required: 're'

/common/ubbcode.asp�� 327
这是截图

下面是我修改的方法和代码注明：不是我写的在网上找的原作者本人就不知道了
主要步骤为：
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);
}
}

//

2.打开common/ubbcode.asp  在最后一行的 End Function 前加入

程序代码
'-----------渐隐图像----------------

               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================

4.打开UBBCode_help.js  在最后加入

程序代码
var photo_normal = "请输入渐隐图像的 URL。\n使用标签:[photo=0,title][/photo]";

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[photo=0,title]"+PopText+"[/photo]")
}
}

if (EditMethod=="expert")
{
   AddText("[photo=0,title][/photo]")
}
}

以上步骤注意，由于我是UBB模式编辑的PHOTO 标签会自动转换，此步代码的PHOTOS 全部应为 PHOTO,修改时请注意。

6.打开 UBBconfig.asp
  找到第一个

程序代码
highlightcode

在后面加入

程序代码
,photo

找到

程序代码
function Tip(str)
Select Case str

  换行插入

程序代码
case "photo":
Tip="插入渐隐图像"

[ 本帖最后由 liuweiyuai 于 2008-8-7 22 编辑 ]

附件: 您所在的用户组无法下载或查看附件

http://www.babyky.cn 宝贝天空 http://www.80kook.cn 八零乌托邦
宝贝天空交换友情链接中····

TOP

popo

叫我Popo

｛PJFORUM版主｝

Rank: 32

『 PJ-Blog 基本使用版主』

UID: 33671
帖子: 724
精华: 0
积分: 7155
PJ币: 1399 元
专长: 扯淡
在线时间: 643 小时
注册时间: 2007-2-14

发短消息
加为好友
当前离线

2^# 大中小发表于 2008-8-7 00:02 只看该作者

本人完全正确。要是你以前没修改过那些文件还是直接覆盖吧

个人新站z-po.cn
没回复的问题说明我不懂，请不要逼问。以免给您带来麻烦

TOP

liuweiyuai

PJFORUM老会员

Rank: 8 Rank: 8

UID: 47132
帖子: 57
精华: 0
积分: 897
PJ币: 154 元
专长
在线时间: 84 小时
注册时间: 2007-7-25

发短消息
加为好友
当前离线

3^# 大中小发表于 2008-8-7 06:32 只看该作者

引用:

原帖由 popo 于 2008-8-7 00:02 发表
本人完全正确。要是你以前没修改过那些文件还是直接覆盖吧

这段代码是你写的吗·· 麻烦你仔细看下·修改common/ubbcode.asp这个文件我找了下资料提示就段代码错误 re.Pattern="\[photo=(0|1|2|3|4|5|),(.[^\]]*)\](.[^\]]*)(\[\/photo\])"

http://www.babyky.cn 宝贝天空 http://www.80kook.cn 八零乌托邦
宝贝天空交换友情链接中····

TOP

popo

叫我Popo

｛PJFORUM版主｝

Rank: 32

『 PJ-Blog 基本使用版主』

UID: 33671
帖子: 724
精华: 0
积分: 7155
PJ币: 1399 元
专长: 扯淡
在线时间: 643 小时
注册时间: 2007-2-14

发短消息
加为好友
当前离线

4^# 大中小发表于 2008-8-7 10:06 只看该作者

不是我写的
是搜索下图片渐显就有了

个人新站z-po.cn
没回复的问题说明我不懂，请不要逼问。以免给您带来麻烦

TOP

瓷库网

瓷库

PJFORUM新人

Rank: 3 Rank: 3 Rank: 3

UID: 62694
帖子: 47
精华: 0
积分: 147
PJ币: 63 元
专长
在线时间: 10 小时
注册时间: 2008-5-21

发短消息
加为好友
当前离线

5^# 大中小发表于 2008-8-7 11:42 只看该作者

有心无力呀

个性生活 "从"瓷开始瓷库中国　http://www.gogochina.cn

TOP

Ficent

阑殇

｛PJFORUM版主｝

Rank: 32

『 PJ-Blog 站长茶馆』区版主

UID: 65981
帖子: 1073
精华: 0
积分: 3465
PJ币: 1087 元
专长
在线时间: 238 小时
注册时间: 2006-7-26

荣誉版主

发短消息
加为好友
当前离线

6^# 大中小发表于 2008-8-7 13:35 只看该作者

貌似在PJ3下修改后生成HTM出错

『PJBbs技术交流党』PJBLOG用户群:59472443

TOP

limiaojing

PJFORUM老会员

Rank: 8 Rank: 8

UID: 40717
帖子: 63
精华: 0
积分: 1873
PJ币: 91 元
专长
在线时间: 181 小时
注册时间: 2007-4-28

发短消息
加为好友
当前离线

7^# 大中小发表于 2008-8-7 13:43 只看该作者

你大概是看我的网站的方法吧?tiny-times.cn
你是pj3?
我是pj275 我的是成功的你自己看我的网

http://byosoku5cm.cn

TOP

四川-果果

Edge

｛PJFORUM版主｝

Rank: 32

『插件区版主』

UID: 53000
帖子: 759
精华: 0
积分: 11679
PJ币: 1256 元
专长
在线时间: 1092 小时
注册时间: 2007-12-13

发短消息
加为好友
当前离线

8^# 大中小发表于 2008-8-7 14:28 只看该作者

很抱歉，一直忘记修改这个错误了。
2.打开common/ubbcode.asp 在最后一行的 End Function 前加入
应该修改为：将代码插入任何一个
NEXT
END IF 中间

请大家把问题解决后请自行修改编辑帖子标明“已解决”，并将解决方法补全，以方便日后查看
对于热心解答者，给予一定的奖励！支持适用、原创。大家多多加油，共同把PJFourm建设好！

TOP

8577182

Panda.Knight

PJFORUM新人

Rank: 3 Rank: 3 Rank: 3

Panda.Knight

UID: 65066
帖子: 13
精华: 0
积分: 443
PJ币: 38 元
专长
在线时间: 43 小时
注册时间: 2008-7-8

发短消息
加为好友
当前离线

9^# 大中小发表于 2008-8-7 15:06 只看该作者

楼上大大正解。

引用:

2.打开common/ubbcode.asp  在最后一行的 End Function 前加入

程序代码
'-----------渐隐图像----------------

               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
'-----------渐隐图像----------------

这个插入在楼上大大说的地方就好了

TOP

lanyfeng

PJFORUM老会员

Rank: 8 Rank: 8

UID: 45086
帖子: 56
精华: 0
积分: 2196
PJ币: 22 元
专长
在线时间: 214 小时
注册时间: 2007-6-19

发短消息
加为好友
当前离线

10^# 大中小发表于 2008-8-7 15:22 只看该作者

PJ3在UBB下图片透明渐变效果好像会出错,
下面是一个在FCK编辑模式下的代码添加方法：
1.先在header.asp的</head>上方添加<如果是静态模式的话,这段代码也需要添加到Template/static.htm中的</head>上方>
如下代码：
<script language='JavaScript'>
// Flash Image Extension for Dreamwever ,by Yichun Yuan(dezone@sina.com)
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);
}
}
</script>
2，在common文件里的common.js把:
      case 'gif':
      if (EditType=="UBBEditor"){parent.document.forms[0].Message.value+='

\n'}
      else{oEditor.InsertHtml('<img style="border-right: #000000 1px dotted; border-top: #000000 1px dotted; filter: alpha(opacity=50); left: 0px; border-left: #000000 1px dotted; border-bottom: #000000 1px dotted; top: 0px; alt="" align="left" border="1" src="'+path+'" alt=""/>')}
               break;
      case 'jpg':
      if (EditType=="UBBEditor"){parent.document.forms[0].Message.value+='

\n'}
      else{oEditor.InsertHtml('<img style="border-right: #000000 1px dotted; border-top: #000000 1px dotted; filter: alpha(opacity=50); left: 0px; border-left: #000000 1px dotted; border-bottom: #000000 1px dotted; top: 0px; alt="" align="left" border="1" src="'+path+'" alt=""/>')}
               break;
      case 'png':
      if (EditType=="UBBEditor"){parent.document.forms[0].Message.value+='

\n'}
      else{oEditor.InsertHtml('<img style="border-right: #000000 1px dotted; border-top: #000000 1px dotted; filter: alpha(opacity=50); left: 0px; border-left: #000000 1px dotted; border-bottom: #000000 1px dotted; top: 0px; alt="" align="left" border="1" src="'+path+'" alt=""/>')}
               break;
      case 'bmp':
      if (EditType=="UBBEditor"){parent.document.forms[0].Message.value+='

\n'}
      else{oEditor.InsertHtml('<img style="border-right: #000000 1px dotted; border-top: #000000 1px dotted; filter: alpha(opacity=50); left: 0px; border-left: #000000 1px dotted; border-bottom: #000000 1px dotted; top: 0px; alt="" align="left" border="1" src="'+path+'" alt=""/>')}
               break;
      case 'jpeg':
      if (EditType=="UBBEditor"){parent.document.forms[0].Message.value+='

\n'}
else{oEditor.InsertHtml('<img style="border-right: #000000 1px dotted; border-top: #000000 1px dotted; filter: alpha(opacity=50); left: 0px; border-left: #000000 1px dotted; border-bottom: #000000 1px dotted; top: 0px; alt="" align="left" border="1" img src="'+path+'" alt=""/>')}
break;

替换掉case 'gif':
开始到
case 'mp3':
的上方就可以了,这个效果要在fck下才有用。
发现由于ubb原因，上面代码显示图片位，所以希望修改的时候用原来代码相应地方代码替换下！

[ 本帖最后由 lanyfeng 于 2008-8-7 15 编辑 ]

TOP

PJBlog3 2.8.5.157 新版发布下载\|升级(2008.8.26)	来给PJ3提提发展建议	2008版 PJHOME 珍藏/纪念版官方T恤正式发布！	PJ3内测团队主创人员身份，性格，特点吐血大曝光
PJBlog技术支持论坛使用问题总索引	PJ-Blog 3 斑竹日志	【独家】我使用过的三种空间，与客服的精彩故事	Z-Blog,Wordpress,Bo-Blog转换到PJBlog