<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/ConnSiteData.Asp" -->
<!--#include file="../CheckAdmin.Asp"-->
<%
If InStr(session("GroupPurview"),"|12,") = 0 Then
    response.Write ("<br /><br /><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
    response.End
End If
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" href="../Images/Admin_style.css">
<script language="javascript" src="../JavaScript/Admin.js"></script>
<%
Dim Result
Result = request.QueryString("Result")
Dim ID, GroupID, GroupName, GroupPurview, GroupExplain, AddTime

%>
<br />
<div style="width:95%; margin-left:2.5%"><img src="../Images/add_1.png" width="11" height="11" />
<a href="TasksSortEdit.Asp?Result=Add">添加事项分类</a></div>
<br />
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
  <form action="../DelContent.Asp?Result=MemGroup" method="post" name="formDel">
  <tr>
    <th align="center">名称</th>
    <th align="center">颜色</th>
    <th>操作</th>
  </tr>
  <% TasksSort()%>
 
  </form>
</table>

<%

Function TasksSort()
    datafrom = "Zqj_TasksSort"
    Dim datawhere
    datawhere = ""
sql = "select * from ["& datafrom &"] "&taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 0, 1
if rs.bof and rs.eof then
response.Write "<tr><td nowrap align='center' colspan='3' class=""forumRow"">暂无任务分类</td></tr>"
else
While(Not rs.EOF)
Response.Write "<tr>" & vbCrLf
Response.Write "<td nowrap class=""forumRow"">"&rs("SortName")&"</td>" & vbCrLf
Response.Write "<td nowrap class=""forumRow""><span style=""height:20px; width:50px; background-color:"&rs("T_color")&"""></span></td>" & vbCrLf

Response.Write "<td align=""center""nowrap class=""forumRow""><a href='TasksSortEdit.Asp?Result=Modify&ID="&rs("ID")&"'> <img src=""../Images/mod.png"" width=""15"" height=""13"" /></a> &nbsp;&nbsp;<a href=""../DelContent.Asp?Result=TasksSort&fromID="&rs("ID")&""" onClick=""return confirm('您确定要删除这个任务分类吗？\n删除分类会影响到同事们的任务。\n删除后不能再恢复。')"" title=""删除这个分类""><img src=""../Images/del_1.png"" border=""0""/></a> </td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
rs.movenext
Wend
    
End If

rs.Close
Set rs = Nothing
End Function
%>
