📄 htsltj_edit.asp

📁 OFFICE办公自动化
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%
'==============================================================
'OA 表单生成器
'版本: 1.1.0 -- 2005-5-24
'程序版权：(c) 2004 by 展亮
'说明：本代码为自由代码，用户可以自由使用，但请保留作者文件头部说明
'　　　在使用过程中如出现什么问题请及时与作者联系。
'　　　电子邮件：zlbox@yeah.net QQ:2343397
'=============================================================
'功能：添加/编辑涉农合同帮扶工作和订单农业情况统计表
'参数：	request.form("addedit_subed")="true"#表单提交; request("id")#要编辑记录的ID;
'=============================================================
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="../inc/ronger.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
pid=request("id"):if pid="" then pid=0 '记录ID
'------------------------------------------------
'------------------------------------------------添加/修改记录
table="tbioaHtsltj" '表名
if request.form("addedit_subed")="true" then
'表单提交后
	if pid=0 then
	  call insert(table,false)
	  response.write "<script>alert('涉农合同帮扶工作和订单农业情况统计表录入成功！');this.location='Htsltj_list.asp'</script>"
		response.end
	else
	  call update(table,"id",pid,false)
	  response.write "<script>alert('涉农合同帮扶工作和订单农业情况统计表修改成功！');history.go(-2)</script>"
		response.end
	end if
end if
'--------------------------------------------取记录
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from " & table & " where ID="&pid
rs.open sql,oConn,1,1
'------------------------------------------------
function showvalue(field)
	if rs.eof then
		showvalue=""
	else
		if (isnull(rs(field))) then showvalue="" else showvalue=Server.HTMLEncode(rs(field))
	end if
end function
%>


<HTML>

<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="../css/main.css" type=text/css>
<TITLE>main</TITLE>
<SCRIPT SRC="../js/Popup.js"></SCRIPT>
<SCRIPT SRC="../js/formatdate.js"></SCRIPT>
<SCRIPT SRC="../js/front_chec.js"></SCRIPT>
<STYLE TYPE="text/css">
<!--
.STYLE1 {font-size: medium}
-->
</STYLE>
</HEAD>

<BODY TOPMARGIN="10" LEFTMARGIN="10">

<!--#include file="Htsltj_menu.html"-->

<HR WIDTH="100%" size=1 COLOR="#000000">
<BR>
<DIV ALIGN="center">
<TABLE WIDTH="500" CELLSPACING="1" CELLPADDING="2" CLASS="tab">
  <TR>
    <TD WIDTH="100%" CLASS="tdTop">
      <TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0">
        <TR>
          <TD CLASS="tdTop">
            <P ALIGN="left"><IMG BORDER="0" SRC="../images/icon_title.gif" ALIGN="left">录入涉农合同帮扶工作和订单农业情况统计表</P>
          </TD>
          <TD WIDTH="90" CLASS="tdTop">
            <P ALIGN="left"><IMG BORDER="0" SRC="../images/icon_return.gif" ALIGN="left">
            <A HREF="javascript:history.back()" CLASS="linkTop">返回列表</A>
          </TD>
        </TR>
      </TABLE>
    </TD>
  </TR>
  <TR>
    <TD WIDTH="25%" CLASS="td1">

    <FORM NAME="eventfrm" METHOD="POST" ACTION="?id=<%=pid%>" onSubmit="return checknull(this)">
      <INPUT type=hidden NAME="addedit_subed" VALUE="true">
      <INPUT type=hidden NAME="userid" VALUE="<%=LoginID%>">
      <TABLE BORDER="0" WIDTH="100%" CELLSPACING="10" CELLPADDING="0">
        <TR>
          <TD COLSPAN="2" ALIGN="CENTER" VALIGN="top" nowrap>========================================= 涉农合同帮扶工作 ======================================</TD>
          </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>填报单位：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="tbdw" VALUE="<%=showvalue("tbdw")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写填报单位"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>填报时间：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="TEXT" SIZE="12" MAXLENGTH="12" NAME="tbsj" VALUE="<%=showvalue("tbsj")%>" CLASS="input" CHECK_DATE="日期格式错误" onKeyUp="DateFormat(this,this.value,event,false,'2')" CHECK_NULL="请填写填报时间"> <A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.tbsj, 'winpop', 234, 261);return false"><IMG SRC="../images/datetime.gif" border=0></A> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>发布新闻稿件数：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="xwgj" VALUE="<%=showvalue("xwgj")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写发布新闻稿件数" CHECK_NUMBER="发布新闻稿件数必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>印发宣传传单数：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="xccd" VALUE="<%=showvalue("xccd")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写印发宣传传单数" CHECK_NUMBER="印发宣传传单数必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>使用示范文本种类：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="sfwbzl" VALUE="<%=showvalue("sfwbzl")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写使用示范文本种类" CHECK_NUMBER="使用示范文本种类必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>使用示范文本数量：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="sfwbsl" VALUE="<%=showvalue("sfwbsl")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写使用示范文本数量" CHECK_NUMBER="使用示范文本数量必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>涉农合同欺诈及其他违法案件种类：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="ajzl" VALUE="<%=showvalue("ajzl")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写涉农合同欺诈及其他违法案件种类" CHECK_NUMBER="涉农合同欺诈及其他违法案件种类必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>涉农合同欺诈及其他违法案件数量：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="ajsl" VALUE="<%=showvalue("ajsl")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写涉农合同欺诈及其他违法案件数量" CHECK_NUMBER="涉农合同欺诈及其他违法案件数量必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>移送司法机关案件数量：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="ysajs" VALUE="<%=showvalue("ysajs")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写移送司法机关案件数量" CHECK_NUMBER="移送司法机关案件数量必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>移送司法机关案件金额：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="ysajj" VALUE="<%=showvalue("ysajj")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写移送司法机关案件金额" CHECK_NUMBER="移送司法机关案件金额必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>乡村维权服务站数量：</TD>
          <TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="wqfwzsl" VALUE="<%=showvalue("wqfwzsl")%>" SIZE="40" MAXLENGTH="250" CLASS="input" CHECK_NULL="请填写乡村维权服务站数量" CHECK_NUMBER="乡村维权服务站数量必须为数字"> <FONT COLOR="RED">*</FONT>          </TD>
        </TR>
        <TR>
          <TD ALIGN="right" VALIGN="top" nowrap>乡村维权服务站有合同联系代表的数量：</TD>
12 3 4 下一页
⌨️ 快捷键说明

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