📄 economiclaw_reg_show.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="EconomicLaw_menushow.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
if request("id")="" then AlertBack "目前尚无此记录或未作处理",1
LoginID=clng(trim(Session("LoginID"))) '当前用户ID
pid=clng(request("id")) '记录ID
'------------------------------------------------
'------------------------------------------------添加/修改记录
table="EconomicLaw_reg" '表名
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
'response.write blryxmlb
'response.end()
rs.Close
set rs=nothing
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>
<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">
<%call EconomicLawmenu("立销案审批表")%>
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD ALIGN="center" CLASS="tab2">四 川 省 工 商 行 政 管 理 机 关<BR>
<BR>
立 (销) 案 审 批 表</TD>
</TR>
</TABLE>
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<FORM NAME="lxa" METHOD="POST" ACTION="?id=<%=pid%>" onSubmit="return checknull(this)">
<INPUT type=hidden NAME="addedit_subed" VALUE="true">
<TR>
<TD WIDTH="51%" HEIGHT="28">填表单位:
<INPUT NAME="tbdw" TYPE="text" CLASS="inputext" ID="tbdw" VALUE="<%=showvalue("tbdw")%>" CHECK_NULL="请填写填表单位"></TD>
<TD WIDTH="49%" ALIGN="right">编号:
<INPUT NAME="bh" TYPE="text" CLASS="inputext" ID="bh" VALUE="<%=showvalue("bh")%>" CHECK_NULL="请填写编号"></TD>
</TR>
<TR>
<TD COLSPAN="2"><TABLE WIDTH="100%" BORDER="0" CELLPADDING="1" CELLSPACING="1" BORDERCOLOR="#FFFFFF" BGCOLOR="#999999">
<TR>
<TD WIDTH="8%" ROWSPAN="5" ALIGN="center" BGCOLOR="#FFFFFF">当<BR>
事<BR>
人</TD>
<TD WIDTH="10%" HEIGHT="24" ALIGN="center" BGCOLOR="#FFFFFF">姓名或名称</TD>
<TD COLSPAN="5" BGCOLOR="#FFFFFF"><INPUT NAME="dsrxm" TYPE="text" CLASS="inputext" ID="dsrxm" VALUE="<%=showvalue("dsrxm")%>" SIZE="76" CHECK_NULL="请填写当事人姓名或名称"></TD>
</TR>
<TR>
<TD HEIGHT="24" ALIGN="center" BGCOLOR="#FFFFFF">性 别</TD>
<TD WIDTH="11%" BGCOLOR="#FFFFFF"><INPUT NAME="dsrxb" TYPE="text" CLASS="inputext" ID="dsrxb" VALUE="<%=showvalue("dsrxb")%>" SIZE="5" CHECK_NULL="请填写当事人性别"></TD>
<TD WIDTH="7%" ALIGN="center" BGCOLOR="#FFFFFF">年 龄</TD>
<TD WIDTH="12%" BGCOLOR="#FFFFFF"><INPUT NAME="dsrnl" TYPE="text" CLASS="inputext" ID="dsrnl" VALUE="<%=showvalue("dsrnl")%>" SIZE="5" CHECK_NULL="请填写当事人年龄"></TD>
<TD WIDTH="9%" ALIGN="center" BGCOLOR="#FFFFFF">职 业</TD>
<TD WIDTH="43%" BGCOLOR="#FFFFFF"><INPUT NAME="dsrzy" TYPE="text" CLASS="inputext" ID="dsrzy" VALUE="<%=showvalue("dsrzy")%>" SIZE="31" CHECK_NULL="请填写当事人职业"></TD>
</TR>
<TR>
<TD HEIGHT="24" ALIGN="center" BGCOLOR="#FFFFFF">邮政编码</TD>
<TD COLSPAN="3" BGCOLOR="#FFFFFF"><INPUT NAME="yzbm" TYPE="text" CLASS="inputext" ID="yzbm" VALUE="<%=showvalue("yzbm")%>" SIZE="10" CHECK_NULL="请填写邮政编码"></TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF">电 话</TD>
<TD BGCOLOR="#FFFFFF"><INPUT NAME="dsrdh" TYPE="text" CLASS="inputext" ID="dsrdh" VALUE="<%=showvalue("dsrdh")%>" SIZE="15" CHECK_NULL="请填写当事人电话"></TD>
</TR>
<TR>
<TD HEIGHT="24" COLSPAN="3" ALIGN="center" BGCOLOR="#FFFFFF">法定代表人或负责人</TD>
<TD COLSPAN="3" BGCOLOR="#FFFFFF"><INPUT NAME="fddbr" TYPE="text" CLASS="inputext" ID="fddbr" VALUE="<%=showvalue("fddbr")%>" SIZE="56" CHECK_NULL="请填写法定代表人或负责人"></TD>
</TR>
<TR>
<TD HEIGHT="24" ALIGN="center" BGCOLOR="#FFFFFF">住 所</TD>
<TD COLSPAN="5" BGCOLOR="#FFFFFF"><INPUT NAME="dsrzs" TYPE="text" CLASS="inputext" ID="dsrzs" VALUE="<%=showvalue("dsrzs")%>" SIZE="77" CHECK_NULL="请填写当事人住所"></TD>
</TR>
<TR>
<TD ALIGN="center" BGCOLOR="#FFFFFF">案发地</TD>
<TD HEIGHT="33" COLSPAN="6" BGCOLOR="#FFFFFF"><INPUT NAME="afd" TYPE="text" CLASS="inputext" ID="afd" VALUE="<%=showvalue("afd")%>" SIZE="100" CHECK_NULL="请填写案发地"></TD>
</TR>
<TR>
<TD ALIGN="center" BGCOLOR="#FFFFFF">案件来源</TD>
<TD HEIGHT="39" COLSPAN="6" BGCOLOR="#FFFFFF"><INPUT NAME="ajly" TYPE="text" CLASS="inputext" ID="ajly" VALUE="<%=showvalue("ajly")%>" SIZE="100" CHECK_NULL="请填写案件来源"></TD>
</TR>
<TR>
<TD ALIGN="center" BGCOLOR="#FFFFFF">案<BR>
情<BR>
及<BR>
立<BR>
(销)<BR>
案<BR>
理<BR>
由</TD>
<TD COLSPAN="6" BGCOLOR="#FFFFFF">
<%=showvalue("lxaly")%>
<DIV ALIGN="right"><BR>
<BR>
承办人：
<INPUT NAME="lxacbr" TYPE="text" CLASS="inputext" ID="lxacbr" VALUE="<%=showvalue("lxacbr")%>" SIZE="15">
办理日期：
<INPUT NAME="lxarq" TYPE="TEXT" CLASS="inputext" ID="lxarq" onKeyUp="DateFormat(this,this.value,event,false,'2')" VALUE="<%=showvalue("lxarq")%>" SIZE="12" MAXLENGTH="12" CHECK_DATE="日期格式错误" CHECK_NULL="请填写办理日期">
<A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.lxa.lxarq, 'winpop', 234, 261);return false"> </A><A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.lxa.lxarq, 'winpop', 234, 261);return false"></A> </DIV></TD>
</TR>
<TR>
<TD ALIGN="center" BGCOLOR="#FFFFFF">承办<BR>
机构<BR>
意见</TD>
<TD HEIGHT="143" COLSPAN="6" BGCOLOR="#FFFFFF">
<%=showvalue("cbjgyj")%>
<DIV ALIGN="right"><BR>
<BR>
办理日期：
<INPUT NAME="cbjgrq" TYPE="TEXT" CLASS="inputext" ID="cbjgrq" onKeyUp="DateFormat(this,this.value,event,false,'2')" VALUE="<%=showvalue("cbjgrq")%>" SIZE="12" MAXLENGTH="12" CHECK_DATE="日期格式错误" CHECK_NULL="请填写办理日期">
<A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.lxa.cbjgrq, 'winpop', 234, 261);return false"> </A><A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.lxa.cbjgrq, 'winpop', 234, 261);return false"></A> </DIV></TD>
</TR>
<TR>
<TD ALIGN="center" BGCOLOR="#FFFFFF">局领导<BR>
意 见</TD>
<TD HEIGHT="148" COLSPAN="6" BGCOLOR="#FFFFFF"> <%=showvalue("jldyj")%>
<DIV ALIGN="right"><BR>
<BR>
办理日期：
<INPUT NAME="jldrq" TYPE="TEXT" CLASS="inputext" 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.lxa.jldrq, 'winpop', 234, 261);return false"> </A><A href=# TITLE="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.lxa.jldrq, 'winpop', 234, 261);return false"></A> </DIV></TD>
</TR>
</TABLE></TD>
</TR>
</FORM>
</TABLE>
</BODY>
</HTML> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -