mydesk.asp

派出所案件管理系统 20080728 用于派出所内部管理案件信息

<!-- #include file="../inc/LHB_Check_Session.asp" -->
<%
'==================================================================
'中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中中
'中　　************** 思翔 实用办公系统 ***************　　　　　国
'中　　文件名：            　　　　　　　　　　　　　　　　　　　国
'中　　作用：                　　　　　　　　　　　　　　　　　　国
'中　　作者：搜捕者　　　　　　　　　　　　　　　　　　　　　　　国
'中　　网站：思翔　http://www.sxang.cn　　　　　　　　　 　　　　国
'中　　联系：QQ:7937080　　　　　　　　　　　　　　　  　　　　　国
'中　　邮件：[e-mail] MSN                            国
'中　　更新日期：2008年6月14日（搜捕者）                         国
'中　　版权：源代码公开，允许自行修改，但自行修改造成的后果自负  国
'中　　使用该软件必须保留软件作者的版权声明，将该软件从原有自然  国
'中　　语言文字转换成另一自然语言文字的，仍应注明出处。          国
'中　　************************************************          国
'国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国国
'==================================================================
Sub MyDesk(user)
If User="有管理权限" Then
%>
<script language="JavaScript" src="../css/page.js"></script>
<table width="<%=Table_Width%>"  border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td colspan="4">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
QX_CaiDanID=Request("QX_CaiDanID")
L_FenLeiBM = FuLei_KeiShi_XuHao
Set Lours=server.createobject("adodb.recordset")
Sqlks="select * From LHB_GongYong where L_FenLeiBM = "&L_FenLeiBM
Lours.Open Sqlks,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("请先添加科室")
else
i=1
do while not Lours.eof%>
<td height="25" align="center"><a href="?LouHB_Key=<%=Lours("L_MingChengBM")%>&LouHB_Type=a.LHB_KeShiBM&LouHB_Action=<%=Request("LouHB_Action")%>&QX_CaiDanID=<%=QX_CaiDanID%>&GuangLi=<%=Request("GuangLi")%>"><img src="../pic/07.gif" alt="科室" border="0" width="30" height="30" /></a><br><%=Lours("L_MingCheng")%><hr color="#2462F4"></td>
<%
If i mod 10 =0 Then
response.write "</tr><tr>"
End If
Lours.movenext
i=i+1
loop
End If
Lours.Close 
set Lours=nothing
%>
</tr>
</table></td>
</tr>
<form name="form1" method="post" action="LHB_user.asp">
<tr>
<td width="214" height="25">&nbsp;</td>
<td width="175" height="25" align="center"><input name="LouHB_Key" type="text" class="button1" size="20" value="<%=Request("LouHB_Key")%>" /></td>
<td width="82" align="center">
<select name="LouHB_Type" class="button1">
<option value="a.LHB_XingMing">按姓名搜索</option>
<option value="a.LHB_GongHao">按工号搜索</option>
</select></td>
<td width="297" height="25">
<input name="LouHB_Action" type="hidden" value="<%=L_Action%>" />
<input name="QX_CaiDanID" type="hidden" value="<%=QX_CaiDanID%>" />
<input name="GuangLi" type="hidden" value="<%=Request("GuangLi")%>" />
<input name="Submit" type="submit"  class="btn3_mouseup" value="按姓名搜索" /></td>
</tr>
</form>
</table>
<%
L_PageName=request("LouHB_PageName")
Select Case L_PageName
Case "第一页"
page=1
Case "上一页"
page=Request("LouHB_PageNo")-1
Case "下一页"
page=Request("LouHB_PageNo")+1
Case "最后一页"
page=Request("LouHB_SunPage")
Case "跳转到"
page=Clng(Request("page"))
End Select
judge=request("judge")
judge2=request("judge2")
judge3=0

'L_Group = Session("LHB_Group")
L_Key = Request("LouHB_Key")
L_Type=Request("LouHB_Type")
If L_Type = "a.LHB_XingMing" or L_Type = "a.LHB_GongHao" Then
L_1="Like"
L_2="'"
L_3="%"
ElseIf L_Type = "a.LHB_KeShiBM" then
L_1="="
L_2=""
L_3=""
End If
Set Lours=server.createobject("adodb.recordset")
Sql="Select a.*,b.L_MingCheng As L_KeShi,c.L_MingCheng As L_Group from (LHB_USER_DATA a left join LHB_GongYong b on a.LHB_KeShiBM = b.L_MingChengBM and a.LHB_KeShi_FLBM = b.L_FenLeiBM)Left Join LHB_GongYong c on a.LHB_Group=c.L_MingChengBM And a.LHB_Group_FLBM=c.L_FenLeiBM where a.ID>0"
If L_Type <> "" Then Sql=Sql&" And a.LHB_DengLuQX <> 2 And "&L_Type&" "&L_1&" "&L_2&""&L_3&""&L_key&""&L_3&""&L_2&""
Sql=Sql&" Order by b.L_PaiXu,a.LHB_PaiXu"

Lours.open Sql,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("<center>结果为空</center>")
else
%>
<table width="<%=Table_Width%>" border="0" cellspacing="0" align="center">
<tr>
<td height="30" colspan="9" align=center background="../pic/DHT-bg.gif" class="table4">本院职工列表</td>
</tr>
<tr>
<td width="57" align=center class="table4" height="30">工号</td>
<td width="87" align=center class="table4">姓名</td>
<td width="47" align=center class="table4">性别</td>
<td width="108" align=center class="table4">科室</td>
<td width="98" align=center class="table4">角　色</td>
<td width="88" align=center class="table4">登录权限</td>
<td width="108" align=center class="table4">注销日期</td>
<td align=center class="table4">序</td>
<td align=center class="table4">操　作</td>
</tr>
<%
Lours.MoveFirst
Lours.PageSize = Page_Size  '每页显示的条数  
If page < 1 Then page = 1 
If page > Lours.PageCount Then page = Lours.PageCount  
Lours.AbsolutePage = page
For ipage = 1 To Lours.PageSize
%>
<tr>
<td align=center class="table4" height="30">
<%
if Lours("LHB_GongHao")=session("LHB_GongHao") then
response.write"<font color=red>"&Lours("LHB_GongHao")&"</font>"
else
response.write""&Lours("LHB_GongHao")&""
end if
%>
</td>
<td align=center class="table4"><%=Lours("LHB_XingMing")%></td>
<td align=center class="table4">
<%if Lours("LHB_sex")="1" then
response.Write("男")
elseif Lours("LHB_sex")="2" then
response.Write("女")
else
response.Write("变态，乱改性别！")
end if
%></td>
<td align=center class="table4"><%=Lours("L_KeShi")%></td>
<td align=center class="table4"><%=Lours("L_Group")%></td>
<td align=center class="table4">
<% if Lours("LHB_DengLuQX")="0" then
response.write("允许登录")
elseif Lours("LHB_DengLuQX")="1" then
response.write("不允许登录")
elseif Lours("LHB_DengLuQX")="2" then
response.write("已注销")
end if
%></td>
<td align=center class="table4">
<%If Lours("LHB_ZhuXiao_RiQi")="1900-1-1" Then
response.write("&nbsp;")
Else
response.write""&Lours("LHB_ZhuXiao_RiQi")&""
End If
%>
</td>
<td width="38" align=center class="table4">
<%=Lours("LHB_PaiXu")%></td>
<form name="form1" method="GET">
<td width="347" align=center class="table4">
<%If "YH"=Request("GuangLi") Then
response.write"<input name=""submit"" type=""submit"" value=""修改"" onclick=""action='modiy_user.asp'"" class=""btn3_mouseover"">"
response.write"<input name=""ID"" type=""hidden"" value="&Lours("ID")&">"
response.write"<input name=""LouHB_Key"" type=""hidden"" value="&L_Key&">"
response.write"<input name=""LouHB_Type"" type=""hidden"" value="&L_Type&">"
response.write"<input name=""QX_CaiDanID"" type=""hidden"" value="&QX_CaiDanID&">"
response.write"<input name=""LouHB_Action"" type=""hidden"" value="&Request("LouHB_Action")&">"
response.write"<input name=""GuangLi"" type=""hidden"" value="&Request("GuangLi")&">"
End If
If "BM"=Request("GuangLi") Then
%>
设定：
<a href="LHB_BuMenQX.asp?LouHB_GongHao=<%=Lours("LHB_GongHao")%>&QX_CaiDanID=<%=Request("QX_CaiDanID")%>">管理部门</a>
<%End If%>
</td>
</form>
</tr>
<%
Lours.MoveNext      
If Lours.EOF Then Exit For   
Next
%>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="<%=Table_Width%>" class="table4" align="center">
<tr> 
<form method="post" action="" id="form6" name="form6">
<td width="45%" height="25">
<%
If page = 1 Then 
Response.Write "<button class=""btn3_mouseover"" disabled>第一页</button>　<button class=""btn3_mouseover"" disabled>上一页</button>" 
End If
If page <> 1 Then 
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""第一页"">"
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""上一页"">"
End If
If page <> Lours.PageCount Then 
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""下一页"">"
Response.Write "　<input name=""LouHB_PageName"" type=""submit"" class=""btn3_mouseover"" id=""LouHB_PageName"" value=""最后一页"">"
End If 
If page = Lours.PageCount Then 
Response.Write "　<button class=""btn3_mouseover"" disabled>下一页</button>　<button class=""btn3_mouseover"" disabled>最后一页</button>" 
End If
Response.Write "<input type=""hidden"" name=""LouHB_PageNo"" value='"&page&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_SunPage"" value='"&Lours.PageCount&"'>"
Response.Write "<input type=""hidden"" name=""QX_CaiDanID"" value='"&QX_CaiDanID&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_Action"" value=""LiuLan"">"
Response.Write "<input type=""hidden"" name=""LouHB_Key"" value='"&L_Key&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_Type"" value='"&L_Type&"'>"
Response.Write "<input type=""hidden"" name=""GuangLi"" value='"&Request("GuangLi")&"'>"
%></td>
</form>
<form onSubmit="return test();" method="post" action="" id="form2" name="form2">
<td width="55%"  height="25"><input name="LouHB_PageName" type="submit" class="btn3_mouseover" value="跳转到">第
<input type="text" size="5" maxlength="4" name="page" class="button1"><input type="hidden" name="judge" value="1">页
<%
Response.Write "<input type=""hidden"" name=""QX_CaiDanID"" value='"&QX_CaiDanID&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_Action"" value=""LiuLan"">"
Response.Write "<input type=""hidden"" name=""LouHB_Key"" value='"&L_Key&"'>"
Response.Write "<input type=""hidden"" name=""LouHB_Type"" value='"&L_Type&"'>"
Response.Write "<input type=""hidden"" name=""GuangLi"" value='"&Request("GuangLi")&"'>"
%>
</td>
</form>
</tr>
<tr>
<td colspan="2" height="25" >总数：<%=Lours.recordCount%>　总页数：<%=Lours.PageCount%>　当前页次：<%=page%> </td>
</tr>
</table>
<%
End if
Lours.Close 
Set Lours=nothing

ElseIf user="无管理权限" Then

Set Lours=server.createobject("adodb.recordset")
Sql="select a.*,b.L_MingCheng As L_KeShi,c.L_MingCheng As L_Group from (LHB_USER_DATA a left join LHB_GongYong b on a.LHB_KeShiBM = b.L_MingChengBM and a.LHB_KeShi_FLBM = b.L_FenLeiBM)Left Join LHB_GongYong c on a.LHB_Group=c.L_MingChengBM And a.LHB_Group_FLBM=c.L_FenLeiBM where LHB_GongHao='"&session("LHB_GongHao")&"'" 
Lours.open Sql,Louconn,1,1
If Not(Lours.EOF and Lours.BOF) then
%>
<table width="<%=Table_Width%>" border="0" cellspacing="0" align="center">
<tr>
<td width="77" align=center class="table4" height="30">工号</td>
<td width="97" align=center class="table4">姓名</td>
<td width="87" align=center class="table4">性别</td>
<td width="207" align=center class="table4">科室</td>
<td width="188" align=center class="table4">角　色</td>
<td width="168" align=center class="table4">登录权限</td>
<td width="158" align=center class="table4">修改密码</td>
</tr>
<tr>
<td align=center class="table4" height="30"><%=Lours("LHB_GongHao")%></td>
<td align=center class="table4"><%=Lours("LHB_XingMing")%></td>
<td align=center class="table4">
<%if Lours("LHB_sex")="1" then
response.Write("男")
elseif Lours("LHB_sex")="2" then
response.Write("女")
else
response.Write("变态，乱改性别！")
end if
%></td>
<td align=center class="table4"><%=Lours("L_KeShi")%></td>
<td align=center class="table4"><%=Lours("L_Group")%></td>
<td align=center class="table4">
<%
if Lours("LHB_DengLuQX")="0" then
response.write("允许登录")
elseif Lours("LHB_DengLuQX")="1" then
response.write("不允许登录")
elseif Lours("LHB_DengLuQX")="2" then
response.write("已注销")
end if
%></td>
<td align=center class="table4"><a href="modiy_user.asp?id=<%=Lours("id")%>&LouHB_Action=XiuGai&QX_CaiDanID=123456789">修改密码</a></td>
</tr>
</table>
<%
End if
Lours.Close 
set Lours=nothing
LouConn.Close
set Louconn=nothing
End If
End Sub
%>