📄 htjdjcdj_list.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'OA 表单生成器1.0
'功能：合同监督检查登记表列表
'参数：request("page")=int #当前页码;  request.form("Search")=chr #上次查询条件
%>

<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
maxmessage=15 '每页显示记录数
currentpage=request("page") '当前页码
Search=request("Search") '上次查询条件
'------------------------------------------------
'------------------------------------------------取记录
'分页取记录 （返回rs对象）
'rs.recordcount 为记录总数
'rs.PageSize 为本页记录数
'
table="tbioaHtjdjcdj" '表名

'接受查询参数
	jcry=Request("jcry")'检查人员
	jcsj=Request("jcsj")'检查时间
	jcsj_end=Request("jcsj_end")'检查时间(结束)
	bjcdwmc=Request("bjcdwmc")'被检查单位名称
	jcxm=Request("jcxm")'检查项目


'查寻条件
if Search="" then
	Search="WHERE "
	if jcry<>""	then	Search = Search & "jcry LIKE '%" & jcry & "%' and "
	if jcsj<>""	then	Search = Search & "jcsj>='" & cdate(jcsj) & "' and "
	if jcsj_end<>""	then	Search = Search & "jcsj<='" & cdate(jcsj_end) & "' and "
	if bjcdwmc<>""	then	Search = Search & "bjcdwmc LIKE '%" & bjcdwmc & "%' and "
	if jcxm<>""	then	Search = Search & "jcxm LIKE '%" & jcxm & "%' and "
	Search=Search & "1=1"'可查看所有人录入的记录
	'Search=Search & "userid="&LoginID'只能查看自己录入的记录
END if


set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from " & table & " " & Search & " order by ID desc"
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"Search="&Server.URLEncode(Search))
'------------------------------------------------删除记录
if request("mod")="dele" then
	id=request("id") : if id="" then id=0 '删除记录ID
	oConn.Execute "delete from "&table&" where id="&id
	response.write "<script>alert('合同监督检查登记表成功删除!');history.back()</script>"
	response.end
end if
'------------------------------------------------
%>

<HTML>

<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="../css/main.css" type=text/css>
<TITLE>main</TITLE>
<STYLE TYPE="text/css">
<!--
.STYLE1 {font-size: medium}
-->
</STYLE>
</HEAD>

<BODY TOPMARGIN="10" LEFTMARGIN="10">

<!--#include file="Htjdjcdj_menu.html"-->

<HR WIDTH="100%" size=1 COLOR="#000000">

<%=Showpage%>
<BR>
<%
if rs.RecordCount=0 then
	response.write "<BR><BR>暂时为空！"
else
%>


<TABLE WIDTH="100%" CELLSPACING="1" CELLPADDING="2" CLASS="tab">
  <TR>
    <TD ROWSPAN="3" nowrap CLASS="tdTop3">检查人员</TD>
    <TD ROWSPAN="3" nowrap CLASS="tdTop3">检查时间</TD>
    <TD ROWSPAN="3" nowrap CLASS="tdTop3">被检查单位名称</TD>
    <TD ROWSPAN="3" nowrap CLASS="tdTop3">检查项目</TD>
    <TD HEIGHT="26" COLSPAN="10" nowrap CLASS="tdTop3">检查情况</TD>
    <TD ROWSPAN="3" nowrap CLASS="tdTop3">处理情况</TD>
    <TD COLSPAN="3" ROWSPAN="3" nowrap CLASS="tdTop3">相关操作</TD>
  </TR>
  <TR>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">份数</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">金额</TD>
	<TD HEIGHT="26" COLSPAN="2" nowrap CLASS="tdTop3">不合格</TD>
	<TD COLSPAN="2" nowrap CLASS="tdTop3">到期未履约</TD>
	<TD COLSPAN="2" nowrap CLASS="tdTop3">解除合同</TD>
	<TD COLSPAN="2" nowrap CLASS="tdTop3">发现违法合同</TD>
  </TR>
  <TR>
    <TD CLASS="tdTop3" nowrap>份数</TD>
    <TD CLASS="tdTop3" nowrap>金额</TD>
    <TD CLASS="tdTop3" nowrap>份数</TD>
    <TD CLASS="tdTop3" nowrap>金额</TD>
    <TD CLASS="tdTop3" nowrap>份数</TD>
    <TD CLASS="tdTop3" nowrap>金额</TD>
    <TD CLASS="tdTop3" nowrap>份数</TD>
    <TD CLASS="tdTop3" nowrap>金额</TD>
  </TR>
<%for i = 0 to rs.PageSize-1
   If rs.EOF Then Exit For
   if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
  <TR>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("jcry"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("jcsj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("bjcdwmc"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("jcxm"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("jcs"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("jcj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("bhgs"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("bhgj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("wlys"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("wlyj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("jcfs"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("jcje"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("wfhts"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("wfhtj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("clqk"))%></TD>
	<TD CLASS="<%=td_class%>" WIDTH="50" nowrap>
	  <IMG BORDER="0" SRC="../images/icon_show.gif" ALIGN="left">
	  <A HREF="Htjdjcdj_show.asp?id=<%=rs("ID")%>">查看</A>	</TD>
	<%if rs("UserID")=cint(LoginID) or returnqx(qx_htgl) then%>
		<TD CLASS="<%=td_class%>" WIDTH="50" nowrap>
		  <IMG BORDER="0" SRC="../images/icon_edit.gif" ALIGN="left">
		  <A HREF="Htjdjcdj_edit.asp?id=<%=rs("ID")%>">编辑</A>	</TD>
		<TD CLASS="<%=td_class%>" WIDTH="50" nowrap>
		  <IMG BORDER="0" SRC="../images/icon_dele.gif" ALIGN="left">
		  <A HREF="Htjdjcdj_list.asp?mod=dele&id=<%=rs("ID")%>" onClick="return confirm('确定要删除该条记录吗？\n该操作不可恢复！')">删除</A>	</TD>
	<%else%>
		<td class="<%=td_class%>" width="50" align="center" nowrap>
		  --
		</td>
		<td class="<%=td_class%>" width="50" align="center" nowrap>
		  --
		</td>
	<%end if%>
  </TR>
<%
rs.MoveNext
next
%>
</TABLE>


<%
end if
rs.close
%>

</BODY>

</HTML>

<%'释放对象变量
oConn.close
%>
⌨️ 快捷键说明

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