📄 economiclaw_sp_edit21.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"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=clng(trim(Session("LoginID"))) '当前用户ID
pid=clng(request("id")) '记录ID
'------------------------------------------------
'------------------------------------------------添加/修改记录
table="EconomicLaw_sp2" '表名
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
'表单提交后,接受录入参数
cfgj=request("cfgj")
cfnr=request("cfnr")
gsz=request("gsz")
gsh=request("gsh")
lxr=request("lxr")
dh=request("dh")
pzr=request("pzr")
sdr=request("sdr")
bsdr=request("bsdr")
sdsj=request("sdsj")
sdfs=request("sdfs")
sddd=request("sddd")
field1=array("cfgj","cfnr","gsz","gsh","lxr","dh","pzr","sdr","bsdr","sdsj","sdfs","sddd")
value1=array(cfgj,cfnr,gsz,gsh,lxr,dh,pzr,sdr,bsdr,sdsj,sdfs,sddd)
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_sp_list2.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
'response.end()
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
function display(bul)
if bul then
display="style='display:none;'"
else
display=""
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>
<SCRIPT SRC="../js/user_select.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function select_users(f_xm,f_id){
strtmpusers = SelectUsers(f_id.value);
if (strtmpusers != "") {
strtmpusers=strtmpusers.split("_")
f_id.value=strtmpusers[0]
f_xm.value=strtmpusers[1]
}
}
-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript>
function doselry(){
strtmpusers = SelectUsers(lxa.blrylb.value);
if (strtmpusers != "") {
strtmpusers=strtmpusers.split("_")
lxa.blrylb.value=strtmpusers[0]
lxa.blryxmlb.value=strtmpusers[1]
}
}
xyblr=new Array()
function checkxyblr(){
if (xyblr[lxa.blgzbh.value] == 1) {
selectblry.style.display='none';
}else{selectblry.style.display='';}
}
</SCRIPT>
</HEAD>
<BODY TOPMARGIN="10" LEFTMARGIN="10">
<TABLE border=0 CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><IMG BORDER="0" SRC="../images/icon_menu.gif" ALIGN="left"><A HREF="EconomicLaw_sp_list2.asp"> 待处理案件复核列表</A> </TD>
<TD><IMG BORDER="0" SRC="../images/icon_menu.gif" ALIGN="left"><A HREF="EconomicLaw_sp_list2_1.asp"> 已处理案件复核列表 </A> </TD>
</TR>
</TABLE>
<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">
<TABLE BORDER="0" WIDTH="100%" CELLSPACING="10" CELLPADDING="0">
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>工商字第号：</TD>
<TD nowrap>字
<INPUT NAME="gsz" TYPE="text" CLASS="input" ID="gsz" SIZE="10" VALUE="<%=showvalue("gsz")%>" CHECK_NULL="请填写工商字第号">
第
<INPUT NAME="gsh" TYPE="text" CLASS="input" ID="gsh" SIZE="10" VALUE="<%=showvalue("gsh")%>" CHECK_NULL="请填写工商字第号">
号 </TD>
</TR>
<TR>
<TD WIDTH="100" ALIGN="right" VALIGN="top" nowrap>当事人：</TD>
<TD WIDTH="400" nowrap>
<INPUT TYPE="text" NAME="zch2" VALUE="<%=HtmlOut(GetTableValue("EconomicLaw_reg","dsrxm","id",rs("bkupid")))%>" SIZE="40" MAXLENGTH="250" CLASS="inputext"></TD>
</TR>
<TR>
<TD WIDTH="100" ALIGN="right" VALIGN="top" nowrap><P>案件名称：</P> </TD>
<TD WIDTH="400" nowrap><INPUT TYPE="text" NAME="zch" VALUE="<%=HtmlOut(GetTableValue("EconomicLaw_sp","ajmc","id",rs("bkupid")))%>" SIZE="40" MAXLENGTH="250" CLASS="inputext"></TD>
</TR>
<TR>
<TD WIDTH="100" ALIGN="right" VALIGN="top" nowrap>处罚依据：</TD>
<TD WIDTH="400" nowrap><INPUT NAME="cfgj" TYPE="text" CLASS="input" ID="cfgj" VALUE="<%=showvalue("cfgj")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写处罚依据">
<FONT COLOR="RED">*</FONT> </TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>本局联系人：</TD>
<TD nowrap><INPUT NAME="lxr" TYPE="text" CLASS="input" ID="lxr" VALUE="<%=showvalue("lxr")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写本局联系人">
<FONT COLOR="RED">*</FONT></TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>电话：</TD>
<TD nowrap><INPUT NAME="dh" TYPE="text" CLASS="input" ID="dh" VALUE="<%=showvalue("dh")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写电话">
<FONT COLOR="RED">*</FONT></TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>批准人：</TD>
<TD nowrap><INPUT NAME="pzr" TYPE="text" CLASS="input" ID="pzr" VALUE="<%=showvalue("pzr")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写批准人">
<FONT COLOR="RED">*</FONT></TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>送达人：</TD>
<TD nowrap><INPUT NAME="sdr" TYPE="text" CLASS="input" ID="sdr" VALUE="<%=showvalue("sdr")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写送达人">
<FONT COLOR="RED">*</FONT></TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>被送达人：</TD>
<TD nowrap><INPUT NAME="bsdr" TYPE="text" CLASS="input" ID="bsdr" VALUE="<%=showvalue("bsdr")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写被送达人">
<FONT COLOR="RED">*</FONT></TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>送达时间：</TD>
<TD nowrap><INPUT NAME="sdsj" TYPE="text" CLASS="input" ID="sdsj" VALUE="<%=showvalue("sdsj")%>" SIZE="40" MAXLENGTH="250"></TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>送达方式：</TD>
<TD nowrap><INPUT NAME="sdfs" TYPE="text" CLASS="input" ID="sdfs" VALUE="<%=showvalue("sdfs")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写送达方式">
<FONT COLOR="RED">*</FONT></TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top" nowrap>送达地点：</TD>
<TD nowrap><INPUT NAME="sddd" TYPE="text" CLASS="input" ID="sddd" VALUE="<%=showvalue("sddd")%>" SIZE="40" MAXLENGTH="250" CHECK_NULL="请填写送达地点">
<FONT COLOR="RED">*</FONT></TD>
</TR>
<TR>
<TD WIDTH="100" ALIGN="right" VALIGN="top" nowrap>行政处罚的事实、<BR>
理由及依据：</TD>
<TD WIDTH="400" nowrap><TEXTAREA NAME="cfnr" COLS="39" ROWS="10" CLASS="textarea" ID="cfnr"><%=showvalue("cfnr")%></TEXTAREA> </TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="center">
<INPUT NAME="submit" TYPE="submit" CLASS="button0" onmouseover=className="button1" onmouseout=className="button0" VALUE="确定">
<INPUT NAME="reset" TYPE="reset" CLASS="button0" onMouseOver=className="button1" onMouseOut=className="button0" VALUE="全部重写"></TD>
</TR>
</TABLE>
</FORM></TD>
</TR>
<TR>
<TD WIDTH="25%" CLASS="tdBottom"></TD>
</TR>
</TABLE>
</DIV>
</BODY>
</HTML> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -