📄 economiclaw_sp_show.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_sp" '表名
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">
    <TD HEIGHT="28">填表单位:<%=showvalue("tbdw")%></TD>
    <TD ALIGN="right">编号:<%=HtmlOut(GetTableValue("EconomicLaw_reg","bh","id",rs("bkupid")))%>   </TD>
  </TR>
  <TR>
    <TD COLSPAN="2"><TABLE WIDTH="100%" BORDER="0" CELLPADDING="1" CELLSPACING="1" BORDERCOLOR="#FFFFFF" BGCOLOR="#efefef">
      <TR>
        <TD WIDTH="9%" ALIGN="center" BGCOLOR="#FFFFFF">案件名称</TD>
        <TD HEIGHT="33" BGCOLOR="#FFFFFF"> &nbsp;<%=showvalue("ajmc")%></TD>
      </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF"><P>当事人姓名<BR>
          或&nbsp; 名&nbsp; 称</P>          </TD>
        <TD WIDTH="91%" HEIGHT="48" BGCOLOR="#FFFFFF"> &nbsp;<%=HtmlOut(GetTableValue("EconomicLaw_reg","dsrxm","id",rs("bkupid")))%></TD>
        </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">审批事项</TD>
        <TD HEIGHT="39" BGCOLOR="#FFFFFF"> &nbsp;<%=showvalue("spsx")%></TD>
        </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">提请审批<BR>
          的理由及<BR>
          依&nbsp;&nbsp;&nbsp; 据</TD>
        <TD BGCOLOR="#FFFFFF">
<%=showvalue("sply")%>
<DIV ALIGN="right">
  &nbsp;<BR>
   承办人：<%=showvalue("cbr")%>  &nbsp;办理日期：<%=showvalue("cbrq")%></DIV></TD>
        </TR>
      
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">承办<BR>
          机构<BR>
          意见</TD>
        <TD HEIGHT="143" BGCOLOR="#FFFFFF"><%=showvalue("cbjgyj")%>
		<DIV ALIGN="right"><BR>&nbsp;办理日期：<%=showvalue("cbjgrq")%></DIV>			</TD>
        </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">局领导<BR>
          意&nbsp; 见</TD>
        <TD HEIGHT="148" 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 + -