动网勋章8.0修改版

蓝雨

安装步骤：

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

2、执行数据库安装程序update.asp文件（网乐提供）；

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

4、到后台,风格界面分页面模板
page_admin_template.html(0).txt 里的源码盖上就可以了更新缓存一下.

(2) 在没有增加别的修改的前提下, 建议用文件自带的dispbbs.asp进行覆盖, 要是做过修改的,可以参考下面做变动

5、到管理界面的菜单管理中增加一个菜单“勋章中心”，链接指向z_xzindex.asp

6. dispbbs.aap 文件的修改
dispbbs.asp 找

userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva, From dv_user Where UserID IN (\"& postuseridlist &\")\")

加上 不要<>

查找： \'获取自己用户组的名字样式前后标记,并生成节点

上面加入
Dim RLXZTemp,CNode
RLXZTemp = Split(Xz1(Node.selectSingleNode(\"@xzdata\").text),\"||\")
if Ubound(RLXZTemp)>=1 then
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZPIC1\",\"\")).text=RLXZTemp(0)
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZTitle1\",\"\")).text=RLXZTemp(1)
end if

RLXZTemp = Split(Xz2(Node.selectSingleNode(\"@xzdata\").text),\"||\")
if Ubound(RLXZTemp)>=1 then
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZPIC2\",\"\")).text=RLXZTemp(0)
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZTitle2\",\"\")).text=RLXZTemp(1)
end if

RLXZTemp = Split(Xz3(Node.selectSingleNode(\"@xzdata\").text),\"||\")
if Ubound(RLXZTemp)>=1 then
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZPIC3\",\"\")).text=RLXZTemp(0)
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZTitle3\",\"\")).text=RLXZTemp(1)
end if

RLXZTemp = Split(Xz4(Node.selectSingleNode(\"@xzdata\").text),\"||\")
if Ubound(RLXZTemp)>=1 then
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZPIC4\",\"\")).text=RLXZTemp(0)
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZTitle4\",\"\")).text=RLXZTemp(1)
end if

RLXZTemp = Split(Xz5(Node.selectSingleNode(\"@xzdata\").text),\"||\")
if Ubound(RLXZTemp)>=1 then
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZPIC5\",\"\")).text=RLXZTemp(0)
Node.attributes.setNamedItem(postuserlist.createNode(2,\"RLXZTitle5\",\"\")).text=RLXZTemp(1)
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
\'勋章插件增加部分结束

7. 后台 template.html(0) 等级上面 加

下载地址:

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2007-7-11 11:54:35编辑过]

蓝雨

可以往里面添加勋章, 我加到15个没有问题