<!--#include file=../conn.asp-->
<!--#include file="inc/const.asp" -->
<!--#include file="../Plus_ForumOffice_Const.Asp" -->
<%
Dim Page,MaxRows,Endpage,CountNum
Head()

XiaoLu.PlusInfo()

Dim LuRs,SignInDate,Rs
	Set Rs=Dvbbs.Plus_Execute("Select top 1 * from [Dv_LuZiOffice_SignIn] order by ID desc")
	If Rs.Eof Then
		SignInDate = Cint(XiaoLu.Setting(9))
	Else
		SignInDate = DateDiff("d", Rs(4), Now())
		
	End If
Rs.Close
Set Rs = Nothing


If Not Dvbbs.Master Or InStr("," & Session("Flag") & ",", ",47,") = 0 Then
	ErrMsg = ErrMsg & "<BR><li>本页面为管理员专用，请<a href=../admin_login.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
	Call Dvbbs_Error()
Else

	If Request("action")="SignIn" Then
			
			If Cint(SignInDate) < Cint(XiaoLu.Setting(9)) Then  '设置10小时内不允许重复发布
				Dv_Suc("相隔 "&XiaoLu.Setting(9)&" 天才能创建一次签到记录，你现在又来了，想捣乱？兄弟们,放狗咬人.....")
				Response.End()
			Else
				Call SignIn()
			End If

	ElseIf Request("action")="UserInfo" Then
		Call UserInfo()
	ElseIf Request("action")="UserSignIn" Then
		Call UserSignIn()
	ElseIf Request("action")="SignIn_Save" Then
		Call SignIn_Save()
	ElseIf Request("action")="SaveConst" Then
		Call SaveConst()
	ElseIf Request("action")="EgNot" Then
		Call EgNot()
	ElseIf Request("action")="PgNot" Then
		Call PgNot()
	ElseIf Request("action")="EgLog" Then
		Call EgLog()
	ElseIf Request("action")="PgLog" Then
		Call PgLog()
	ElseIf Request("action")="PaymentNot" Then '//
		Call PaymentNot()
	ElseIf Request("action")="ResignNot" Then '//辞职审核
		Call ResignNot()
	ElseIf Request("action")="AuditingSave" Then  '//奖励投诉审核提交
		Call AuditingSave()
	ElseIf Request("action")="ResignSave" Then
		Call ResignSave()
	ElseIf Request("action")="LeaveList" Then
		Call LeaveList()
	ElseIf Request("action")="ResignLog" Then
		Call ResignLog()
	ElseIf Request("action")="WordLog" Then  '//留言日志
		Call WordLog()
	ElseIf Request("action")="EditSignIn" Then  '//编辑签到
		Call EditSignIn()
	ElseIf Request("action")="EditSave" Then  '//编辑提交
		Call EditSave()
	ElseIf Request("action")="PaymentSave" Then  '//工资疑问
		Call PaymentSave()
	ElseIf Request("action")="SignInLog" Then  '//留言日志
		Call SignInLog()
	ElseIf Request("action")="DeleteMaster" Then
		Call DeleteMaster()
	ElseIf Request("action")="EditUserSave" Then
		Call EditUserSave()
	ElseIf Request("action")="EditUser" Then
		Call EditUser()
	ElseIf Request("action")="UserPay" Then
		Call UserPay()
	ElseIf Request("action")="DeleteUserInfo" Then  '//资料删除
		Call DeleteUserInfo()

	Else
		Call Main()
	End If
	XiaoLu.Footer()
End If

Sub Main()
XiaoLu.AdminInfo()

%>

<form action="?action=SaveConst" method="post">
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
  <tr>
    <th colspan="2" align="left">开关设置</th>
  </tr>
  <tr>
    <td width="50%" height="25" class="forumRow" Valign="top"><u>大门开关</u><br />选择斑竹办公室的开关.....</td>
    <td width="50%" class="forumRow">
<input type=radio name="XiaoLu.setting(0)" value=0 <%if XiaoLu.setting(0)="0" then%>checked<%end if%> />打开&nbsp;
<input type=radio name="XiaoLu.setting(0)" value=1 <%if XiaoLu.setting(0)="1" then%>checked<%end if%> />关闭&nbsp;
</td>
  </tr>

   <tr>
    <td width="50%" height="25" class="forumRow" Valign="top"><u>系统创建签到记录</u><br />选择是否让系统自动创建签到记录让版主签到。</td>
    <td width="50%" class="forumRow">
<input type=radio name="XiaoLu.setting(8)" value=0 <%if XiaoLu.setting(8)="0" then%>checked<%end if%> />打开&nbsp;
<input type=radio name="XiaoLu.setting(8)" value=1 <%if XiaoLu.setting(8)="1" then%>checked<%end if%> />关闭&nbsp;
</td>
  </tr>

   <tr>
    <td width="50%" height="25" class="forumRow" Valign="top"><u>幸运用户开关</u><br />在系统创建签到记录同时生成一个幸运用户，前提必须打开系统自动创建签到记录</td>
    <td width="50%" class="forumRow">
<input type=radio name="XiaoLu.setting(15)" value=0 <%if XiaoLu.setting(15)="0" then%>checked<%end if%> />打开&nbsp;
<input type=radio name="XiaoLu.setting(15)" value=1 <%if XiaoLu.setting(15)="1" then%>checked<%end if%> />关闭&nbsp;
</td>
  </tr>
  <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><u>变更等级</u><br />当斑竹被撤消以后转为什么等级会员，只输入ID号，如：4为注册会员。</td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(11)" type="text" size="6" value="<%=XiaoLu.Setting(11)%>" />
</td>
  </tr>
    <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><u>投票限制</u><br />设置用户在投票时最低的限制要求，限制内容为：<u>发帖数量</u></td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(10)" type="text" size="6" value="<%=XiaoLu.Setting(10)%>" />
</td>
  </tr>
  <tr>
    <th colspan="2" align="left">人员设置</th>
  </tr>
     <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><u>财务总监</u><br />设定某一个会员(可以不是斑竹)进入管理团队内给斑竹发工资</td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(4)" type="text" size="25" value="<%=XiaoLu.Setting(4)%>"><br/>注:程序未做名字验证,请管理员检查清楚所填用户名称
</td>
  </tr>
  <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><u>办公室主任</u><br />设定某一个会员(必须是斑竹以上等级.不可以是管理员)可以在前台添加签到记录</td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(1)" type="text" size="25" value="<%=XiaoLu.Setting(1)%>"><br/>注:程序未做名字验证,请管理员检查清楚所填用户名称
</td>
  </tr>
  <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><u>短信接收</u><br />由办公室大厅发出的请求短信接受者</td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(17)" type="text" size="25" value="<%=XiaoLu.Setting(17)%>"><br/>注:程序未做名字验证,请管理员检查清楚所填用户名称
</td>

  </tr>
    <tr>
    <th colspan="2" align="left">金币设置</th>
  </tr>
     <tr>
    <td height="25" class="forumRow" Valign="top"><u>基本工资</u><br />每一期版主的基本工资</td>
    <td class="forumRow">
<input name="XiaoLu.Setting(5)" type="text" size="6" value="<%=XiaoLu.Setting(5)%>" /> 个金币
</td>
  </tr>
  <tr>
    <td height="25" class="forumRow" Valign="top"><u>奖励值</u><br />给幸运用户的奖励值</td>
    <td class="forumRow">
<input name="XiaoLu.Setting(16)" type="text" size="6" value="<%=XiaoLu.Setting(16)%>" /> 个金币
</td>
  </tr>

       <tr>
    <td height="25" class="forumRow" Valign="top"><u>退休奖励</u><br />既撤消斑竹职位后给予的鼓励。</td>
    <td class="forumRow">
<input name="XiaoLu.Setting(7)" type="text" size="6" value="<%=XiaoLu.Setting(7)%>" /> 个金币
</td>
  </tr>
    <tr>
    <th colspan="2" align="left">天数设置</th>
  </tr>
       <tr>
    <td height="25" class="forumRowHighlight"><u>工资发放</u><br />每一期会员工资发布相隔的天数</td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(18)" type="text" size="6" value="<%=XiaoLu.Setting(18)%>" /> 天
</td>
  </tr>
     <tr>
    <td height="25" class="forumRowHighlight"><u>请假天数</u><br />设置会员一次可以请多少天的假期</td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(6)" type="text" size="6" value="<%=XiaoLu.Setting(6)%>" /> 天
</td>
  </tr>



  <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><u>创建签到天数</u><br />每一期签到发布相隔的天数</td>
    <td class="forumRowHighlight">
<input name="XiaoLu.Setting(9)" type="text" size="6" value="<%=XiaoLu.Setting(9)%>" /> 天
</td>
  </tr>
  <tr>
    <th colspan="2" align="left" height=25>显示设置</th>
  </tr>

  <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><U>维护说明</U><BR />
在办公室插件关闭情况下显示[<U>只关闭办公室,管理团队正常使用</U>]，不支持html语法</td>
    <td class="forumRowHighlight">
<textarea name="XiaoLu.Setting(2)" cols="50" rows="3" ID="StopReadme"><%=XiaoLu.Setting(2)%></textarea><br><a href="javascript:admin_Size(-3,'StopReadme')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'StopReadme')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>
</td>
  </tr>
  <tr>
    <td height="25" class="forumRow" Valign="top"><U>工资发放说明</U><BR />显示在发放工资顶部的说明,这部分只有财务总监才能看的到，其余会员无法看到，主要是提示财务在发工资时候的注意事项。</td>
    <td class="forumRow">
<textarea name="XiaoLu.Setting(12)" cols="50" rows="3" ID="PlusReadme1"><%=XiaoLu.Setting(12)%></textarea><br><a href="javascript:admin_Size(-3,'PlusReadme1')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'PlusReadme1')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>

</td>
  </tr>

    <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><U>请假说明</U><BR />显示在请假界面顶部说明</td>
    <td class="forumRowHighlight">
<textarea name="XiaoLu.Setting(13)" cols="50" rows="3" ID="PlusReadme2"><%=XiaoLu.Setting(13)%></textarea><br><a href="javascript:admin_Size(-3,'PlusReadme2')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'PlusReadme2')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>

</td>
  </tr>

    <tr>
    <td height="25" class="forumRow" Valign="top"><U>辞职说明</U><BR />显示在请假界面顶部说明</td>
    <td class="forumRow">
<textarea name="XiaoLu.Setting(14)" cols="50" rows="3" ID="PlusReadme3"><%=XiaoLu.Setting(14)%></textarea><br><a href="javascript:admin_Size(-3,'PlusReadme3')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'PlusReadme3')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>

</td>
  </tr>

    <tr>
    <td height="25" class="forumRowHighlight" Valign="top"><U>详细说明</U><BR />显示在大厅顶部的插件说明</td>
    <td class="forumRowHighlight">
<textarea name="XiaoLu.Setting(3)" cols="50" rows="3" ID="PlusReadme"><%=XiaoLu.Setting(3)%></textarea><br><a href="javascript:admin_Size(-3,'PlusReadme')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'PlusReadme')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>

</td>
  </tr>
    <tr>
    <td height="25" class="forumRowHighlight"></td>
    <td class="forumRowHighlight"><input type="submit" name="Submit" value=" 设置完成 , 提交"></td>
  </tr>
</table></From>
<br />
<%
End Sub

Sub SignIn()
XiaoLu.AdminInfo()
%>
<table width="95%" border="0"  align=center cellpadding="3" cellspacing="1" class="tableBorder">
<form name="SignIn_Save" method="post" action="?Action=SignIn_Save">
  <tr>
    <th height="25" colspan="2" align="left" valign="middle">增加新一轮签到记录</th>
  </tr>
  <tr>
<%
Set Rs=Dvbbs.Plus_Execute("Select top 1 * from [Dv_LuZiOffice_SignIn] order by ID desc")

	If Rs.Eof Then
	Response.Write "<td width=""50%"" height=25 class=forumRow><u>第 <b>1</b> 期签到记录标题</u><br />"
	Else
	Response.Write "<td width=""50%"" height=25 class=forumRow><u>第 <b>"&Trim(Rs("ID"))+1&"</b> 期签到记录标题</u><br />"
	End If
	Response.Write "上一期标题："

		If Rs.Eof Then
			Response.Write "<font color=red>无法找到上期签到记录，Sorry~``!</font>"
		Else
			Response.Write "<Font Title="&XiaoLu.Checkstr(Trim(Rs("SignInTitle")))&">"
			if len(XiaoLu.Checkstr(rs("SignInTitle"))) > 30 then
				Response.write ""&left(XiaoLu.Checkstr(Trim(rs("SignInTitle"))),13)&"....."&Right(XiaoLu.Checkstr(Trim(rs("SignInTitle"))),4)&"[长]"
			Else
				Response.write ""&XiaoLu.Checkstr(Trim(Rs("SignInTitle")))&""
			End If
			Response.Write "</Font>"
		End If
		If Rs.Eof Then
			'Response.Write "<font color=red>无法找到上期签到记录，Sorry~``!</font>"
		Else
	Response.Write " <U>上期发布时间："&Year(Rs("SignInTime"))&"-"&month(Rs("SignInTime"))&"-"&day(Rs("SignInTime"))&"</U>"
		End If

%></td>
    <td width="50%" class="forumRow"><input name="SignInTitle" type="text" size="50" /></td>
  </tr>
  <tr>
    <td valign="top" class="forumRowHighlight"><u>本期通告</u><br />显示在签到页的标题下方。
	</td>
    <td class="forumRowHighlight"><textarea name="SignInAction" cols="35" rows="5"></textarea></td>
  </tr>
<input name="SignInClass" type="hidden" value=1 />
<input name="System" type="hidden" value=1 />
<input name="UserName" type="hidden" value=<%=XiaoLu.UserName%> />
  <tr>
    <td height="25" class="forumRowHighlight"></td>
    <td class="forumRowHighlight"><input type="submit" name="Submit4" value=" 填写完成 , 提交 " /> <a href="ForumOffice.Asp"><<返回插件管理首页</a></td>
  </tr>
</form>
</table>
<%
End Sub

Sub SignIn_Save()

	If Cint(SignInDate) < Cint(XiaoLu.Setting(9)) Then  '设置10小时内不允许重复发布
		Dv_Suc("相隔 "&XiaoLu.Setting(9)&" 天才能创建一次签到记录，你现在又来了，想捣乱？兄弟们,放狗咬人.....")
		Response.End()
	Else
		if request("SignInTitle")="" then
			Dv_Suc("<li> [记录标题]不能为空！")
		Elseif request("SignInAction")="" then
			Dv_Suc("<li> [本期通告]不能为空，做人不要太懒哦！")
		Elseif request("SignInAction")="" then
			Dv_Suc("<li> [本期通告]不能为空，做人不要太懒哦！")
		Else

	Set Rs=Dvbbs.Plus_Execute("Select top 1 * from [Dv_LuZiOffice_SignIn] order by ID desc")
		If Rs.eof then
		Else
			Dim ID
			ID=Rs(0)
			Set Rs=Dvbbs.Plus_Execute("update [Dv_LuZiOffice_SignIn] set SignInClass='" & Request.Form("SignInClass") & "' Where ID="&ID&"")
		End If
			Set Rs=Dvbbs.Plus_Execute("insert into [Dv_LuZiOffice_SignIn](UserName,System,SignInTitle,SignInAction) Values('"&request("UserName")&"',"&request("System")&",'"&request("SignInTitle")&"','"&request("SignInAction")&"')")
			XiaoLu.SignInMessage()
			Dv_Suc("新一条斑竹记录发布成功，恭喜您老。")
		End If




	End If
End Sub


Sub SaveConst()

	If Not (isNumeric(Request("XiaoLu.Setting(5)"))) Then
		Dv_Suc("[基本工资] 必须是数字，否则系统不允许提交")

	Elseif Instr(Request("XiaoLu.Setting(5)"),".") then
		Dv_Suc("[基本工资] 不能包含小数点，否则系统不允许提交")

	Elseif Request("XiaoLu.Setting(5)") < 0 then
		Dv_Suc("[基本工资] 必须大于0，否则系统不允许提交")

	ElseIf Not (isNumeric(Request("XiaoLu.Setting(7)"))) Then
		Dv_Suc("[退休奖金] 必须是数字，否则系统不允许提交")

	Elseif Instr(Request("XiaoLu.Setting(7)"),".") then
		Dv_Suc("[退休奖金] 不能包含小数点，否则系统不允许提交")

	Elseif Request("XiaoLu.Setting(7)") < 0 then
		Dv_Suc("[退休奖金] 必须大于0，否则系统不允许提交")

	ElseIf Not (isNumeric(Request("XiaoLu.Setting(6)"))) Then
		Dv_Suc("[请假天数] 必须是数字，否则系统不允许提交")

	Elseif Instr(Request("XiaoLu.Setting(6)"),".") then
		Dv_Suc("[请假天数] 不能包含小数点，否则系统不允许提交")

	Elseif Request("XiaoLu.Setting(6)") < 0 then
		Dv_Suc("[请假天数] 必须大于0，否则系统不允许提交")

	ElseIf Not (isNumeric(Request("XiaoLu.Setting(9)"))) Then
		Dv_Suc("[相隔天数] 必须是数字，否则系统不允许提交")

	Elseif Instr(Request("XiaoLu.Setting(9)"),".") then
		Dv_Suc("[相隔天数] 不能包含小数点，否则系统不允许提交")

	Elseif Request("XiaoLu.Setting(9)") < 0 then
		Dv_Suc("[相隔天数] 必须大于0，否则系统不允许提交")

	ElseIf Not (isNumeric(Request("XiaoLu.Setting(16)"))) Then
		Dv_Suc("[奖励值] 必须是数字，否则系统不允许提交")

	Elseif Instr(Request("XiaoLu.Setting(16)"),".") then
		Dv_Suc("[奖励值] 不能包含小数点，否则系统不允许提交")

	Elseif Request("XiaoLu.Setting(16)") < 0 then
		Dv_Suc("[奖励值] 必须大于0，否则系统不允许提交")

	ElseIf Not (isNumeric(Request("XiaoLu.Setting(11)"))) Then
		Dv_Suc("[撤消要求] 必须是数字，否则系统不允许提交")

	Elseif Instr(Request("XiaoLu.Setting(11)"),".") then
		Dv_Suc("[撤消要求] 不能包含小数点，否则系统不允许提交")

	Elseif Request("XiaoLu.Setting(11)") < 0 then
		Dv_Suc("[撤消要求] 必须大于0，否则系统不允许提交")

	Else
			Dim iXiaoLu_Setting,iSetting,i
			For i = 0 To 30
				If Trim(Request.Form("XiaoLu.Setting(" & i & ")")) = "" Then
					If i <> 29 Then
						iSetting = 0
					Else
						iSetting = ""
					End If
				Else
					iSetting = Replace(Trim(Request.Form("XiaoLu.Setting(" & i & ")")), "||@@||", "")
				End If
				
					If i = 0 Then
						iXiaoLu_Setting = iSetting
					Else
						iXiaoLu_Setting = iXiaoLu_Setting & "||@@||" & iSetting
					End If
			Next
				Dvbbs.Plus_Execute("Update Dv_LuZiPlus_Const Set Office_Setting='" & iXiaoLu_Setting & "'")
				Dv_Suc("版主办公室基本信息设置成功")
	End If
End Sub

Sub UserInfo()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(7)

	Response.Write "<table width=""95%"" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder>"
    Dim SQL,i
	SQL="Select * from [Dv_LuZiOffice_User] order by UserId desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)
				


				'//循环开始

				Response.Write "<tr><th Height=25 align=left id=tabletitlelink>"
				Response.Write "ID:"&Cint(SQL(0,i))&" 用户名："
				Response.Write "<A href=../dispuser.asp?name="&SQL(1,i)&" Title=""查看 "&SQL(1,i)&" 个人资料"" target=_blank><u>"&SQL(1,i)&"</u></a>"
				Response.Write "</th></tr>"
				
				Response.Write "<tr><td Height=25 class=forumRow Style=""line-height:22px"">"
				Response.Write "上任时间："&Year(SQL(10,i))&"-"&month(SQL(10,i))&"-"&day(SQL(10,i))&""
				Response.Write " 被投诉："&Cint(SQL(2,i))&" 次 签到："&Cint(SQL(3,i))&" 次 请假："&Cint(SQL(4,i))&" 次 [<a href=../Plus_ForumOffice_Team.asp?Action=UserInfo&Name="&Trim(SQL(1,i))&" Title=""查看 "&SQL(1,i)&" 评定资料""  target=_blank><Font Color=Blue>进入查看版主资料</Font></a>]"
				Response.Write "<br />"
				Response.Write "注册时间："&SQL(10,i)&" 查看版主评定签名："

				Response.Write "<div style=""overflow : auto ;padding:4px 20px 4px 20px;height:30px;line-height:20px;text-align : left;border:1px inset;background-color: #fff;"">"
		

						If Len(SQL(13,i)) < 3 Then
							Response.Write "<Font Color=Red>这人真懒,连一个签名都不认真填写,这说明态度不正,哎,BS一下</Font>"
						Else
							Response.Write ""&XiaoLu.HTMLCode(XiaoLu.Checkstr(SQL(13,i)))&""
						End If

				Response.Write "</div>"
				Response.Write "<div Align=Right class=copyright>"
				Response.Write "相关操作：[<A Href=?Action=EditUser&Name="&Trim(SQL(1,i))&">编辑版主资料</A>] [<A Href=?Action=UserPay&Name="&Trim(SQL(1,i))&">工资报表</A>] [<A Href=?Action=DeleteUserInfo&Name="&SQL(1,i)&" onclick=""javascript: return confirm('你确定要删除 "&Trim(SQL(1,i))&" 版主的全部评定资料吗? ');"">删除该版主全部评定资料</A>] [<A Href=?Action=DeleteMaster&Name="&SQL(1,i)&" onclick=""javascript: return confirm('你确定要撤消及删除 "&Trim(SQL(1,i))&" 的职位和评定资料吗? ');"">撤消该版主，并且删除全部评定资料</A>]"
				Response.Write "</div></td></tr>"
				Response.Write "</tr><td Height=5 class=forumRowHighlight></td></tr>"

				'//循环结束
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=UserInfo"",1);</SCRIPT>"
		Else
			Response.Write "</tr><td Height=25 class=forumRow><Font Color=red>数据库内暂时无法找到您的内容</Font></td></tr>"
		End If
			Rs.Close
			Set Rs=Nothing
	Response.Write "</table>"
End Sub

Sub DeleteUserInfo()

	Set Rs=Dvbbs.Plus_Execute("Delete from [Dv_LuZiOffice_User] Where UserName = '"&Request("Name")&"' ")
	Set Rs=Dvbbs.Plus_Execute("Delete from [Dv_LuZiPlus_Log] Where UserName = '"&Request("Name")&"'")
	
	Dv_Suc("恭喜您资料删除成功")
End Sub


'//工资审核部分
Sub PaymentNot()
	XiaoLu.AdminInfo()

	XiaoLu.APageConst(10)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=16 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=PaymentNot"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub


'//奖励审核部分
Sub EgNot()
	XiaoLu.AdminInfo()

	XiaoLu.APageConst(3)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=4 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=EgNot"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub


'//投诉审核部分
Sub PgNot()
XiaoLu.AdminInfo()
	XiaoLu.APageConst(5)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=7 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
				
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=PgNot"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub

'//奖励全部日志
Sub EgLog()
XiaoLu.AdminInfo()
	XiaoLu.APageConst(5)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=5 or ClassId=6 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
				
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=EgLog"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub

'//投诉全部日志
Sub PgLog()
XiaoLu.AdminInfo()
	XiaoLu.APageConst(5)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=8 or ClassId=9 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
				
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=PgLog"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub

'//辞职审核部分
Sub ResignNot()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(5)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=12 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
				
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=ResignNot"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub

'//请假日志
Sub LeaveList()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(5)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=2 or ClassId=3 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
				
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=LeaveList"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub

'//辞职日志
Sub ResignLog()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(5)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=13 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
				
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=LeaveList"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub

'//留言日志
Sub WordLog()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(10)
	SQL="Select * from [Dv_LuZiPlus_Log] Where ClassId=10 Or ClassId=11 order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

				Call EPgConst()
				
			
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=WordLog"",1);</SCRIPT>"
		Else
			Response.Write "<Font Color=red>数据库内暂时无法找到您的内容</Font>"
		End If
			Rs.Close
		Set Rs=Nothing
End Sub




'//内容框架
Sub EPgConst()
	Response.Write "<table width=""95%"" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder>"

	If Cint(SQL(6,i)) = 12 Then
		Response.Write "<form name="&SQL(0,i)&" method=post action=""?Action=ResignSave"">"
	ElseIf Cint(SQL(6,i)) = 16 Then
		Response.Write "<form name="&SQL(0,i)&" method=post action=""?Action=PaymentSave"">"
	Else
		Response.Write "<form name="&SQL(0,i)&" method=post action=""?Action=AuditingSave"">"
	End If

	Response.Write "<tr><th Height=25 colspan=2>"
	Response.Write "<table border=0 cellspacing=0 cellpadding=0 width=""100%"">"
	Response.Write "<tr><td width=""30%""><Font Color=#FFFFFF>ID:"&Cint(SQL(0,i))&" "

		If Cint(SQL(6,i)) = 4 Or Cint(SQL(6,i)) = 5 Or Cint(SQL(6,i)) = 6 Then
			Response.Write "奖励申请者："
		ElseIf Cint(SQL(6,i)) = 7 Or Cint(SQL(6,i)) = 8 Or Cint(SQL(6,i)) = 9 Then
			Response.Write "投诉申请者："
		ElseIf Cint(SQL(6,i)) = 12 Or Cint(SQL(6,i)) = 13 Then
			Response.Write "申请辞职者："
		ElseIf Cint(SQL(6,i)) = 2 or Cint(SQL(6,i)) = 3 Then
			Response.Write "请假会员："
		ElseIf Cint(SQL(6,i)) = 10 or Cint(SQL(6,i)) = 11 Then
			Response.Write "留言会员："
		ElseIf Cint(SQL(6,i)) = 16 Then
			Response.Write "用户ID："
		End If
		Response.Write "</Font>"

		If Cint(SQL(6,i)) = 12 Or Cint(SQL(6,i)) = 2 or Cint(SQL(6,i)) = 3 or Cint(SQL(6,i)) = 16 Or Cint(SQL(6,i)) = 13 Then
			Response.Write "<A href=../dispuser.asp?name="&SQL(1,i)&" Title=""查看 "&SQL(1,i)&" 个人资料"" target=_blank><Font Color=#FFFFFF><u>"&SQL(1,i)&"</u></Font></a>"
		
		Else
			Response.Write "<A href=../dispuser.asp?name="&SQL(10,i)&" Title=""查看 "&SQL(10,i)&" 个人资料"" target=_blank><Font Color=#FFFFFF><u>"&SQL(10,i)&"</u></Font></a>"
		End If

	If Cint(SQL(6,i)) = 10 Or Cint(SQL(6,i)) = 11 Then
	Else

		If Cint(SQL(9,i)) = 1 Then
			Response.Write "<Font Color=#FFFFFF>[匿名]</Font>"
		End If

	End If
		

	Response.Write "</td>"
	Response.Write "<td Width=""40%""><Font Color=#FFFFFF>"
	

		If Cint(SQL(6,i)) = 4 Or Cint(SQL(6,i)) = 5 Or Cint(SQL(6,i)) = 6 Then
			Response.Write "奖励对象："
						Response.Write "</Font><A href=../dispuser.asp?name="&SQL(1,i)&" Title=""查看 "&SQL(9,i)&" 个人资料"" target=_blank><Font Color=#FFFFFF><u>"&SQL(1,i)&"</u></Font></a>"

		ElseIf Cint(SQL(6,i)) = 7 Or Cint(SQL(6,i)) = 8 Or Cint(SQL(6,i)) = 9 Then
			Response.Write "投诉对象："
						Response.Write "</Font><A href=../dispuser.asp?name="&SQL(1,i)&" Title=""查看 "&SQL(9,i)&" 个人资料"" target=_blank><Font Color=#FFFFFF><u>"&SQL(1,i)&"</u></Font></a>"

		ElseIf Cint(SQL(6,i)) = 10 Or Cint(SQL(6,i)) = 11 Then
			Response.Write "留言对象："

						Response.Write "</Font><A href=../dispuser.asp?name="&SQL(1,i)&" Title=""查看 "&SQL(9,i)&" 个人资料"" target=_blank><Font Color=#FFFFFF><u>"&SQL(1,i)&"</u></Font></a>"

		End If

		If Cint(SQL(6,i)) = 5 Or Cint(SQL(6,i)) = 6 Or Cint(SQL(6,i)) = 8 Or Cint(SQL(6,i)) = 9 Or Cint(SQL(6,i)) = 13 Then
				Response.Write " <Font Color=#FFFFFF>日志状态:[</Font>"
			If Cint(SQL(6,i)) = 5 Or Cint(SQL(6,i)) = 8 Then

				Response.Write "<Font Color=Blue>审核已通过</Font>"

			ElseIf Cint(SQL(6,i)) = 6 Or Cint(SQL(6,i)) = 9 Or Cint(SQL(6,i)) = 13 Then

				Response.Write "<Font Color=Red>审核已拒绝</Font>"

			End If
				Response.Write "<Font Color=#FFFFFF>]</Font>"
		End If

	Response.Write "</td>"
	Response.Write "<td  Width=""30%"" Align=Right><Font Color=#FFFFFF>时间："&SQL(5,i)&"</Font></td></tr></table>"
	Response.Write "</th></tr>"
	Response.Write "<tr><td height=25 colspan=2 class=forumRowHighlight>"

	Response.Write "<Font Color=#990000>操作原由：</Font><br />"
	Response.Write "<div style=""overflow : auto ;padding:4px 5px 4px 5px;height:30px;line-height:20px;text-align : left;border:1px inset;background-color: #fff;"">"
	Response.Write ""&SQL(2,i)&""
	Response.Write "</Div>"

	If Cint(SQL(6,i)) = 11 Then

		Response.Write "<div style=""overflow : auto ;padding:4px 5px 4px 5px;height:30px;line-height:20px;text-align : left;border:1px inset;background-color: #fff;"">"
		Response.Write "<Font Color=Red>"&SQL(1,i)&"的回复</Font>："&SQL(12,i)&""
		Response.Write "</Div>"

	End If
	Response.Write "</td></tr>"

	If Cint(SQL(6,i)) = 12 Then

		Response.Write "<tr><td height=25 Width=""50%"" class=forumRowHighlight><u>操作选择</u></td>"
		Response.Write "<td height=25 Width=""50%"" class=forumRowHighlight>"

		Response.Write "<input type=radio name=ClassId value=14 checked />同意&nbsp;"
		Response.Write "<input type=radio name=ClassId value=13 />拒绝"

		Response.Write "</td></tr>"
		Response.Write "<tr><td height=25 Width=""50%"" class=forumRowHighlight></td>"
		Response.Write "<input name=""ID"" type=""hidden"" value="&SQL(0,i)&" />"
		Response.Write "<input name=""UserNameA"" type=""hidden"" value="&SQL(1,i)&" />"
		Response.Write "<td height=25 Width=""50%"" class=forumRowHighlight><input type=submit name=Submit"&SQL(0,i)&" value="" 填写完毕 , 提交"" /></td></tr>"
	
	ElseIf Cint(SQL(6,i)) = 2 or Cint(SQL(6,i)) = 3 Then
		Response.Write "<tr><td height=25 class=forumRowHighlight colspan=2>"
		Response.Write "请假天数：<B>"&SQL(9,i)&"</B> 天 请假时间："&SQL(5,i)&" 请假汇报："
			
			If len(SQL(11,i)) = 0 Then
				Response.Write "无"
			Else
				Response.Write "[<A href=../dispuser.asp?name="&SQL(11,i)&" Title=""查看 "&SQL(10,i)&" 个人资料"" target=_blank>"&SQL(11,i)&"</A>]"
			End If

		If Cint(SQL(6,i)) = 2 Or Cint(SQL(6,I)) = 3 Then

			Response.Write " 状态：["
				If Cint(SQL(6,i)) = 2 Then
					Response.Write "<Font Color=Red>请假中</Font>"
				ElseIf Cint(SQL(6,i)) = 3 Then
					Response.Write "已消假"
				End If
			Response.Write "]"
		End If

		Response.Write "</td></tr>"
	Else
If Cint(SQL(6,i)) = 10 or Cint(SQL(6,i)) = 11 Or Cint(SQL(6,i)) = 13 Then

ElseIf Cint(SQL(6,i)) = 16 Then
	Response.Write "<tr><td height=25 Width=""50%"" class=forumRowHighlight Valign=top><u>涉及金币</u><br />"&SQL(1,i)&"希望得到补偿金币数"
	Response.Write "</td><td height=25 Width=""50%"" class=forumRowHighlight>"
	Response.Write "<input name=UserG type=text size=6 value="&SQL(8,i)&" />"

	Response.Write "</td></tr>"
Else
	Response.Write "<tr><td height=25 Width=""50%"" class=forumRowHighlight Valign=top><u>涉及金币</u><br />由"

		If Cint(SQL(6,i)) = 4 Or Cint(SQL(6,i)) = 5 Or Cint(SQL(6,i)) = 6 Then
			Response.Write "奖励人"
		ElseIf Cint(SQL(6,i)) = 7 Or Cint(SQL(6,i)) = 8 Or Cint(SQL(6,i)) = 9 Then
			Response.Write "投诉人"
		End If

	Response.Write "所推荐的金币数量，若您觉得这个量不合适可允许修改。</td>"
	Response.Write "<td height=25 Width=""50%"" class=forumRowHighlight>"
	Response.Write "<input name=UserG type=text size=6 value="&SQL(8,i)&" />"

	Response.Write "</td></tr>"
	End If
End If

	
	

	If Cint(SQL(6,i)) = 4 Or Cint(SQL(6,i)) = 7 Or Cint(SQL(6,i)) = 16 Then
		Response.Write "<tr><td height=25 Width=""50%"" class=forumRowHighlight><u>操作选择</u></td>"
		Response.Write "<td height=25 Width=""50%"" class=forumRowHighlight>"

			If Cint(SQL(6,i)) = 4 Then
				Response.Write "<input type=radio name=ClassId value=5 checked />同意&nbsp;"
				Response.Write "<input type=radio name=ClassId value=6 />拒绝"
			ElseIf Cint(SQL(6,i)) = 7 Then
				Response.Write "<input type=radio name=ClassId value=8 checked />同意&nbsp;"
				Response.Write "<input type=radio name=ClassId value=9 />拒绝"
			ElseIf Cint(SQL(6,i)) = 16 Then
				Response.Write "<input type=radio name=ClassId value=15 checked />同意&nbsp;"
				Response.Write "<input type=radio name=ClassId value=17 />拒绝"
			End If

		Response.Write "</td></tr>"

		Response.Write "<tr><td height=25 Width=""50%"" class=forumRowHighlight></td>"
		Response.Write "<input name=""ID"" type=""hidden"" value="&SQL(0,i)&" />"
		Response.Write "<input name=""UserName"" type=""hidden"" value="&SQL(10,i)&" />"
		Response.Write "<input name=""UserNameA"" type=""hidden"" value="&SQL(1,i)&" />"
		Response.Write "<td height=25 Width=""50%"" class=forumRowHighlight><input type=submit name=Submit"&SQL(0,i)&" value="" 填写完毕 , 提交"" /></td></tr>"
	End If

	Response.Write "</Form></table><Br />"

End Sub

'//奖励投诉提交部分
Sub AuditingSave()

		Set Rs=Dvbbs.Execute("Select usermoney from [Dv_User] where UserName = '"&Request("UserNameA")&"'")
		Dim usermoney
		usermoney = ""&Rs("usermoney")&""
		Set Rs=Dvbbs.Plus_Execute("Select UserAppeal,UserEncouragement,UserEg,UserPg from [Dv_LuZiOffice_User] where UserName = '"&Request("UserNameA")&"'")
		Dim UserAppeal,UserEncouragement,UserEg,UserPg
		UserAppeal = ""&Rs("UserAppeal")&""
		UserEncouragement = ""&Rs("UserEncouragement")&""
		UserEg = ""&Rs("UserEg")&""
		UserPg = ""&Rs("UserPg")&""

	If Clng(Request("ClassId")) = 8 Then

		'//投诉通过
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiPlus_Log] set ClassId="&Cint(Request.Form("ClassId"))&" , UserG='"&Request.Form("UserG")&"' Where ID="&CStr(Request("ID"))&"")
		
		Set Rs=Dvbbs.Execute("UpDate [Dv_User] set usermoney="&Cint(usermoney) - Cint(Request.Form("UserG"))&" Where UserName='"&Request("UserNameA")&"'")
		
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiOffice_User] set UserAppeal="&Cint(UserAppeal) + 1&" , UserPg="&Cint(UserPg) - Cint(Request.Form("UserG"))&" Where UserName='"&Request("UserNameA")&"'")

		Set Rs=Dvbbs.Execute("insert into dv_message(sender,incept,title,content,sendtime,flag,issend) values('办公室' , '"&Request("UserNameA")&"' , '投诉信息' ,  '"&Request("UserNameA")&"，目前有会员投诉您，管理员已审核通过，具体投诉信息请到办公室大厅查看，若有疑问可以找管理员。' , '"&now()&"' , 0 , 0)")


	ElseIf Cint(Request("ClassId")) = 5 Then

		'//奖励通过
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiPlus_Log] set ClassId="&Cint(Request.Form("ClassId"))&" , UserG='"&Request.Form("UserG")&"' Where ID="&CStr(Request("ID"))&"")
		
		Set Rs=Dvbbs.Execute("UpDate [Dv_User] set usermoney="&Cint(usermoney) + Cint(Request.Form("UserG"))&" Where UserName='"&Request("UserNameA")&"'")
	
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiOffice_User] set UserEncouragement="&Cint(UserEncouragement) + 1&" , UserEg="&Cint(UserEg) + Cint(Request.Form("UserG"))&" Where UserName='"&Request("UserNameA")&"'")

		Set Rs=Dvbbs.Execute("insert into dv_message(sender,incept,title,content,sendtime,flag,issend) values('办公室' , '"&Request("UserNameA")&"' , '奖励信息' ,  '"&Request("UserNameA")&"，恭喜，由于您的出色表现，目前有会员奖励您，管理员已审核通过，具体投诉信息请到办公室大厅查看，若有疑问可以找管理员。' , '"&now()&"' , 0 , 0)")

	ElseIf Cint(Request("ClassId")) = 9 Then
	
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiPlus_Log] set ClassId="&Cint(Request.Form("ClassId"))&" , UserG='"&Request.Form("UserG")&"' Where ID="&CStr(Request("ID"))&"")
		
		Set Rs=Dvbbs.Execute("insert into dv_message(sender,incept,title,content,sendtime,flag,issend) values('办公室' , '"&Request("UserName")&"' , '投宿审核信息' ,  '"&Request("UserName")&"，抱歉，您在管理团队内申请的投诉信息未审核通过' , '"&now()&"' , 0 , 0)")

	ElseIf Cint(Request("ClassId")) = 6 Then

		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiPlus_Log] set ClassId="&Cint(Request.Form("ClassId"))&" , UserG='"&Request.Form("UserG")&"' Where ID="&CStr(Request("ID"))&"")
		
		Set Rs=Dvbbs.Execute("insert into dv_message(sender,incept,title,content,sendtime,flag,issend) values('办公室' , '"&Request("UserName")&"' , '奖励审核信息' ,  '"&Request("UserName")&"，抱歉，您在管理团队内申请的奖励信息未审核通过' , '"&now()&"' , 0 , 0)")

	End If
	Dv_Suc("审核提交成功,您可以再次审核下一条信息")
End Sub

Sub ResignSave()

	If Cint(Request("ClassId")) = 14 Then '同意

		Dim ABC,DeleteUser,MasterList,Rs,i,BID,LuRs,GroupTitle

		ABC = ""&Trim(Request("UserNameA"))&""

		'Response.Write ABC
		'Response.End

			If ABC <> "" Then

				Set LuRs=Dvbbs.Execute("select * from [Dv_Board] Where BoardMaster like '%"&ABC&"%'")

					Do While Not LuRs.Eof

						Dim b
						BID = LuRs(0)

						Set Rs=Dvbbs.Execute("Select BoardMaster From [Dv_Board] Where boardid= "&Cint(BID)&"")

						MasterList=Split(Rs("BoardMaster"),"|")

						For i=LBound(MasterList) To UBound(MasterList)

							If Not (Instr(MasterList(i),ABC)>0) Then
							  If IsArray(b) Then
								   ReDim Preserve b(UBound(b)+1)
							  Else
								   ReDim b(0)
							  End If
							  b(UBound(b))=MasterList(i)
						   End If
						Next

					   If Not IsArray(b) Then
							ReDim b(0)
						End If


						DeleteUser=Join(b,"|")
						Set b=Nothing

						Set Rs=Dvbbs.Execute("UpDate [Dv_Board] set BoardMaster = '"& DeleteUser &"' Where boardid= "&Cint(BID)&"")

					LuRs.MoveNext
					If LuRs.Eof Or LuRs.Bof Then  Exit Do
					Loop

						Set Rs=Dvbbs.Plus_Execute("Delete from [Dv_LuZiOffice_User] Where UserName = '"&ABC&"' ")
						Set Rs=Dvbbs.Plus_Execute("Delete from [Dv_LuZiPlus_Log] Where UserName = '"&ABC&"' Or Manipulator = '"&ABC&"'")
						
						Set Rs=Dvbbs.Execute("select title from Dv_UserGroups where UserGroupID="&XiaoLu.Setting(11)&"")
						
						GroupTitle=Rs(0)

						Set Rs=Dvbbs.Execute("update [Dv_User] set UserGroupID="&XiaoLu.Setting(11)&",userclass='"&GroupTitle&"' where username='"&ABC&"'")
						Dv_Suc("辞职审核提交成功，该版主的评定资料和职位已全部删除。")

						Call RestoreBoardCache()
				Else

					Dv_Suc("<li> 提交的用户名是空的，请检查清楚后再尝试。")
				
			End If

	ElseIf Cint(Request("ClassId")) = 13 Then '拒绝

		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiPlus_Log] set ClassId="&Cint(Request.Form("ClassId"))&" Where ID="&CStr(Request("ID"))&"")
		Set Rs=Dvbbs.Execute("insert into dv_message(sender,incept,title,content,sendtime,flag,issend) values('办公室' , '"&Request("UserNameA")&"' , '辞职拒绝' ,  '"&Request("UserName")&"，抱歉，您申请的辞职信已被管理员拒绝收，若有什么疑问请与管理员联系' , '"&now()&"' , 0 , 0)")
		Dv_Suc("辞职审核提交成功，您已拒绝改斑竹的辞职申请。")
	End If
End Sub

'//签到日志
Sub SignInLog()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(10)
	
	Response.Write "<table width=""95%"" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder>"

	SQL="Select * from [Dv_LuZiOffice_SignIn] order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)

			Set Rs=Dvbbs.Plus_Execute("Select count(*) from [Dv_LuZiPlus_Log] where SignInId = "&SQL(0,i)&" ")
			Dim SignIn
			SignIn = ""&Rs(0)&""


				Response.Write "<tr><th Height=25 id=tabletitlelink Align=Left>"
				Response.Write "第 "&Cint(SQL(0,i))&" 期 标题：<A href=?Action=UserSignIn&Id="&Cint(SQL(0,i))&" Title=查看本期版主签到情况>"

			if len(XiaoLu.Checkstr(SQL(1,i))) > 60 then
				Response.write ""&left(XiaoLu.Checkstr(Trim(SQL(1,i))),30)&"....."&Right(XiaoLu.Checkstr(Trim(SQL(1,i))),6)&"[长]"
			Else
				Response.write ""&XiaoLu.Checkstr(Trim(SQL(1,i)))&""
			End If
						
				Response.Write "</A> [本期共 "&SignIn&" 个版主签到] <A href=?Action=UserSignIn&Id="&Cint(SQL(0,i))&" Title=查看本期版主签到情况><Font Color=#FFFFFF>点击查看</Font></A></th></tr>"
				Response.Write "<tr><td Height=25 class=forumRow>"
				Response.Write "<div style=""overflow : auto ;padding:4px 20px 4px 20px;height:30px;line-height:20px;text-align : left;border:1px inset;background-color: #fff;"">"
				Response.Write "<U>本期公告</U>："&XiaoLu.HTMLCode(XiaoLu.Checkstr(Trim(SQL(2,i))))&""
				Response.Write "</Div><div Align=Right class=copyright>"
				Response.Write "[<A href=?Action=EditSignIn&Id="&SQL(0,i)&" Title=编辑本期签到记录>编辑</A>] 创建人："
			
					If Cint(SQL(6,i)) = 1 Then
						Response.Write ""&Trim(SQL(5,i))&""
					Else
						Response.Write "<Font Color=Blue>系统创建</Font>"
					End If

				Response.Write " 状态："

					If Cint(SQL(3,i)) = 0 Then
						Response.Write "[<Font Color=Red>签到中</Font>]"
					Else
						Response.Write "[已停止]"
					End If

				Response.Write " 发布时间："&SQL(4,i)&""



				Response.Write "</div>"

				Response.Write "</td></tr>"
				Response.Write ""
				Response.Write ""
				Response.Write ""
				Response.Write ""
				Response.Write "</tr><td Height=5 class=forumRowHighlight></td></tr>"
							
		Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=SignInLog"",1);</SCRIPT>"
		Else
			Response.Write "</tr><td Height=25 class=forumRow><Font Color=red>数据库内暂时无法找到您的内容</Font></td></tr>"
		End If
			Rs.Close
		Set Rs=Nothing
		Response.Write "</table>"
End Sub

Sub UserSignIn()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(10)
	
	Response.Write "<table width=""95%"" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder>"

	SQL="Select * from [Dv_LuZiPlus_Log] where ClassId=1 And SignInId = "&Request("Id")&" order by ID desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 


			If Not (Rs.Eof And Rs.Bof) Then
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)
					
					Response.Write "<tr><th Height=25 id=tabletitlelink Align=Left>"
					Response.Write "ID："&SQL(0,i)&" 用户名："
					Response.Write "<A href=../dispuser.asp?name="&SQL(1,i)&" Title=""查看 "&SQL(1,i)&" 个人资料"" target=_blank><u>"&SQL(1,i)&"</u></a>"
					Response.Write "</th></tr>"
					Response.Write "<tr><td Height=25 class=forumRow>"

					Response.Write ""&SQL(1,i)&"的签到留言：<br />"
					Response.Write "<div style=""overflow : auto ;padding:4px 20px 4px 20px;height:30px;line-height:20px;text-align : left;border:1px inset;background-color: #fff;"">"
					Response.Write ""&XiaoLu.HTMLCode(XiaoLu.Checkstr(Trim(SQL(2,i))))&""
					Response.Write "</Div><div Align=Right class=copyright>"
					Response.Write "签到时间："&SQL(5,i)&" 当前Ip:"&SQL(13,i)&""
					Response.Write "</Div>"

					Response.Write ""
					Response.Write ""
					Response.Write "</td></tr>"

					Response.Write "</tr><td Height=5 class=forumRowHighlight></td></tr>"

					Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=SignInLog"",1);</SCRIPT>"
		Else
			Response.Write "</tr><td Height=25 class=forumRow><Font Color=red>数据库内暂时无法找到您的内容</Font></td></tr>"
		End If
			Rs.Close
		Set Rs=Nothing
		Response.Write "</table>"
End Sub

Sub EditSignIn()

	XiaoLu.AdminInfo()
	Set Rs=Dvbbs.Plus_Execute("Select * from [Dv_LuZiOffice_SignIn] where ID = "&CStr(Request("Id"))&"")


	If Rs.Eof Then

		Response.Write "对不起，数据内无法找到您需要的ID"

	Else
		Response.Write "<table width=""95%"" border=0 align=center cellpadding=3 cellspacing=1 class=tableBorder>"
		Response.Write "<form name=EditSave method=post action=""?Action=EditSave"">"
		Response.Write "<tr><th height=25 colspan=2 align=left >编辑签到记录</th></tr>"
		Response.Write "<tr>"


		Response.Write "<td width=""50%"" height=25 class=forumRow><u>第 <b>"&Rs(0)&"</b> 期签到记录标题</u><br />"

		Response.Write "</td>"
		Response.Write "<td width=""50%"" class=forumRow><input name=SignInTitle type=text size=50 value="&Rs(1)&" /></td></tr>"
		Response.Write "<tr>"
		Response.Write "<td valign=top class=forumRowHighlight><u>本期通告</u><br />显示在签到页的标题下方。"


		Response.Write "</td>"
		Response.Write "<td class=forumRowHighlight><textarea name=SignInAction cols=35 rows=5>"&Trim(Rs(2))&"</textarea></td></tr>"
		Response.Write "<input name=ID type=hidden value="&CStr(Request("Id"))&" />"
		Response.Write "<tr><td height=25 class=forumRowHighlight></td>"
		Response.Write "<td class=forumRowHighlight>"
		Response.Write "<input type=submit name=Submit4 value="" 填写完成 , 提交 "" /> <a href=""ForumOffice.Asp""><<返回插件管理首页</a></td>"
		Response.Write "</tr></form></table>"

	End If

End Sub

Sub EditSave()
	Set Rs=Dvbbs.Plus_Execute("Select * from [Dv_LuZiOffice_SignIn] where ID = "&CStr(Request("ID"))&"")

	If Rs.Eof Then

		Response.Write "错误ID提交"

	Else
		
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiOffice_SignIn] set SignInTitle='"&Request.Form("SignInTitle")&"' , SignInAction='"&Request.Form("SignInAction")&"' Where ID="&CStr(Request("ID"))&"")
		
		Dv_Suc("恭喜您，编辑签到记录提交成功")

	End If
End Sub

Sub PaymentSave()
		Set Rs=Dvbbs.Execute("Select usermoney from [Dv_User] where UserName = '"&Request("UserNameA")&"'")
		Dim usermoney
		usermoney = ""&Rs("usermoney")&""
		Set Rs=Dvbbs.Plus_Execute("Select UserEg from [Dv_LuZiOffice_User] where UserName = '"&Request("UserNameA")&"'")
		Dim UserEg

		UserEg = ""&Rs("UserEg")&""

	If Cint(Request("ClassId")) = 15 Then

		'//奖励通过
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiPlus_Log] set ClassId="&Cint(Request.Form("ClassId"))&" , UserG='"&Request.Form("UserG")&"' Where ID="&CStr(Request("ID"))&"")
		
		Set Rs=Dvbbs.Execute("UpDate [Dv_User] set usermoney="&Cint(usermoney) + Cint(Request.Form("UserG"))&" Where UserName='"&Request("UserNameA")&"'")
	
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiOffice_User] set UserEg="&Cint(UserEg) + Cint(Request.Form("UserG"))&" Where UserName='"&Request("UserNameA")&"'")

		Set Rs=Dvbbs.Execute("insert into dv_message(sender,incept,title,content,sendtime,flag,issend) values('办公室' , '"&Request("UserNameA")&"' , '审核信息' ,  '"&Request("UserNameA")&"，恭喜，您提交的工资疑问申请已审核通过，具体信息可以在办公室内查看，若有疑问可以找管理员。' , '"&now()&"' , 0 , 0)")

	ElseIf Cint(Request("ClassId")) = 17 Then
	
		Set Rs=Dvbbs.Plus_Execute("UpDate [Dv_LuZiPlus_Log] set ClassId="&Cint(Request.Form("ClassId"))&" , UserG='"&Request.Form("UserG")&"' Where ID="&CStr(Request("ID"))&"")
		
		Set Rs=Dvbbs.Execute("insert into dv_message(sender,incept,title,content,sendtime,flag,issend) values('办公室' , '"&Request("UserNameA")&"' , '审核信息' ,  '"&Request("UserNameA")&"，抱歉，您提交的工资疑问申请未审核通过，若有疑问可以找管理员。' , '"&now()&"' , 0 , 0)")
	End If
		Dv_Suc("审核提交成功,您可以再次审核下一条信息")

End Sub

Sub DeleteMaster()

Dim ABC,DeleteUser,MasterList,Rs,i,BID,LuRs,GroupTitle

ABC = ""&Trim(Request.QueryString("Name"))&""

'Response.Write ABC
'Response.End

	If ABC <> "" Then

		Set LuRs=Dvbbs.Execute("select * from [Dv_Board] Where BoardMaster like '%"&ABC&"%'")

			Do While Not LuRs.Eof

				Dim b
				BID = LuRs(0)

				Set Rs=Dvbbs.Execute("Select BoardMaster From [Dv_Board] Where boardid= "&Cint(BID)&"")

				MasterList=Split(Rs("BoardMaster"),"|")

				For i=LBound(MasterList) To UBound(MasterList)

					If Not (Instr(MasterList(i),ABC)>0) Then
					  If IsArray(b) Then
						   ReDim Preserve b(UBound(b)+1)
					  Else
						   ReDim b(0)
					  End If
					  b(UBound(b))=MasterList(i)
				   End If
				Next

			   If Not IsArray(b) Then
					ReDim b(0)
				End If


				DeleteUser=Join(b,"|")
				Set b=Nothing

				Set Rs=Dvbbs.Execute("UpDate [Dv_Board] set BoardMaster = '"& DeleteUser &"' Where boardid= "&Cint(BID)&"")

			LuRs.MoveNext
			If LuRs.Eof Or LuRs.Bof Then  Exit Do
			Loop

				Set Rs=Dvbbs.Plus_Execute("Delete from [Dv_LuZiOffice_User] Where UserName = '"&ABC&"' ")
				Set Rs=Dvbbs.Plus_Execute("Delete from [Dv_LuZiPlus_Log] Where UserName = '"&ABC&"'")
				
				Set Rs=Dvbbs.Execute("select title from Dv_UserGroups where UserGroupID="&XiaoLu.Setting(11)&"")
				
				GroupTitle=Rs(0)

				Set Rs=Dvbbs.Execute("update [Dv_User] set UserGroupID="&XiaoLu.Setting(11)&",userclass='"&GroupTitle&"' where username='"&ABC&"'")
				Dv_Suc("版主资料以及职位删除成功。")

				Call RestoreBoardCache()
		Else

			Dv_Suc("<li> 提交的用户名是空的，请检查清楚后再尝试。")
		
	End If
End Sub

Sub RestoreBoardCache()
	Dim Board
	Dvbbs.LoadBoardList()
	For Each board in Application(Dvbbs.CacheName&"_boardlist").documentElement.selectNodes("board/@boardid")
		Dvbbs.LoadBoardData board.text
		Dvbbs.LoadBoardinformation board.text
	Next
End Sub

Sub EditUser()

	XiaoLu.AdminInfo()

	Set Rs=Dvbbs.Plus_Execute("Select * from [Dv_LuZiOffice_User] where UserName = '"&Trim(Request("Name"))&"'")
	
	Response.Write "<form action=""?action=EditUserSave"" method=""post"">"
	Response.Write "<table width=""95%"" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder>"
	Response.Write "<tr><th colspan=2 align=left height=25>"&Rs(1)&" 版主资料编辑</th></tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""50%"" height=25 class=forumRow><u>投诉次数</u>"
	Response.Write "</td>"
	Response.Write "<td width=""50%"" class=forumRow>"
	Response.Write "<input name=UserAppeal type=text size=6 value="&Cint(Rs("UserAppeal"))&" />"
	Response.Write "</td></tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""50%"" height=25 class=forumRowHighlight><u>签到次数</u>"
	Response.Write "</td>"
	Response.Write "<td width=""50%"" class=forumRowHighlight>"
	Response.Write "<input name=UserSignIn type=text size=6 value="&Cint(Rs("UserSignIn"))&" />"
	Response.Write "</td></tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""50%"" height=25 class=forumRow><u>请假次数</u>"
	Response.Write "</td>"
	Response.Write "<td width=""50%"" class=forumRow>"
	Response.Write "<input name=UserOnLeave type=text size=6 value="&Cint(Rs("UserOnLeave"))&" />"
	Response.Write "</td></tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""50%"" height=25 class=forumRowHighlight><u>奖励次数</u>"
	Response.Write "</td>"
	Response.Write "<td width=""50%"" class=forumRowHighlight>"
	Response.Write "<input name=UserEncouragement type=text size=6 value="&Cint(Rs("UserEncouragement"))&" />"
	Response.Write "</td></tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""50%"" height=25 class=forumRow Valign=top><u>版主签名</u>"
	Response.Write "</td>"
	Response.Write "<td width=""50%"" class=forumRow>"
	Response.Write "<textarea name=UserResume cols=60 rows=5>"&Rs("UserResume")&"</textarea>"
	Response.Write "</td></tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""50%"" height=25 class=forumRowHighlight Valign=top>"
	Response.Write "</td>"
	Response.Write "<td width=""50%"" class=forumRowHighlight>"
	Response.Write "<input name=UserName type=""hidden"" value="&Rs("UserName")&" />"  '用户名
	Response.Write "<input type=submit name=Submit1 value="" 填写完毕 , 提交"" />"
	Response.Write "</td></tr>"
	Response.Write "</table>"
End Sub

Sub EditUserSave()
	Set Rs=Dvbbs.Plus_Execute("update [Dv_LuZiOffice_User] set UserAppeal="&Request("UserAppeal")&",UserSignIn="&Request("UserSignIn")&",UserOnLeave="&Request("UserOnLeave")&",UserEncouragement="&Request("UserEncouragement")&",UserResume='"&Request("UserResume")&"' where UserName='"&Trim(Request("UserName"))&"'")
	Dv_Suc("版主资料编辑成功。")
End Sub

Sub UserPay()
	XiaoLu.AdminInfo()
	XiaoLu.APageConst(10)
	SQL="Select * from [Dv_LuZiOffice_Pay] where PayName = '"&Request("Name")&"' order by PayId desc"
	
			Set Rs = Server.CreateObject ("adodb.recordset")
			If Cint(Dvbbs.Forum_Setting(92))=1 Then
				If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
				Rs.Open Sql,Plus_Conn,1,1
			Else
				If Not IsObject(Conn) Then ConnectionDatabase
				Rs.Open Sql,conn,1,1
			End If 

	If Not (Rs.Eof And Rs.Bof) Then
					Response.Write "<table width=""95%"" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder>"
					Response.Write "<tr><th Height=25 id=tabletitlelink Align=Left>"
					Response.Write "ID："&Cint(Rs("PayId"))&" 用户名："
					Response.Write "<A href=../dispuser.asp?name="&Trim(Rs("PayName"))&" Title=""查看 "&Trim(Rs("PayName"))&" 个人资料"" target=_blank><u>"&Trim(Rs("PayName"))&"</u></a>"
					Response.Write "</th></tr>"


			
				CountNum = Rs.RecordCount
					If CountNum Mod MaxRows=0 Then
						Endpage = CountNum \ MaxRows
					Else
						Endpage = CountNum \ MaxRows+1
					End If
				Rs.MoveFirst
				If Page > Endpage Then Page = Endpage
					If Page < 1 Then Page = 1
						If Page >1 Then 				
							Rs.Move (Page-1) * MaxRows
						End if
					SQL=Rs.GetRows(MaxRows)
			For i=0 To Ubound(SQL,2)
					
					Response.Write "<tr><td Height=25 class=forumRow>"
					Response.Write "基本工资："&Cint(SQL(2,i))&" 本期奖金："&Cint(SQL(5,i))&" 工资扣除："&Cint(SQL(6,i))&" 附加奖励值："&Cint(SQL(3,i))&" 附加处罚值："&Cint(SQL(4,i))&" 发放时间："&SQL(14,i)&""

		If Len(SQL(13,i)) <= 3 Then
		Else
			Response.Write "<br /><Font Color = #660000>操作理由</Font>：<br />"
			Response.Write "<div style=""overflow : auto ;padding:4px 5px 4px 5px;height:30px;line-height:20px;text-align : left;border:1px inset;background-color: #fff;"">"
			Response.Write ""&XiaoLu.HTMLCode(XiaoLu.Checkstr(SQL(13,i)))&""
			Response.Write "</div>"
		End If

	Response.Write "</td></tr>"

					Response.Write "</tr><td Height=5 class=forumRowHighlight></td></tr>"

					Next

			Response.Write "<SCRIPT>PageList("&Page&",10,"&MaxRows&","&CountNum&",""Action=UserPay"",1);</SCRIPT>"
		Else
			Response.Write "</tr><td Height=25 class=forumRow><Font Color=red>数据库内暂时无法找到您的内容</Font></td></tr>"
		End If
			Rs.Close
		Set Rs=Nothing
		Response.Write "</table>"
End Sub
%>