动网官方论坛动网论坛交流插件开发使用插件收集区 → 暴龙的勋章修改到7.1

动网论坛商业版 享受贴心服务 创新时代、PHP2.0++强劲推出 动网空间买2送1,国际域名78元 动网合租服务器 专业+品质 隆重推出
动网ASP8.2最新下载 站长使用手册(ASP8.1\8.2) 动网论坛新春风格2011下载(适用于ASP8.3.0) 千款小游戏尽你玩
泡泡玩最新网页游戏 再接再厉 众望所归-----动网论坛ASP8.3正式发布 游戏美妹,挑战你的眼球 体验我们自己的游戏,建立属于我们的家族

  共有624183人关注过本帖树形打印复制链接

主题:暴龙的勋章修改到7.1

帅哥哟,离线,有人找我吗?
若阑
  1楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 HD
等级:退休版主 帖子:2665 积分:6910 威望:1 精华:0 注册:2002/12/27 14:50:00
暴龙的勋章修改到7.1  发帖心情 Post By:2005/3/26 21:02:00 [只看该作者]

由于昨天夸下了海口,就硬着头皮弄出来了

红字为增加部分

安装步骤:

1、首先把压缩包中的文件全部释放到动网论坛的目录中;

2、执行数据库安装程序update.asp文件(网乐提供);

3、将z_xzmanager_admin.asp拷贝到论坛根目录。

4、修改dispbbs.asp


在dispbbs.asp中找到以下代码:

SQL="B.AnnounceID,B.BoardID,B.UserName,B.Topic,B.dateandtime,B.body,B.Expression,B.ip,B.RootID,B.signflag,B.isbest,B.PostUserid,B.layer,b.isagree,U.useremail,U.UserIM,U.UserMobile,U.Usersign,U.userclass,U.Usertitle,U.Userwidth,U.Userheight,U.UserPost,U.Userface,U.JoinDate,U.userWealth,U.userEP,U.userCP,U.Userbirthday,U.Usersex,U.UserGroup,U.LockUser,U.userPower,U.titlepic,U.UserGroupID,U.LastLogin,B.PostBuyUser,U.UserHidden,U.IsChallenge,B.Ubblist,B.LockTopic,B.GetMoney,B.UseTools,U.UserMoney,U.UserTicket,B.GetMoneyType,B.IsUpload" 因为我的论坛已经加了几个插件,所以可能和你的不太一样,不过没有影响,都是一样的操作。后面不再罗嗦,原始的应该是这样:
在最后面增加一个,U.xzdata,变成:
SQL="B.AnnounceID,B.BoardID,B.UserName,B.Topic,B.dateandtime,B.body,B.Expression,B.ip,B.RootID,B.signflag,B.isbest,B.PostUserid,B.layer,b.isagree,U.useremail,U.UserIM,U.UserMobile,U.Usersign,U.userclass,U.Usertitle,U.Userwidth,U.Userheight,U.UserPost,U.Userface,U.JoinDate,U.userWealth,U.userEP,U.userCP,U.Userbirthday,U.Usersex,U.UserGroup,U.LockUser,U.userPower,U.titlepic,U.UserGroupID,U.LastLogin,B.PostBuyUser,U.UserHidden,U.IsChallenge,B.Ubblist,B.LockTopic,B.GetMoney,B.UseTools,U.UserMoney,U.UserTicket,B.GetMoneyType,B.IsUpload,U.xzdata"
再找到
'========随机广告节点
Set CNode = XMLDOM.createNode(2,"ads","")
Cnode.text=Topic_Ads()
node.attributes.setNamedItem(Cnode)
的下面(Rs.movenext的上面)增加以下几行:

'========勋章V71
Dim RLXZTemp
RLXZTemp = Split(Xz1(RS("xzdata")),"||")
if Ubound(RLXZTemp)>=1 then
Set CNode = XMLDOM.createNode(2,"RLXZPIC1","")
Cnode.text=RLXZTemp(0)
node.attributes.setNamedItem(Cnode)
Set CNode = XMLDOM.createNode(2,"RLXZTitle1","")
Cnode.text=RLXZTemp(1)
node.attributes.setNamedItem(Cnode)
end if

RLXZTemp = Split(Xz2(RS("xzdata")),"||")
if Ubound(RLXZTemp)>=1 then
Set CNode = XMLDOM.createNode(2,"RLXZPIC2","")
Cnode.text=RLXZTemp(0)
node.attributes.setNamedItem(Cnode)
Set CNode = XMLDOM.createNode(2,"RLXZTitle2","")
Cnode.text=RLXZTemp(1)
node.attributes.setNamedItem(Cnode)
end if

RLXZTemp = Split(Xz3(RS("xzdata")),"||")
if Ubound(RLXZTemp)>=1 then
Set CNode = XMLDOM.createNode(2,"RLXZPIC3","")
Cnode.text=RLXZTemp(0)
node.attributes.setNamedItem(Cnode)
Set CNode = XMLDOM.createNode(2,"RLXZTitle3","")
Cnode.text=RLXZTemp(1)
node.attributes.setNamedItem(Cnode)
end if

RLXZTemp = Split(Xz4(RS("xzdata")),"||")
if Ubound(RLXZTemp)>=1 then
Set CNode = XMLDOM.createNode(2,"RLXZPIC4","")
Cnode.text=RLXZTemp(0)
node.attributes.setNamedItem(Cnode)
Set CNode = XMLDOM.createNode(2,"RLXZTitle4","")
Cnode.text=RLXZTemp(1)
node.attributes.setNamedItem(Cnode)
end if

RLXZTemp = Split(Xz5(RS("xzdata")),"||")
if Ubound(RLXZTemp)>=1 then
Set CNode = XMLDOM.createNode(2,"RLXZPIC5","")
Cnode.text=RLXZTemp(0)
node.attributes.setNamedItem(Cnode)
Set CNode = XMLDOM.createNode(2,"RLXZTitle5","")
Cnode.text=RLXZTemp(1)
node.attributes.setNamedItem(Cnode)
end if

'勋章插件增加部分结束

再到此文件的末尾在%>之前添加以下代码:


'勋章插件增加部分开始
function Xz1(xzq)
dim xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,i,xzq2
if xzq<>"" then
xzdata=split(xzq,"|||")
'for i=0 to ubound(xzdata)
xzq2=xzdata(0)
if xzq2<>"0" then

set xzrs=conn.execute("select * from xzdata where xzid="&xzq2)
xzid=xzrs("xzid")
xzname=xzrs("xzname")
xzsm=xzrs("xzsm")
xzpicurl=xzrs("xzpicurl")
Xz1= xzrs("xzpicurl")&"||"&xzsm


end if
'next

end if


End function
'勋章插件增加部分结束
'勋章插件增加部分开始
function Xz2(xzq)
dim xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,i,xzq2
if xzq<>"" then
xzdata=split(xzq,"|||")
'for i=0 to ubound(xzdata)
xzq2=xzdata(1)
if xzq2<>"0" then

set xzrs=conn.execute("select * from xzdata where xzid="&xzq2)
xzid=xzrs("xzid")
xzname=xzrs("xzname")
xzsm=xzrs("xzsm")
xzpicurl=xzrs("xzpicurl")
Xz2= xzrs("xzpicurl")&"||"&xzsm


end if
'next

end if


End function
'勋章插件增加部分结束
'勋章插件增加部分开始
function Xz3(xzq)
dim xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,i,xzq2
if xzq<>"" then
xzdata=split(xzq,"|||")
'for i=0 to ubound(xzdata)
xzq2=xzdata(2)
if xzq2<>"0" then

set xzrs=conn.execute("select * from xzdata where xzid="&xzq2)
xzid=xzrs("xzid")
xzname=xzrs("xzname")
xzsm=xzrs("xzsm")
xzpicurl=xzrs("xzpicurl")
Xz3= xzrs("xzpicurl")&"||"&xzsm


end if
'next

end if


End function
'勋章插件增加部分结束
'勋章插件增加部分开始
function Xz4(xzq)
dim xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,i,xzq2
if xzq<>"" then
xzdata=split(xzq,"|||")
'for i=0 to ubound(xzdata)
xzq2=xzdata(3)
if xzq2<>"0" then

set xzrs=conn.execute("select * from xzdata where xzid="&xzq2)
xzid=xzrs("xzid")
xzname=xzrs("xzname")
xzsm=xzrs("xzsm")
xzpicurl=xzrs("xzpicurl")
Xz4= xzrs("xzpicurl")&"||"&xzsm


end if
'next

end if


End function
'勋章插件增加部分结束
'勋章插件增加部分开始
function Xz5(xzq)
dim xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,i,xzq2
if xzq<>"" then
xzdata=split(xzq,"|||")
xzq2=xzdata(4)
if xzq2<>"0" then

set xzrs=conn.execute("select * from xzdata where xzid="&xzq2)
xzid=xzrs("xzid")
xzname=xzrs("xzname")
xzsm=xzrs("xzsm")
xzpicurl=xzrs("xzpicurl")
Xz5= xzrs("xzpicurl")&"||"&xzsm


end if
end if


End function
'勋章插件增加部分结束

5、进入论坛管理-模板总管理-page_dispbbs界面风格管理
template.html(15)中
然后向下找到
<br/><xsl:text disable-output-escaping="yes" >&amp;nbsp;&amp;nbsp;</xsl:text><xsl:text disable-output-escaping="yes" >&amp;nbsp;&amp;nbsp;</xsl:text>头衔:<xsl:value-of select="@Usertitle"/>
</xsl:if>

在后面增加:
<br/>
<xsl:text disable-output-escaping="yes" >&amp;nbsp;&amp;nbsp;</xsl:text><xsl:text disable-output-escaping="yes" >&amp;nbsp;&amp;nbsp;</xsl:text>
<xsl:if test="@RLXZPIC1!=''">
<img src="
plus/xzplus/pic/{@RLXZPIC1}" alt="{@RLXZTitle1}"/>
</xsl:if>


<xsl:if test="@RLXZPIC2!=''">
<img src="
plus/xzplus/pic/{@RLXZPIC2}" alt="{@RLXZTitle2}"/>
</xsl:if>

<xsl:if test="@RLXZPIC3!=''">
<img src="
plus/xzplus/pic/{@RLXZPIC3}" alt="{@RLXZTitle3}"/>
</xsl:if>

<xsl:if test="@RLXZPIC4!=''">
<img src="
plus/xzplus/pic/{@RLXZPIC4}" alt="{@RLXZTitle4}"/>
</xsl:if>

<xsl:if test="@RLXZPIC5!=''">
<img src="
plus/xzplus/pic/{@RLXZPIC5}" alt="{@RLXZTitle5}"/>
</xsl:if>


6、到管理界面的菜单管理中增加一个菜单“勋章中心”,链接指向z_xzindex.asp
到摸板那里修改page_admin
在第一个找到以下部分按下面那样修改
>||菜单管理@@<a href=plus.asp target=main>论坛菜单管理</a>@@<a href=../z_xzindex.asp target=main>勋章管理</a>||道具中心管理


 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:

[此贴子已经被作者于2005-3-26 21:02:38编辑过]

购买动网论坛商业版 享受贴心服务  回到顶部
帅哥哟,离线,有人找我吗?
小李飞雪2
  2楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 休闲者
等级:论坛游民 帖子:110 积分:832 威望:0 精华:0 注册:2005/3/26 13:39:00
  发帖心情 Post By:2005/3/26 21:03:00 [只看该作者]

谢谢楼主啊!!我的已经改好了。谢谢啊

http://www.kmm.cn/bbs

图片点击可在新窗口打开查看

[此贴子已经被作者于2007-1-27 15:28:46编辑过]

购买动网论坛商业版 享受贴心服务  回到顶部
帅哥哟,离线,有人找我吗?
gzsyz
  3楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:44 积分:362 威望:0 精华:0 注册:2005/2/13 22:17:00
  发帖心情 Post By:2005/3/26 21:08:00 [只看该作者]

支持!~~~~~~~~~~~~我也搞ing


动网空间买2送1,国际域名78元  回到顶部
帅哥哟,离线,有人找我吗?
快乐宝
  4楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC



加好友 发短信 生命在于运动
等级:侠圣 帖子:6692 积分:30741 威望:0 精华:1 注册:2004/1/16 17:41:00
  发帖心情 Post By:2005/3/26 21:13:00 [只看该作者]

顶呀

我看看麻烦不


游戏美妹,挑战你的眼球  回到顶部
帅哥哟,离线,有人找我吗?
花妖
  5楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 妖王在线设计人
等级:火箭侠 帖子:1820 积分:8067 威望:0 精华:0 注册:2002/8/22 18:19:00
  发帖心情 Post By:2005/3/26 21:25:00 [只看该作者]

好东西 我绝对支持


购买动网论坛商业版 享受贴心服务  回到顶部
帅哥哟,离线,有人找我吗?
a4jacky
  6楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 飞飞
等级:论坛游侠 帖子:248 积分:2576 威望:0 精华:0 注册:2004/5/6 16:16:00
  发帖心情 Post By:2005/3/26 21:37:00 [只看该作者]

我已经安装完毕了哦!!大家还不快点!

最新的网页游戏资讯一网打尽  回到顶部
帅哥哟,离线,有人找我吗?
cruifeng
  7楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 我平凡所以我快乐
等级:蝙蝠侠 帖子:814 积分:2889 威望:0 精华:0 注册:2003/1/18 12:36:00
  发帖心情 Post By:2005/3/26 21:40:00 [只看该作者]

我的论坛也安装成功了

购买动网论坛商业版 享受贴心服务  回到顶部
帅哥哟,离线,有人找我吗?
花妖
  8楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 妖王在线设计人
等级:火箭侠 帖子:1820 积分:8067 威望:0 精华:0 注册:2002/8/22 18:19:00
  发帖心情 Post By:2005/3/26 21:42:00 [只看该作者]

原来安装过的,好象不用升级数据库了吧!

千款小游戏尽你玩  回到顶部
帅哥哟,离线,有人找我吗?
阳光地带
  9楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 士著居民
等级:青蜂侠 帖子:1337 积分:7928 威望:0 精华:0 注册:2004/7/21 8:51:00
  发帖心情 Post By:2005/3/26 21:51:00 [只看该作者]

支持啊.应该不错吧.


最新的网页游戏资讯一网打尽  回到顶部
帅哥哟,离线,有人找我吗?
cruifeng
  10楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 我平凡所以我快乐
等级:蝙蝠侠 帖子:814 积分:2889 威望:0 精华:0 注册:2003/1/18 12:36:00
  发帖心情 Post By:2005/3/26 21:52:00 [只看该作者]

以下是引用花妖在2005-3-26 21:42:00的发言:
原来安装过的,好象不用升级数据库了吧!

不用


动网合租服务器 专业+品质 隆重推出  回到顶部
总数 571 1 2 3 4 5 6 7 8 9 10 下一页 ..58