📄 htpmbadj_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="tbioaHtpmbadj" '表名

'接受查询参数
	badw=Request("badw")'申请备案单位
	pmhmc=Request("pmhmc")'拍卖会名称
	pmdd=Request("pmdd")'拍卖地点
	pmsj=Request("pmsj")'拍卖时间
	pmsj_end=Request("pmsj_end")'拍卖时间(结束)
	wtpmf=Request("wtpmf")'委托拍卖方
	pmbabh=Request("pmbabh")'拍卖备案编号
	basj=Request("basj")'备案时间
	basj_end=Request("basj_end")'备案时间(结束)
	xcjgry=Request("xcjgry")'工商现场监管人员


'查寻条件
if Search="" then
	Search="WHERE "
	if badw<>""	then	Search = Search & "badw LIKE '%" & badw & "%' and "
	if pmhmc<>""	then	Search = Search & "pmhmc LIKE '%" & pmhmc & "%' and "
	if pmdd<>""	then	Search = Search & "pmdd LIKE '%" & pmdd & "%' and "
	if pmsj<>""	then	Search = Search & "pmsj>='" & cdate(pmsj) & "' and "
	if pmsj_end<>""	then	Search = Search & "pmsj<='" & cdate(pmsj_end) & "' and "
	if wtpmf<>""	then	Search = Search & "wtpmf LIKE '%" & wtpmf & "%' and "
	if pmbabh<>""	then	Search = Search & "pmbabh LIKE '%" & pmbabh & "%' and "
	if basj<>""	then	Search = Search & "basj>='" & cdate(basj) & "' and "
	if basj_end<>""	then	Search = Search & "basj<='" & cdate(basj_end) & "' and "
	if xcjgry<>""	then	Search = Search & "xcjgry LIKE '%" & xcjgry & "%' and "
	Search=Search & "','+a.xcjgy+',' like '%,"&LoginID&",%'"'可查看所有人录入的记录
	'Search=Search & "userid="&LoginID'只能查看自己录入的记录
END if


set rs=Server.CreateObject("ADODB.RecordSet")
sql="select a.id as baid,a.sdate as basj,a.area,a.pbaz,a.pbah,a.badw,a.pmhmc,a.pmdd,a.pmsj,a.xcjgy,b.* from tbioaHtqypm a left outer join tbioaHtpmbadj b on a.id=b.bid " & Search & " order by a.ID desc"
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"Search="&Server.URLEncode(Search))
'------------------------------------------------
%>

<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>
</HEAD>

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

<!--#include file="Htpmbadj_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="2" nowrap CLASS="tdTop3">序号<BR>&nbsp;</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">申请备<BR>
    案单位</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">拍卖会<BR>
    名&nbsp; 称</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">拍卖地点<BR>&nbsp;</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">拍卖<BR>
    时间</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">委托拍<BR>
    卖&nbsp; 方</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">拍卖委<BR>
    托金额</TD>
	<TD HEIGHT="26" COLSPAN="2" nowrap CLASS="tdTop3">拍卖确认</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">拍卖备<BR>
    案编号</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">备案<BR>
    时间</TD>
	<TD ROWSPAN="2" nowrap CLASS="tdTop3">工商现场<BR>
    监管人员</TD>
	<TD COLSPAN="1" ROWSPAN="2" nowrap CLASS="tdTop3">相关操作<BR></TD>
  </TR>
  <TR>
    <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"
   xh=rs.recordcount-maxmessage*page-i
%>
  <TR>
	<TD CLASS="<%=td_class%>"><%=xh%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("badw"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmhmc"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmdd"))%></TD>
	<TD CLASS="<%=td_class%>" nowrap><%=HtmlOut(rs("pmsj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("wtpmf"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmwtj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmqrs"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmqrj"))%></TD>
	<TD CLASS="<%=td_class%>">工商拍备案字(<%=HtmlOut(rs("pbaz"))%>)第<%=HtmlOut(rs("pbah"))%>号</TD>
	<TD CLASS="<%=td_class%>" nowrap><%=HtmlOut(formatdatetime(rs("basj"),2))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(GetUserNames(rs("xcjgy"),","))%></TD>
	<TD CLASS="<%=td_class%>" WIDTH="50" nowrap>
	  <IMG BORDER="0" SRC="../images/icon_edit.gif" ALIGN="left">
	  <A HREF="Htpmbadj_edit.asp?bid=<%=rs("baid")%>&id=<%=rs("ID")%>">编辑</A>	</TD>
  </TR>
<%
rs.MoveNext
next
%>
</TABLE>


<%
end if
rs.close
%>

</BODY>

</HTML>

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

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