欢迎来到虫虫下载站 | 资源下载 资源专辑 关于我们
虫虫下载站

addrule.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能
ASP
字号:
<script>
// 
// 	        	力天2002网络办公系统
//          Copyright (c) 深圳市力天软件开发有限公司
//                   http://www.ebexpert.net
//
//  文件名       : addrule.asp
//  描述         : 录入定餐之约
//  版本         : 
//  作者         : sky
//  最新更新     : 04/27/2001
//  备注         :
</script>
<!--#include file="const.inc"-->
<html>
<head>
<title>定餐之约</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/eintrdemo.css">
</head>
<body>
<center>
<%
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from mealrule",conn,3,1
%>
<form action="subaddrule.asp" method=post name=AddCard onsubmit="return ChkCard();">
  <table width="95%" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666" > 
  <tr>
     <td colspan=2 bgcolor="#000000" class="heading"><font color="#ffffff"><b>定餐之约</b></font></td></tr>  
  <tr> 
    <td width="20%" bgcolor="#EFEFEF"> 
      <div align="center">午餐截止:</div>
    </td>
    <td width="80%" bgcolor="#FFFFFF"> 
      <input type="text" name="lunchtime" size="4" maxlength="4" <%if rs.EOF then%>value="1000"<%else%>value="<%=rs("lunchtime")%>"<%end if%>>(表示:10:00)
    </td>
  </tr>
  <tr> 
    <td width="20%" bgcolor="#EFEFEF"> 
      <div align="center">晚餐截止:</div>
    </td>
    <td width="80%" bgcolor="#FFFFFF"> 
      <input type="text" name="suppertime" size="4" maxlength="4" <%if rs.EOF then%>value="1700"<%else%>value="<%=rs("suppertime")%>"<%end if%>>(表示:17:00)
    </td>
  </tr>
  <tr> 
    <td width="20%" bgcolor="#EFEFEF"> 
      <div align="center">备注:</div>
    </td>
    <td width="80%" bgcolor="#FFFFFF"> 
      <textarea name="rules" cols="35" rows="10"><%if not rs.EOF then%><%=rs("rules")%><%end if%></textarea>
    </td>
  </tr>
</table>
<table width="95%" border="0" align="center" height=50> 
  <tr> 
    <td align=right>  
    <input type=submit name="submit" value="提交">&nbsp;&nbsp;
    <input type=reset name="reset" value="重录">  
    </td>
  </tr>
</table>
</form>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
   
 </center>
 </body>
</HTML>
<script language="javascript">
	function subchk()
	{
		if(form1.mealName.value=="")
		{
			alert("名称不能为空!");
			return false;	
		}	
		else
			return true;
	}
	function DelChk(mealid)
	{
		if(confirm("您确信删除该记录吗?"))
			document.location="delmeal.asp?channelid=<%=channelid%>&mealid="+mealid ;
	}
</script>

⌨️ 快捷键说明

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