📄 meetingedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑会议信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.subject.value==""){
   alert("请输入会议主题！");
   form1.subject.focus;
   return false;
  }   
  if (document.form1.mdate.value==""){
   alert("请输入会议日期范围！");
   form1.mdate.focus;
   return false;
  } 
  if (document.form1.mtime.value==""){
   alert("请输入会议时间范围！");
   form1.mtime.focus;
   return false;
  } 
  if (document.form1.rno.selectedIndex<0){
   alert("请选择会议室！");
   form1.rno.focus;
   return false;
  }  
  return true;
}
</Script>
</head>
<%
  Dim Id,Subject,RoomNo,MDate,MTime,CreateDate,Preside,Attendant,Detail,Poster 
  Dim Action,rs
  '变量初始化
  MDate = Date()  '会议日期
  MTime = "9:00 - 17:00"  '会议时间范围
  CreateDate = Date()  '创建日期
  Poster = Session("UserName")   '创建人
  '读取参数action\id
  Action = Request.QueryString("action")
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑记录
  If Action = "edit" Then
    Id = Request.QueryString("id")  
    '设置SELECT语句，读取记录数据
    sql = "SELECT * From Meeting Where Id=" & Id
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      RoomNo = rs("RoomNo")
      Subject = rs("Subject")
      MDate = rs("MDate")
      MTime = rs("MTime")  
      Preside = rs("Preside")
      Attendant = rs("Attendant")
      Detail = rs("Detail")  
      CreateDate = rs("CreateDate")  
      Poster = rs("Poster")
   End If
   rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="MeetingSave.asp?action=<%=Action%>&id=<%=Id%>" 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/Meeting.jpg" height="90" width="100%">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">会议信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">会议主题</td>
      <td colspan="3"><input type="text" name="subject" size="60" value="<%=Subject%>">&nbsp;</td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">选择会议室</td>
      <td width="40%"><select size="1" name="rno">
      <%sql = "Select * From MeetingRooms ORDER BY RoomNo" 
        rs.Open sql,conn,1,1
        Do While Not rs.EOF
          If rs("RoomNo")=RoomNo Then         
        %>
          <option selected value="<%=rs("RoomNo")%>"><%=rs("RoomName")%></option>
          <%Else%>
          <option value="<%=rs("RoomNo")%>"><%=rs("RoomName")%></option>
          <%End If
          rs.MoveNext()
        Loop
        rs.Close()%>
         </select></td>
      <td width="20%" bgcolor="#CEE7FF">会议主持人</td>
      <td width="40%"><input type="text" name="preside" size="16" value="<%=Preside%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">日期范围</td>
      <td colspan="3"><input type="text" name="mdate" size="60" value="<%=MDate%>">&nbsp;</td>
    </tr>
    <tr>
     <td bgcolor="#CEE7FF">时间范围</td>
      <td colspan="3"><input type="text" name="mtime" size="60" value="<%=MTime%>">&nbsp;</td>
   </tr>
    <tr>
       <td bgcolor="#CEE7FF">参加人员</td>
      <td colspan="3"><input type="text" name="attend" size="60" value="<%=Attendant%>">&nbsp;</td>
    </tr>
   <tr>
      <td bgcolor="#CEE7FF" >详细内容</td>
      <td colspan="3"><textarea rows="4" name="detail" cols="58"><%=Detail%></textarea>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">创建日期</td>
      <td><%=CreateDate%>&nbsp;</td>
      <td bgcolor="#CEE7FF">创建人</td>
      <td><%=Poster%>&nbsp;</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 + -