📄 tasklist.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../Conndb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>工作任务管理</title>
<link href="../style.css" rel="stylesheet">
<script language="javascript">
function newView(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=550,height=430";
  var newView=window.open(url,"newView",oth);
  newView.focus();
  return false;
}
function newView1(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=200,height=100";
  var newView1=window.open(url,"newView1",oth);
  newView1.focus();
  return false;
}
</script>
</head>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<p align="center"><font color="#000080"><b><font style="font-size: 12pt">工 作 任 务 管 理</font></b></font></p> 
<table align=center border="1" cellspacing="0" width="100%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
  <tr>
   <td width="16%" align="center" bgcolor="#C1E0FF"><strong>工作时间</strong></td>
   <td width="10%" align="center" bgcolor="#C1E0FF"><strong>工作地点</strong></td>
   <td width="10%" align="center" bgcolor="#C1E0FF"><strong>工作方式</strong></td>
   <td width="16%" align="center" bgcolor="#C1E0FF"><strong>内容描述</strong></td>
   <td width="10%" align="center" bgcolor="#C1E0FF"><strong>遗留问题</strong></td>
   <td width="16%" align="center" bgcolor="#C1E0FF"><strong>操作</strong></td>
  </tr>
<%
  Dim rs,rsTask,EmpId,UserName,UType,SchCnd
  Set rs = Server.CreateObject("ADODB.RecordSet")
  Set rsTask = Server.CreateObject("ADODB.RecordSet")
  '根据用户类型和用户名提取用户信息
  UserName = Session("UserName")
  sql = "Select * From Users Where UserName='" & UserName & "'"
  Set rs = Conn.Execute(sql)
  If Not rs.EOF Then
    UType = rs("UserType")
    EmpId = rs("EmpId")
    '分析此用户的用户类型
    If InStr(UType,"售后主管")>0 Then   ' 
      '如果是售后主管，则EmpId值等于字段DespEmpId的值
      SchCnd = " And d.DespEmpId=" & EmpId
    ElseIf InStr(UType,"售后工程师")>0 Then
      '如果是售后工程师，则EmpId值等于字段RespEmpId的值
      SchCnd = " And d.RespEmpId=" & EmpId 
    Else
      Response.Write "没有权限"
      Response.End()  
    End If
  Else
    Response.Write "没有此用户信息"
    Response.End()
  End If
  rs.Close()
  '读取数据到记录集rs中
  sql = "SELECT p.*,d.* FROM SrvProblem p,SrvDespatch d " _
    + " WHERE p.ProId=d.ProId And (p.Status='分配' Or p.Status='解决')" & SchCnd & " ORDER BY p.ProId"
 '   Response.Write sql
  rs.Open sql,conn,1,3
  '显示所有问题
  If rs.Eof Then
    Response.Write "<tr><td colspan=6 align=center>目前还没有记录。</td></tr>"
  Else
    Do While Not rs.EOF
      sql = "Select * From SrvTask Where ProId=" & rs("ProId") & " Order By CreateDate Desc"
    '  Response.Write sql
%>
<tr>
  <td colspan="5"><img src="pic/bnttask.gif" height="10">&nbsp;<%=rs("Title")%>&nbsp;
  <a href="ProView.asp?pid=<%=rs("ProId")%>" onClick="return newView(this.href)"><查看问题信息></a></td>
  <td><input type="button" value="新建工作任务" name="B1" onclick="newView('TaskEdit.asp?action=add&pid=<%=rs("ProId")%>')"></td>
</tr>
<%
      rsTask.Open sql,Conn,1,3
      '在表格中显示任务记录
      If rsTask.Eof Then
        Response.Write "<tr><td colspan=6 align=center>目前还没有记录。</td></tr>"
      Else
        Do While Not rsTask.EOF
 %>
  <tr>
    <td align="center"><%=rsTask("StartDate")%>-<%=rsTask("EndDate")%></td>
	<td align="center"><%=rsTask("Place")%>&nbsp;</td>
	<td align="center"><%=rsTask("SolveWay")%>&nbsp;</td>
	<td><%=rsTask("Detail")%>&nbsp;</td>
	<td align="center"><%=rsTask("LostMemo")%>&nbsp;</td>
    <td align="center">
    <a href="TaskEdit.asp?action=edit&tid=<%=rsTask("TaskId")%>&pid=<%=rsTask("ProId")%>" onClick="return newView(this.href)">修改</a>&nbsp;
    <a href="TaskDelt.asp?tid=<%=rsTask("TaskId")%>" onClick="return newView(this.href)">删除</a>&nbsp;
    <%     '判断问题是否已经解决
           sqlp = "Select * From SrvProblem Where ProId=" & rsTask("ProId")
           Set rsp = Conn.Execute(sqlp)
           If Not rsp("Status")="解决" Then %>
    <a href="TaskSlv.asp?tid=<%=rsTask("TaskId")%>" onClick="if(confirm('确定解决问题了吗?')){return newView1(this.href);}return false;">解决</a>
    <%     End If%>
    </td>
  </tr>
  <%      rsTask.MoveNext()
        Loop
      End If
      rsTask.Close()
      rs.MoveNext()
    Loop
  End If
  rs.Close()
%></table>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -