查看完整版本: 论坛插件集（主要用于斑竹学习管理论坛）

论坛插件集（主要用于斑竹学习管理论坛）

[img]/attachment/fileType/bmp.gif[/img]此主题相关文件 [url=/attachment/upload/2005/07/25/173150.bmp]173150.bmp[/url]
()
[IMG=0,absMiddle]/attachment/fileType/rar.gif[/IMG]此主题相关文件 [URL=/attachment/upload/2005/07/23/105738.rar]105738.rar[/URL]明星，登陆，公告，插件

[IMG=0,absMiddle]/attachment/fileType/rar.gif[/IMG]此主题相关文件 [URL=/attachment/upload/2005/07/23/105724.rar]105724.rar[/URL]

[IMG=0,absMiddle]/attachment/fileType/rar.gif[/IMG]此主题相关文件 [URL=/attachment/upload/2005/07/23/105719.rar]105719.rar[/URL]

生日
[img]/attachment/fileType/rar.gif[/img]此主题相关文件 [url=/attachment/upload/2005/07/23/110134.rar]110134.rar[/url]


门派
[img]/attachment/fileType/rar.gif[/img]此主题相关文件 [url=/attachment/upload/2005/07/23/110223.rar]110223.rar[/url]


[TABLE][TR][TD][TR][TD]<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_popfun.asp -->
<!-- #include file=inc/UserTopic.asp -->
<%
DEF_BBS_HomeUrl = "../"
SiteHead(DEF_SiteNameString & " - 论坛管理人员考勤")

UserTopicTopInfo
DisplayUserNavigate("论坛管理人员考勤")
ScreenInfo
UserTopicBottomInfo
sitebottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function ScreenInfo%>

<p>
<%
     DisplayBoardManageInfo

End Function


Function DisplayBoardManageInfo

     GBL_CHK_PWdFlag = 0
     InitDatabase
        Dim N,GetData,Rs
     GetData = Split(DEF_SupervisorUserName,",")
     Rs = Ubound(GetData,1)
%>
           <p><table width="100%" border="0" cellspacing="2" cellpadding="3" bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1 align=center>
               <tr><td colspan=7><br><b>论坛管理人员考勤记录</b><p>    处理建议包括:当天签到、一周内签到、黄牌警告（多于一周）、红牌警告（多于半月）、留用察看（多于一个月）、撤消职务（多于两个月）</td></tr>
               <tr><td colspan=7 align=center>
<%

     Dim RequestStr
     RequestStr = Request.QueryString
     Set Rs = Con.ExeCute("select t1.UserID,t1.UserName,t1.ndatetime,t2.Prevtime,t1.Assort From LeadBBS_SpecialUser As t1,LeadBBS_User As t2 Where t1.UserID=t2.ID And t1.Assort=2 order by T1.UserID")
           GBL_DBNum = GBL_DBNum + 1
           If Not Rs.Eof Then
                 GetData = Rs.GetRows(-1)
                 Rs.Close
                 Set Rs = Nothing
                 Rs = Ubound(GetData,2)
                 Response.Write "<p><b>总版主</b></td></tr>"%>
           <tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
                 <td align=center colspan=2>用户名</td>
                 <td align=center width=80>登录日期</td>
                 <td align=center width=80>未登录天数</td>
                 <td align=center width=80>处理建议</td>
                 <td align=center width=80>上任日期</td>
                 <td align=center width=80>备注说明</td>
                 </tr>

<%
                 For N = 0 to Rs
                       If Flag <> cCur(GetData(0,N)) Then
                             Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td align=center><a href=""LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a></td>"
                             Response.write "<td><a href=""SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=/attachment/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a></td>"
Response.Write "<td align=center>" & left(RestoreTime(GetData(3,n)),10) & "</td><td align=center>"
    TempD=DateDiff("d",RestoreTime(GetData(3,n)),now)
    Response.Write TempD & "天</td><td align=center>"
    If TempD=0 Then
         Response.Write "<font color=green>当天签到</font>"
    End If
    If TempD>0 And TempD<=7 Then
         Response.Write "<font color=blue>一周内签到</font>"
    End If
    If TempD>7 And TempD<=15 Then
         Response.Write "<font color=orange>黄牌警告</font>"
    End If
    If TempD>15 And TempD<=30 Then
         Response.Write "<font color=red>红牌警告</font>"
    End If
    If TempD>30 And TempD<=60 Then
         Response.Write "<font color=red>留用察看</font>"
    End If
    If TempD>60 Then
         Response.Write "<font color=darkorchid>撤消职务</font>"
    End If
Response.Write "<td align=center>" & left(RestoreTime(GetData(2,n)),10) & "</td>"
    Response.Write "</td><td>全部版面</td></tr>"
                       End If
                 Next
           Else
                 Rs.Close
                 Set Rs = Nothing
                 Response.Write "<p><b>总版主</b>无</td></tr>"
           
     End If
Set Rs = Con.ExeCute("select t1.UserID,t1.UserName,t3.AssortName,t1.ndatetime,t2.Prevtime,t3.AssortID,t1.BoardID,t1.Assort From LeadBBS_SpecialUser As t1,LeadBBS_User As t2,LeadBBS_Assort As t3 Where t1.UserID=t2.ID And t1.BoardID=t3.AssortID And t1.Assort=7 order by T1.UserID")
           GBL_DBNum = GBL_DBNum + 1
           If Not Rs.Eof Then
                 GetData = Rs.GetRows(-1)
                 Rs.Close
                 Set Rs = Nothing
                 Rs = Ubound(GetData,2)
                 Response.Write "<tr><td colspan=7 align=center><p><b>区版主</b></td></tr>"
                 Flag = 0
                 %>
           <tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
                 <td align=center colspan=2>用户名</td>
                 <td align=center>登录日期</td>
                 <td align=center>未登录天数</td>
                 <td align=center>处理建议</td>
                 <td align=center>上任日期</td>
                 <td align=center>担任区面</td></tr>
<%
                 For N = 0 to Rs
                       If Flag <> cCur(GetData(0,N)) Then
                             Response.Write "<tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td align=center><a href=""LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a></td>"
                             Response.write "<td><a href=""SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=/attachment/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a></td>"
Response.Write "<td align=center>" & left(RestoreTime(GetData(4,n)),10) & "</td><td align=center>"
    TempD=DateDiff("d",RestoreTime(GetData(4,n)),now)
    Response.Write TempD & "天</td><td align=center>"
    If TempD=0 Then
         Response.Write "<font color=green>当天签到</font>"
    End If
    If TempD>0 And TempD<=7 Then
         Response.Write "<font color=blue>一周内签到</font>"
    End If
    If TempD>7 And TempD<=15 Then
         Response.Write "<font color=orange>黄牌警告</font>"
    End If
    If TempD>15 And TempD<=30 Then
         Response.Write "<font color=red>红牌警告</font>"
    End If
    If TempD>30 And TempD<=60 Then
         Response.Write "<font color=red>留用察看</font>"
    End If
    If TempD>60 Then
         Response.Write "<font color=darkorchid>撤消职务</font>"
    End If
    Response.Write "</td><td colspan=2>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Boards.asp?Assort=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                             Flag = cCur(GetData(0,n))
                       Else
                             Response.Write "<br><br>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Boards.asp?Assort=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                       End If

                 Next

           Else
                 Rs.Close
                 Set Rs = Nothing
                 Response.Write "<tr><td colspan=7 align=center><p><b>区版主</b>无</td></tr>"
           End If

     Dim Flag
     Set Rs = Con.ExeCute("select t1.UserID,t1.UserName,t3.BoardName,t1.ndatetime,t2.Prevtime,t1.BoardID,t1.Assort From LeadBBS_SpecialUser As t1,LeadBBS_User As t2,LeadBBS_Boards As t3 Where t1.UserID=t2.ID And t1.BoardID=t3.BoardID And t1.BoardID>=0 And t1.Assort>=1 order by T1.UserID")
           GBL_DBNum = GBL_DBNum + 1
           If Not Rs.Eof Then
                 GetData = Rs.GetRows(-1)
                 Rs.Close
                 Set Rs = Nothing
                 Rs = Ubound(GetData,2)
                 Response.Write "<tr><td colspan=7 align=center><p><b>论坛版主</b></td></tr>"
                 Flag = 0
                 %>
           <tr height="19" bgcolor="<%=DEF_BBS_TableHeadColor%>" class=TBfour>
                 <td align=center colspan=2>用户名</td>
                 <td width=60 align=center>登录日期</td>
                 <td width=60 align=center>未登录天数</td>
                 <td width=60 align=center>处理建议</td>
                 <td width=60 align=center>上任日期</td>
                 <td align=center>担任版面</td></tr>
<%
                 For N = 0 to Rs
                       If Flag <> cCur(GetData(0,N)) Then
                             Response.Write "</td></tr><tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td align=center><a href=""LookUserInfo.asp?ID=" & GetData(0,n) & """>" & htmlencode(GetData(1,n)) & "</a></td>"
                             Response.write "<td><a href=""SendMessage.asp?SdM_ToUser=" & urlencode(GetData(1,n)) & """ title=发送短消息><img src=/attachment/" & GBL_DefineImage & "message.GIF width=16 height=16 border=0 align=absmiddle></a></td>"
Response.Write "<td align=center>" & left(RestoreTime(GetData(4,n)),10) & "</td><td align=center>"
    Dim TempD
    TempD=DateDiff("d",RestoreTime(GetData(4,n)),now)
    Response.Write TempD & "天</td><td align=center>"
    If TempD=0 Then
         Response.Write "<font color=green>当天签到</font>"
    End If
    If TempD>0 And TempD<=7 Then
         Response.Write "<font color=blue>一周内签到</font>"
    End If
    If TempD>7 And TempD<=15 Then
         Response.Write "<font color=orange>黄牌警告</font>"
    End If
    If TempD>15 And TempD<=30 Then
         Response.Write "<font color=red>红牌警告</font>"
    End If
    If TempD>30 And TempD<=60 Then
         Response.Write "<font color=red>留用察看</font>"
    End If
    If TempD>60 Then
         Response.Write "<font color=darkorchid>撤消职务</font>"
    End If
    Response.Write "</td><td colspan=2>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Board/Board.asp?BoardID=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                             Flag = cCur(GetData(0,n))
                       Else
                             Response.Write "<br><br>" & left(RestoreTime(GetData(3,n)),10) & "  <a href=../Board/Board.asp?BoardID=" & GetData(5,n) & ">" & GetData(2,n) & "</a>"
                       End If

                 Next
           Else
                 Rs.Close
                 Set Rs = Nothing
                 Response.Write "<tr><td colspan=7 align=center><p><b>论坛版主</b>无</td></tr>"
           End If
     Closedatabase
     Response.Write "</td></tr></table>"
        Response.Write "<p align=center><a href=http://www.sdqixia.gov.cn><font color=red>中国栖霞</font></a> 飞云制作,请保留版权"
     
End Function%>[/TD][/TR][/TABLE]


在inc/board_popfun.asp中修改:
     MNL();
     MN1(3);
     MN("User/UserTop.asp","用户排行榜");
     MN("User/ManageLogin.asp","管理考勤榜");
     MN("User/UserOnline.asp","在线用户列表");
     MN("Search/List.asp","查看最新帖子");
     MN("Search/UploadList.asp","查看上传附件");
     MN("User/Help/About.asp","联系管理人员");
     MN2(3,"User/UserTop.asp","论坛信息");

OK[/TD][TD][/TD][/TR][TR][TD]考勤[/TD][/TR]

[img]/attachment/fileType/rar.gif[/img]此主题相关文件 [url=/attachment/upload/2005/07/23/114139.rar]114139.rar[/url]
是  恋人插件

[img]/attachment/fileType/rar.gif[/img]此主题相关文件 [url=/attachment/upload/2005/07/25/105521.rar]105521.rar[/url]
增加事件删除功能，查看个人勋章获奖信息重新做了排版

此主题相关文件 004827.rar

很多网友在问,超过4贴 就无法显示勋章,解决办法

搜索 Announce/Announce.asp 文件中的
If GetData_2(38,For1) > 0 and cCur(GetData_2(1,For1)) = 0 Then
上面有一句  If Rs > 4 Then  把 4 改成 8 即可
如果你每页显示的帖子超过 8 ,那就改成你相应的 值 即可

打开announce/announce.asp<br>
<br>
随便找个<br>
End Function <br>
<br>
在下面插入<br>
程序代码：<br>
<br>
--------------------------------------------------------------------------------<br>
Function QQdengji(jingyan)<br>
<br> Dim dengji,star,moon,sun,star1,moon1,sun1,upjingyan,nextdj<br> dengji=Int(Abs(10-Sqr(100+8*jingyan))\4)<br> nextdj=dengji+1<br> upjingyan=((nextdj*nextdj*2+10*nextdj)-jingyan)*60<br> if dengji>48 then<br> dengji=48<br> upjingyan="MAX"<br> end if<br> if dengji=0 then<br> QQdengji="<font title=""等级："&dengji&""& vbCrLf &"目前经验："&jingyan*60&""& vbCrLf &"升级剩余经验："&upjingyan&""">还需努力</font>"<br> exit function<br> end if<br> if dengji<=3 then<br> star=dengji<br> star1=string(star,"s")<br> QQdengji=replace(star1,"s","<img title=""等级："&dengji&""& vbCrLf &"目前经验："&jingyan*60&""& vbCrLf &"升级剩余经验："&upjingyan&""" src=/attachment/star.gif>")<br> elseif dengji<=15 then<br> star=dengji mod 4<br> star=Int(star)<br> star1=string(star,"s")<br> moon=dengji\4<br> moon1=string(moon,"m")<br> QQdengji=replace(moon1,"m","<img title=""等级："&dengji&""& vbCrLf &"目前经验："&jingyan*60&""& vbCrLf &"升级剩余经验："&upjingyan&""" src=/attachment/moon.gif>")<br> QQdengji=QQdengji&replace(star1,"s","<img title=""等级："&dengji&""& vbCrLf &"目前经验："&jingyan*60&""& vbCrLf &"升级剩余经验："&upjingyan&""" src=/attachment/star.gif>")<br> else  <br> star=dengji mod 4<br> star=Int(star)<br> star1=string(star,"s")<br> moon=dengji\4<br> moon=moon mod 4<br> moon=Int(moon)<br> moon1=string(moon,"m")<br> sun=dengji\16<br> sun1=string(sun,"u")<br> QQdengji=replace(sun1,"u","<img title=""等级："&dengji&""& vbCrLf &"目前经验："&jingyan*60&""& vbCrLf &"升级剩余经验："&upjingyan&""" src=/attachment/sun.gif>")<br> QQdengji=QQdengji&replace(moon1,"m","<img title=""等级："&dengji&""& vbCrLf &"目前经验："&jingyan*60&""& vbCrLf &"升级剩余经验："&upjingyan&""" src=/attachment/moon.gif>")<br> QQdengji=QQdengji&replace(star1,"s","<img title=""等级："&dengji&""& vbCrLf &"目前经验："&jingyan*60&""& vbCrLf &"升级剩余经验："&upjingyan&""" src=/attachment/star.gif>")<br> end if<br> <br>
End Function <br>
<br>
<br>
查找<br>
经验 <br>
<br>
把<br>
CLng(cCur(GetData(28,n))/60) <br>
<br>
替换成<br>
QQdengji(CLng(cCur(GetData(28,n))/3600)) <br>
<br>

[img]/attachment/fileType/rar.gif[/img]此主题相关文件 [url=/attachment/upload/2005/07/25/163113.rar]163113.rar[/url]
VIP申请

[img]/attachment/fileType/rar.gif[/img]此主题相关文件 [url=/attachment/upload/2005/07/25/163602.rar]163602.rar[/url]
广告插件

信箱收集，如谁有需要，请回复？