📄 proedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑问题基本信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.title.value==""){
   alert("请输入问题题目！");
   form1.title.focus;
   return false;
  } 
  if (document.form1.contact.value==""){
   alert("请输入客户联系人！");
   form1.contact.focus;
   return false;
  } 
  if (document.form1.cust.selectedIndex<0){
   alert("请选择客户名称！");
   form1.cust.focus;
   return false;
  }  
  if (document.form1.type.selectedIndex<0){
   alert("请选择问题类型！");
   form1.type.focus;
   return false;
  } 
  if (document.form1.level.selectedIndex<0){
   alert("请选择问题级别！");
   form1.level.focus;
   return false;
  } 
  return true;
}
</Script>
</head>
<%
  Dim ProId,Title,LevelId,LevelName,TypeId,TypeName,SolveDate,CustName,CustId,Contact,CreateDate,cStatus,Poster,Detail
  Dim Action,rs
  '变量初始化
  SolveDate = Date()
  CreateDate = Date()
  Poster = Session("UserName")
  cStatus = "创建"
  '读取参数action\pid
  Action = Request.QueryString("action")
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑问题记录
  If Action = "edit" Then
    ProId = Request.QueryString("pid")  
    '设置SELECT语句，读取记录数据
    sql = "SELECT p.*,c.CustName,t1.TypeName AS LevelName,t2.TypeName As TypeName" _
      + " FROM SrvProblem p,Customer c,Types t1,Types t2 " _
      + " WHERE p.CustId=c.CustId AND p.LevelId=t1.TypeId And p.Status='" & cStatus & "'"  _
      + " AND p.TypeId=t2.TypeId And p.ProId=" & ProId
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      Title = rs("Title")
      LevelId = rs("LevelId")
      LevelName = rs("LevelName")
      TypeId = rs("TypeId")
      TypeName = rs("TypeName")
      SolveDate = rs("SolveDate")
      CustName = rs("CustName")
      CustId = rs("CustId")
      Contact = rs("Contact")
      CreateDate = rs("CreateDate")
      Poster = rs("Poster")
      Detail = rs("Detail")
   End If
   rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="ProSave.asp?action=<%=Action%>&pid=<%=ProId%>" 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/srvpro.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%">
<select size="1" name="cust">
<%
   sql = "Select * From Customer ORDER BY CustId" 
   rs.Open sql,conn,1,3
   Do While Not rs.EOF
     If rs("CustId")=CustId Then         
%>
    <option selected value="<%=rs("CustId")%>"><%=rs("CustName")%></option>
   <%Else%>
    <option value="<%=rs("CustId")%>"><%=rs("CustName")%></option>
   <%End If
     rs.MoveNext()
   Loop
   rs.Close()%>
</select></td>
      <td width="20%" bgcolor="#CEE7FF">问题联系人</td>
      <td width="40%"><input type="text" name="contact" size="20" value="<%=Contact%>"></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">问题题目</td>
      <td colspan="3"><input type="text" name="title" size="60" value="<%=Title%>"></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">问题类别</td>
      <td><select size="1" name="type">
      <%sql = "Select * From Types Where Flag=15 ORDER BY TypeId" 
        rs.Open sql,conn,1,1
        Do While Not rs.EOF
          If rs("TypeId")=TypeId Then         
        %>
          <option selected value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%Else%>
          <option value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%End If
          rs.MoveNext()
        Loop
        rs.Close()%>
         </select></td>
      <td bgcolor="#CEE7FF">问题严重级别</td>
      <td><select size="1" name="level">
      <%sql = "Select * From Types Where Flag=16 ORDER BY TypeId" 
        rs.Open sql,conn,1,1
        Do While Not rs.EOF
          If rs("TypeId")=LevelId Then         
        %>
          <option selected value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%Else%>
          <option value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%End If
          rs.MoveNext()
        Loop%>
         </select></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">期望解决日期</td>
      <td><input type="text" name="sdate" size="20" value="<%=SolveDate%>"></td>
      <td bgcolor="#CEE7FF">当前状态</td>
      <td><%=cStatus%></td>
    </tr>
   <tr>
      <td bgcolor="#CEE7FF" >问题描述</td>
      <td colspan="3"><textarea rows="4" name="detail" cols="60"><%=Detail%></textarea></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">录入人</td>
      <td><input type="text" name="poster" size="20" value="<%=Poster%>"></td>
      <td bgcolor="#CEE7FF">录入日期</td>
      <td><%=CreateDate%></td>
    </tr>
  </table>
  <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 + -