📄 economiclaw_jys_edit.asp
字号:
<%
'==============================================================
'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"-->
<!--#include file="EconomicLaw_menu.asp"-->
<!--#include file="function.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=clng(trim(Session("LoginID"))) '当前用户ID
pid=clng(request("id")) '记录ID
'------------------------------------------------
'------------------------------------------------添加/修改记录
table="EconomicLaw_jys" '表名
'if pid<>0 then
'set rs=Server.CreateObject("ADODB.RecordSet")
'rs.open "Select * from "&table&" where id=" & pid ,oConn,1,1
'if not rs.EOF then
'blrylb=rs("blrylb") & ""
'blryxmlb=GetUserNames(blrylb,",")
'end if
'rs.Close
'set rs=nothing
'end if
if request("addedit_subed")="true" then
'表单提交后,接受录入参数
zt_jld=0
zt_bajg=0
zt_hsjg=0
tbdw=request("tbdw")
cfnr=request("cfnr")
cbr=request("cbr")
cbrq=request("cbrq")
bajgyj=request("bajgyj")
bajgrq=request("bajgrq")
hsjgyj=request("hsjgyj")
hsjgrq=request("hsjgrq")
jldyj=request("jldyj")
jldrq=request("jldrq")
if cfnr<>"" then zt_wf=1
if bajgyj<>"" then zt_bajg=1
if hsjgyj<>"" then zt_hsjg=1
if jldyj<>"" then zt_jld=1
field1=array("tbdw","cfnr","cbr","cbrq","bajgyj","bajgrq","hsjgyj","hsjgrq","jldyj","jldrq","zt_bajg","zt_jld","zt_hsjg","zt_wf")
value1=array(tbdw,cfnr,cbr,cbrq,bajgyj,bajgrq,hsjgyj,hsjgrq,jldyj,jldrq,zt_bajg,zt_jld,zt_hsjg,zt_wf)
if pid=0 then
for i=0 to ubound(field1)
value1(i)=replace(value1(i),"'","''")
next
sql = "INSERT INTO "&table&" (" & Join(field1, ",") & ") VALUES ('" & Join(value1, "','") & "')"
sql = replace(replace(sql,",'',",",null,"),",'',",",null,")
'response.write sql
oConn.Execute sql
response.write "<script>alert('案件登记提交成功！');this.location='EconomicLaw_reg.asp'</script>"
response.end
else
sql="UPDATE "&table&" SET "
for i=0 to ubound(field1)
if value1(i)="" then
sql = sql & field1(i) & "=null"
else
sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'"
end if
if i <> ubound(field1) then sql=sql & "," else sql=sql & " where id='" & pid & "'"
next
'response.write sql
oConn.Execute sql
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>案件登记</TITLE>
<SCRIPT SRC="../js/Popup.js"></SCRIPT>
<SCRIPT SRC="../js/formatdate.js"></SCRIPT>
<SCRIPT SRC="../js/front_chec.js"></SCRIPT>
<SCRIPT SRC="../js/user_select.js"></SCRIPT>
</HEAD>
<BODY TOPMARGIN="10" LEFTMARGIN="10">
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD HEIGHT="18"> </TD>
</TR>
<TR>
<TD HEIGHT="103" ALIGN="center" CLASS="tab2">四川省工商行政管理机关<BR>
<BR>
行政处罚案件有关事项审批表</TD>
</TR>
</TABLE>
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<FORM NAME="eventfrm" METHOD="POST" ACTION="?id=<%=pid%>" onSubmit="return checknull(this)">
<INPUT type=hidden NAME="addedit_subed" VALUE="true">
<TR>
<TD HEIGHT="28">填表单位:
<INPUT NAME="tbdw" TYPE="text" CLASS="inputnew" ID="tbdw" VALUE="<%=showvalue("tbdw")%>" CHECK_NULL="请填写填表单位"></TD>
</TR>
<TR>
<TD><TABLE WIDTH="100%" BORDER="0" ALIGN="CENTER" CELLPADDING="1" CELLSPACING="1" BORDERCOLOR="#FFFFFF" BGCOLOR="#efefef">
<TR>
<TD WIDTH="12%" ALIGN="center" BGCOLOR="#FFFFFF">当事人</TD>
<TD HEIGHT="33" COLSPAN="3" BGCOLOR="#FFFFFF"> <%=HtmlOut(GetTableValue("EconomicLaw_reg","dsrxm","id",rs("bkupid")))%></TD>
</TR>
<TR>
<TD ALIGN="center" BGCOLOR="#FFFFFF"><P>案件性质</P></TD>
<TD WIDTH="41%" HEIGHT="48" BGCOLOR="#FFFFFF"> <%=HtmlOut(GetTableValue("EconomicLaw_sp2","ajxz","id",rs("spid")))%></TD>
<TD WIDTH="8%" ALIGN="CENTER" BGCOLOR="#FFFFFF">立案时间</TD>
<TD WIDTH="39%" BGCOLOR="#FFFFFF"><%=HtmlOut(GetTableValue("EconomicLaw_sp2","larq","id",rs("spid")))%></TD>
</TR>
<TR>
<TD ALIGN="center" BGCOLOR="#FFFFFF">当事人的主要<BR>
违法事实、拟<BR>
作出行政处罚<BR>
决定的理由、<BR>
依据及内容</TD>
<TD COLSPAN="3" BGCOLOR="#FFFFFF"><%if isnull(rs("bajgyj")) then %>
<TEXTAREA NAME="cfnr" COLS="85" ROWS="10" CLASS="textarea" ID="cfnr"><%=showvalue("cfnr")%></TEXTAREA>
<DIV ALIGN="left"> <BR>
承办人：
<INPUT NAME="cbr" TYPE="text" CLASS="inputnew" ID="cbr" VALUE="<%if showvalue("cbr")="" then response.write getusername(loginid) else response.write showvalue("cbr") end if%>" SIZE="15">
办理日期：
<INPUT NAME="cbrq" TYPE="TEXT" CLASS="inputnew" ID="cbrq" value="<%=showvalue("cbrq")%>" SIZE="12" MAXLENGTH="12"> <A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.cbrq, 'winpop', 234, 261);return false"> <IMG SRC="../images/datetime.gif" border=0> </A></DIV>
<%else%>
<%=showvalue("cfnr")%>
<INPUT type=hidden id=cfnr name=cfnr value=<%=showvalue("cfnr")%>>
<INPUT type=hidden id=cbrq name=cbrq value=<%=showvalue("cbrq")%>>
<DIV ALIGN="right"> <BR>
承办人：<%=showvalue("cbr")%> 办理日期：<%=showvalue("cbrq")%></DIV>
<%end if%></TD>
</TR>
<TR <%=IsShow(showvalue("zt_wf"))%>>
<TD ALIGN="center" BGCOLOR="#FFFFFF">办案机构意见 </TD>
<TD HEIGHT="148" COLSPAN="3" BGCOLOR="#FFFFFF"><%if isnull(rs("hsjgyj")) then %>
<TEXTAREA NAME="bajgyj" COLS="85" ROWS="10" CLASS="textarea" ID="bajgyj"><%=showvalue("bajgyj")%></TEXTAREA>
<DIV ALIGN="left"><BR>
办理日期：
<INPUT NAME="bajgrq" TYPE="TEXT" CLASS="inputnew" ID="bajgrq" onKeyUp="DateFormat(this,this.value,event,false,'2')" VALUE="<%=showvalue("bajgrq")%>" SIZE="12" MAXLENGTH="12" CHECK_DATE="日期格式错误">
<A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.bajgrq, 'winpop', 234, 261);return false"><IMG SRC="../images/datetime.gif" border=0> </A></DIV>
<%else%>
<%=showvalue("bajgyj")%>
<INPUT type=hidden id=bajgyj name=bajgyj value=<% =showvalue("bajgyj")%>>
<INPUT type=hidden id=bajgrq name=bajgrq value=<% =showvalue("bajgrq")%>>
<DIV ALIGN="right"><BR>
办理日期：<%=showvalue("bajgrq")%></DIV>
<%end if%>
</TD>
</TR>
<TR <%=IsShow(showvalue("zt_bajg"))%>>
<TD ALIGN="center" BGCOLOR="#FFFFFF">核审机构意见</TD>
<TD HEIGHT="148" COLSPAN="3" BGCOLOR="#FFFFFF"><%if isnull(rs("jldyj")) then %>
<TEXTAREA NAME="hsjgyj" COLS="85" ROWS="10" CLASS="textarea" ID="hsjgyj"><%=showvalue("hsjgyj")%></TEXTAREA>
<DIV ALIGN="left"><BR>
办理日期：
<INPUT NAME="hsjgrq" TYPE="TEXT" CLASS="inputnew" ID="hsjgrq" onKeyUp="DateFormat(this,this.value,event,false,'2')" VALUE="<%=showvalue("hsjgrq")%>" SIZE="12" MAXLENGTH="12" CHECK_DATE="日期格式错误" CHECK_NULL="请填写办理日期">
<A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.hsjgrq, 'winpop', 234, 261);return false"><IMG SRC="../images/datetime.gif" border=0> </A></DIV>
<%else%>
<%=showvalue("hsjgyj")%>
<INPUT type=hidden id=hsjgyj name=hsjgyj value=<% =showvalue("hsjgyj")%>>
<INPUT type=hidden id=hsjgrq name=hsjgrq value=<% =showvalue("hsjgrq")%>>
<DIV ALIGN="right"><BR>
办理日期：<%=showvalue("hsjgrq")%></DIV>
<%end if%>
</TD>
</TR>
<TR <%=IsShow(showvalue("zt_hsjg"))%>>
<TD ALIGN="center" BGCOLOR="#FFFFFF">局领导意见</TD>
<TD HEIGHT="148" COLSPAN="3" BGCOLOR="#FFFFFF">
<TEXTAREA NAME="jldyj" COLS="85" ROWS="10" CLASS="textarea" ID="jldyj"><%=showvalue("jldyj")%></TEXTAREA>
<DIV ALIGN="left"><BR>
办理日期：
<INPUT NAME="jldrq" TYPE="TEXT" CLASS="inputnew" ID="jldrq" onKeyUp="DateFormat(this,this.value,event,false,'2')" VALUE="<%=showvalue("jldrq")%>" SIZE="12" MAXLENGTH="12" CHECK_DATE="日期格式错误" CHECK_NULL="请填写办理日期">
<A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.jldrq, 'winpop', 234, 261);return false"><IMG SRC="../images/datetime.gif" border=0> </A></DIV></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD HEIGHT="30" ALIGN="center"><INPUT NAME="Submit" TYPE="submit" CLASS="button1" VALUE="确定提交">
<INPUT NAME="Submit3" TYPE="button" CLASS="button1" VALUE="取消" onClick="history.back();"></TD>
</TR>
</FORM>
</TABLE>
</BODY>
</HTML> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -