📄 taskedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑工作任务信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.sdate.value==""){
   alert("请输入工作开始时间！");
   form1.sdate.focus;
   return false;
  }  
  if (document.form1.edate.value==""){
   alert("请输入工作结束时间！");
   form1.edate.focus;
   return false;
  }  
  if (document.form1.way.value==""){
   alert("请输入工作方式！");
   form1.way.focus;
   return false;
  }  
  if (document.form1.detail.value==""){
   alert("请输入工作内容描述！");
   form1.detail.focus;
   return false;
  }  
  return true;
}
</Script>
</head>
<%
  Dim ProId,Title,LevelName,TypeName,CustName,Contact,Detail
  Dim DespEName,Suggest,DespDate
  Dim TaskId,SDate,EDate,Place,TDetail,Memo,Way
  Dim rs
  '变量初始化
  SDate = Date()
  EDate = Date()
  '读取参数action\pid
  Action = Request.QueryString("action")
  ProId = Request.QueryString("pid")
  TId = Request.QueryString("tid")  
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '读取问题信息
  sql = "SELECT p.*,c.CustName,t1.TypeName AS LevelName,t2.TypeName As TypeName,e.EmpName" _
      + " FROM SrvProblem p,Customer c,Types t1,Types t2,SrvDespatch d,Employees e " _
      + " WHERE p.CustId=c.CustId AND p.LevelId=t1.TypeId And d.ProId=p.ProId And d.DespEmpId=e.EmpId"  _
      + " AND p.TypeId=t2.TypeId And p.ProId=" & ProId
  ' Response.Write sql
  Set rs = Conn.Execute(sql)
  If Not rs.EOF Then
    Title = rs("Title")
    LevelName = rs("LevelName")
    TypeName = rs("TypeName")
    SolveDate = rs("SolveDate")
    CustName = rs("CustName")
    Contact = rs("Contact")
    Detail = rs("Detail")
  Else
    Response.Write "不存在此问题信息"
    Response.End()  
  End If
  rs.Close()
  '提取分配信息
  sql = "Select d.*,e.EmpName From SrvDespatch d,Employees e Where d.DespEmpId=e.EmpId And d.ProId=" & ProId
  rs.Open sql,Conn,1,3
  If Not rs.EOF Then
    DespEName = rs("EmpName")
    DespDate = rs("DespDate")
  End If
  rs.Close()
  If Action="edit" Then  
    '读取任务记录
    sql = "Select * From SrvTask Where TaskId=" & TId
    rs.Open sql,Conn,1,3
    SDate = rs("StartDate")
    EDate = rs("EndDate")
    Way = rs("SolveWay")
    Place = rs("Place")
    TDetail = rs("Detail")
    Memo = rs("LostMemo")
    rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="TaskSave.asp?action=<%=Action%>&tid=<%=TId%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4" background="pic/srvtask.jpg" height="90" width="100%">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">工作任务信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">客户名称</td><td width="40%"><%=CustName%>&nbsp;</td>
      <td width="20%" bgcolor="#CEE7FF">问题联系人</td><td width="40%"><%=Contact%>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">问题题目</td><td colspan="3"><%=Title%>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">问题类别</td><td><%=TypeName%>&nbsp;</td>
      <td bgcolor="#CEE7FF">问题严重级别</td><td><%=LevelName%>&nbsp;</td>
    </tr>
   <tr>
      <td bgcolor="#CEE7FF" >问题描述</td><td colspan="3"><%=Detail%>&nbsp;</td>
    </tr>
    <tr>
      <td colspan="4" bgcolor="#CEE7FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">售后主管</td><td><%=DespEName%>&nbsp;</td>
      <td bgcolor="#CEE7FF">分配日期</td><td><%=DespDate%>&nbsp;</td>      
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">任务开始时间</td><td><input type="text" name="sdate" size="20" value="<%=SDate%>">&nbsp;</td>
      <td bgcolor="#CEE7FF">任务结束时间</td><td><input type="text" name="edate" size="20" value="<%=EDate%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">工作方式</td><td><input type="text" name="way" size="20" value="<%=way%>"></td>
      <td bgcolor="#CEE7FF">工作地点</td><td><input type="text" name="place" size="20" value="<%=Place%>"></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">工作描述</td>
      <td colspan="3"><textarea rows="3" name="detail" cols="60"><%=TDetail%></textarea></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">遗留问题</td>
      <td colspan="3"><textarea rows="3" name="memo" cols="60"><%=Memo%></textarea></td>
    </tr>
  </table><input type="hidden" name="proid" size="20" value="<%=ProId%>">
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>
⌨️ 快捷键说明

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