LEADBBS3.14勋章插件V1.0
沈阳爱网修改提供
插件制作：飞鸟
qq：460001

在其基础上增加申请勋章,今天又把一些查看页面做了一下分页设置的

本插件的主要功能
1.所有会员可以查看勋章的获得情况，并且记录日志（增加勋章颁发的透明度）
2.管理员可以维护勋章的类型，颁发和取消勋章（需以管理员身份，才能看见菜单）
3.帖子信息中调用勋章信息
4.勋章申请,可以用管理员自定申请要求

安装步骤：

1、首先把压缩包中的文件全部释放到plug-ins文件夹，目录名为xunzhang

2、修改数据库名字（安全起见，其实这个数据库被下载也无所谓拉！）

3、修改xzconn.asp文件中自己论坛数据库的连接

4、老套的在Board_Popfun.asp中添加	    
MN("Plug-ins/xunzhang/xzindex.asp","勋章");
到自己喜欢的位置！

5、如果不想在帖子中调用勋章信息，到上面就可以了，帖子调用方法如下：
（1）打开announce\announce.asp
（2）查找：

*******************************************************
If GetData(27,n)<>"0" and GetData(27,n) <> "" Then
*******************************************************
在这一行的上面添加：

*******************************************************
			    '调用勋章信息
		             xzinfo(GetData(14,n))
******************************************************************
ps:当然如果你对调用很熟悉的话，可以加在任意自己喜欢的地方

（3）在文件的最后
**********
Main
%>
**********
之前添加：
****************************************************************
'取出用户勋章信息
function xzinfo(Gname)
     dim rsxz,connxz,connstrPlus2,Gsql,pass
     Set connxz = Server.CreateObject("ADODB.Connection")
     connstrPlus2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../plug-ins/xunzhang/xunzhang.mdb")
     connxz.Open connstrPlus2
     Gsql = "select * from xzuser where username='"&Gname&"' and pass like '1'"
     set rsxz=Server.CreateObject("ADODB.Recordset")
	 rsxz.open gsql,connxz,1,1
	 dim xzkindrs,xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,xzq,i
	 if not rsxz.eof then
	 i=1
	 do while not rsxz.eof and i<=6
	 xzq=rsxz("xzkind")
     if xzq<>"0" then
	 set xzrs=connxz.execute("select * from xzdata where xzid="&xzq)
	 xzid=xzrs("xzid")
	 xzname=xzrs("xzname")
	 xzsm=xzrs("xzsm")
	 xzpicurl=xzrs("xzpicurl")
     response.write "<img src="&DEF_BBS_HomeUrl&"/plug-ins/xunzhang/pic/"&xzrs("xzpicurl")&" title="&xzname&":"&xzsm&">"
     end if
	 i=i+1
	 rsxz.movenext
	 loop
	 if rsxz.RecordCount>6 then
	 response.write "<a href="&DEF_BBS_HomeUrl&"Plug-ins/xunzhang/xzindex.asp?menu=5&name="&Gname&" title=更多>...</a>"
	 end if
	 response.write "<br>"
     end if
	 rsxz.close
	 connxz.close

end function
*******************************************************************************
ps:如果你改了数据库的名字，不要忘记这里也要改哦！！

本来一个人的勋章不能超过 5 个,这样表格会变形,不过我修改了,可以任意个,主要是帖子那边只显示6个
更多的话,有链接指向


飞鸟
2004.11.28晨
保留作者所有版权


有空来我坛子坐坐
http://www.51skycn.com
by 小绿(aleo)  QQ:112979797
2004.12.3