📄 economiclaw_sp_show2.asp

📁 OFFICE办公自动化
💻 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_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

'------------------------------------------------
'--------------------------------------------取记录
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 HEIGHT="18">&nbsp;</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">
  <TR>
    <TD><TABLE WIDTH="100%" BORDER="0" CELLPADDING="1" CELLSPACING="1" BORDERCOLOR="#FFFFFF" BGCOLOR="#efefef">
      <TR>
        <TD WIDTH="12%" ALIGN="center" BGCOLOR="#FFFFFF"><P>当事人姓名<BR>
          或&nbsp; 名&nbsp; 称</P>          </TD>
        <TD HEIGHT="48" COLSPAN="3" BGCOLOR="#FFFFFF"> &nbsp;<%=HtmlOut(GetTableValue("EconomicLaw_reg","dsrxm","id",rs("bkupid")))%></TD>
        </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">案件性质</TD>
        <TD WIDTH="27%" HEIGHT="39" BGCOLOR="#FFFFFF"> &nbsp;<%=showvalue("ajxz")%></TD>
        <TD WIDTH="21%" ALIGN="center" BGCOLOR="#FFFFFF">立 案 时 间</TD>
        <TD WIDTH="40%" BGCOLOR="#FFFFFF"><%=showvalue("larq")%>&nbsp;&nbsp;</TD>
      </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">当事人主要违法事实</TD>
        <TD COLSPAN="3" BGCOLOR="#FFFFFF"><%=showvalue("wfss")%></TD>
      </TR>

      
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">承办<BR>
          人报处以建<BR>
          意见</TD>
        <TD HEIGHT="143" COLSPAN="3" BGCOLOR="#FFFFFF"><%=showvalue("cbryj")%></TD>
        </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">办案机构处罚建议  </TD>
        <TD HEIGHT="148" COLSPAN="3" BGCOLOR="#FFFFFF"><%=showvalue("bajgyj")%><DIV ALIGN="right"><BR>&nbsp; 办理日期：<%=showvalue("bajgrq")%></DIV></TD>
      </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">核审机构意见</TD>
        <TD HEIGHT="148" COLSPAN="3" BGCOLOR="#FFFFFF"><%=showvalue("hsjgyj")%><DIV ALIGN="right"><BR>&nbsp; 办理日期：<%=showvalue("hsjgrq")%></DIV></TD>
      </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">局领导<BR>
          意&nbsp; 见</TD>
        <TD HEIGHT="148" COLSPAN="3" BGCOLOR="#FFFFFF"> &nbsp;<%=showvalue("jldyj")%>
          <DIV ALIGN="right"><BR>&nbsp; 办理日期：<%=showvalue("jldrq")%></DIV></TD>
        </TR>
    </TABLE></TD>
  </TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

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