📄 despslvedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现

💻 ASP

字号:

<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑问题解决信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.suggest.value == ""){
   alert("请输入问题解决办法！");
   form1.suggest.focus;
   return false;
  }  
  return true;
}
</Script>
</head>
<%
  Dim ProId,Suggest,DespEid
  Dim rs
  '读取参数pid
  Action = Request.QueryString("action")
  ProId = Request.QueryString("pid")  
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '提取分配信息
  sql = "Select * From SrvDespatch Where ProId=" & ProId
  rs.Open sql,Conn,1,3
  If Not rs.EOF Then
    DespEid = rs("DespEmpId")
  End If
  rs.Close()
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="DespSlv.asp?pid=<%=ProId%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1">
    <tr>
      <td bgcolor="#CEE7FF" height="20">输入问题解决方法</td>
    </tr>
    <tr>
      <td><textarea rows="6" name="suggest" cols="40"></textarea>&nbsp;</td>
    </tr>
  </table><input type="hidden" name="despeid" size="10" value="<%=DespEid%>">
  <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 + -