📄 economiclaw_sp_show21.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"-->
<!--#include file="FormatTime.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>
<STYLE TYPE="text/css">
<!--
.STYLE1 {font-size: 12px;font-family: "宋体"}
-->
</STYLE>
</HEAD>
<BODY TOPMARGIN="10" LEFTMARGIN="10">
<%call EconomicLawmenu("行政处罚书面告知书")%>
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD HEIGHT="18"> </TD>
</TR>
<TR>
<TD HEIGHT="103" ALIGN="center" CLASS="tab2">四川省工商行政管理机关<BR>
<BR>
行政处罚书面告知书<BR>
<BR>
<SPAN CLASS="STYLE1">工商 字 [ <%=showvalue("gsz")%> ] 第 <%=showvalue("gsh")%> 号</SPAN></TD>
</TR>
</TABLE>
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD><TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD HEIGHT="30" BGCOLOR="#FFFFFF"> <%=HtmlOut(GetTableValue("EconomicLaw_reg","dsrxm","id",rs("bkupid")))%>：</TD>
</TR>
<TR>
<TD HEIGHT="228" BGCOLOR="#FFFFFF">
由本局立案调查的 <%=HtmlOut(GetTableValue("EconomicLaw_sp","ajmc","id",rs("bkupid")))%> 一案已经本局调查终结。根据 <%=showvalue("cfgj")%> 的规定，现将本局拟对你(单位)做出行政处罚的事实、理由及依据告知如下：<BR> <%=showvalue("cfnr")%><BR> 根据《中华人民共和国行政处罚法》的有关规定，在本局做出行政处罚决定前，你(单位)享有陈述、申辩及依法要求举行听证的权利。如要求陈述、申辩或举行听证，请在收到本通知之日起三日内书面向本局提出。逾期未提出的，视为放弃此权利。<BR><BR>
本局联系人：<%=showvalue("lxr")%> 电话：<%=showvalue("dh")%><BR>
<BR>
<BR>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD ALIGN="right">工商行政管理局( 盖 章 ) </TD>
</TR>
<TR>
<TD ALIGN="right"><%=FormatTime(date(),4)%> </TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD BGCOLOR="#FFFFFF"><TABLE WIDTH="100%" BORDER="0" CELLPADDING="1" CELLSPACING="1" BORDERCOLOR="#FFFFFF" BGCOLOR="#CCCCCC">
<TR>
<TD HEIGHT="35" ALIGN="center" BGCOLOR="#FFFFFF">批准人 </TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF">送达人</TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF">被送达人</TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF">送达时间</TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF">送达方式</TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF">送达地点</TD>
</TR>
<TR>
<TD HEIGHT="35" ALIGN="center" BGCOLOR="#FFFFFF"><%=showvalue("pzr")%></TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF"><%=showvalue("sdr")%></TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF"><%=showvalue("bsdr")%></TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF"><%=showvalue("sdsj")%></TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF"><%=showvalue("sdfs")%></TD>
<TD ALIGN="center" BGCOLOR="#FFFFFF"><%=showvalue("sddd")%></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD HEIGHT="35" BGCOLOR="#FFFFFF">本文书一式三份，一份送达，一份归档，一份承办机构留存。</TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</BODY>
</HTML> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -