economiclaw_jys_show.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 143 行

ASP
143 行
字号 
<%
'==============================================================
'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_jys" '表名
'------------------------------------------------
'--------------------------------------------取记录
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>
    </TR>
  <TR>
    <TD><TABLE WIDTH="100%" BORDER="0" CELLPADDING="1" CELLSPACING="1" BORDERCOLOR="#FFFFFF" BGCOLOR="#efefef">
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">当事人姓名<BR>
或&nbsp; 名&nbsp; 称</TD>
        <TD HEIGHT="33" COLSPAN="3" BGCOLOR="#FFFFFF"><%=HtmlOut(GetTableValue("EconomicLaw_reg","dsrxm","id",rs("bkupid")))%></TD>
        </TR>
      <TR>
        <TD WIDTH="16%" ALIGN="center" BGCOLOR="#FFFFFF">案件性质</TD>
        <TD WIDTH="37%" HEIGHT="33" BGCOLOR="#FFFFFF"> &nbsp;<%=HtmlOut(GetTableValue("EconomicLaw_sp2","ajxz","id",rs("spid")))%></TD>
        <TD WIDTH="15%" ALIGN="CENTER" BGCOLOR="#FFFFFF">立案时间</TD>
        <TD WIDTH="32%" BGCOLOR="#FFFFFF"><%=HtmlOut(GetTableValue("EconomicLaw_sp2","larq","id",rs("spid")))%></TD>
      </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">当事人的主要<BR>
          违法事实、拟<BR>
          作出行政处罚<BR>
          决定的理由、<BR>
          依据及内容</TD>
        <TD HEIGHT="114" COLSPAN="3" BGCOLOR="#FFFFFF"> &nbsp;<%=showvalue("cfnr")%></TD>
        </TR>
      <TR>
        <TD HEIGHT="110" ALIGN="center" BGCOLOR="#FFFFFF">办案机构意见</TD>
        <TD COLSPAN="3" BGCOLOR="#FFFFFF">
<%=showvalue("bajgyj")%>
<DIV ALIGN="right">
  &nbsp;<BR>
   承办人：<%=showvalue("cbr")%>  &nbsp;办理日期：<%=showvalue("cbrq")%></DIV></TD>
        </TR>
      
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">核审机构意见</TD>
        <TD HEIGHT="143" COLSPAN="3" BGCOLOR="#FFFFFF"><%=showvalue("hsjgyj")%>
		<DIV ALIGN="right"><BR>&nbsp;办理日期：<%=showvalue("hsjgrq")%></DIV>			</TD>
        </TR>
      <TR>
        <TD ALIGN="center" BGCOLOR="#FFFFFF">局领导意见</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>

economiclaw_jys_show.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 economiclaw_jys_show.asp 源码文件，采用 ASP 编程语言编写，共 143 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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