📄 htqypm_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="tbioaHtqypm" '表名

'接受查询参数
	area=Request("area")'登记所
	sdate=Request("sdate")'录入日期
	sdate_end=Request("sdate_end")'录入日期(结束)
	pbaz=Request("pbaz")'工商拍备案字
	pbah=Request("pbah")'工商拍备案号
	badw=Request("badw")'申请备案单位
	pmhmc=Request("pmhmc")'拍卖会名称
	pmsxm=Request("pmsxm")'拍卖师姓名
	pmsj=Request("pmsj")'拍卖时间
	pmsj_end=Request("pmsj_end")'拍卖时间(结束)
	pmdd=Request("pmdd")'拍卖地点
	bajbr=Request("bajbr")'申请备案人


'查寻条件
if Search="" then
	Search="WHERE "
	if sdate<>""	then	Search = Search & "sdate>='" & cdate(sdate) & "' and "
	if sdate_end<>""	then	Search = Search & "sdate<='" & cdate(sdate_end) & "' and "
	if pbaz<>""	then	Search = Search & "pbaz='" & pbaz & "' and "
	if pbah<>""	then	Search = Search & "pbah='" & pbah & "' and "
	if badw<>""	then	Search = Search & "badw LIKE '%" & badw & "%' and "
	if pmhmc<>""	then	Search = Search & "pmhmc LIKE '%" & pmhmc & "%' and "
	if pmsxm<>""	then	Search = Search & "pmsxm LIKE '%" & pmsxm & "%' and "
	if pmsj<>""	then	Search = Search & "pmsj>='" & cdate(pmsj) & "' and "
	if pmsj_end<>""	then	Search = Search & "pmsj<='" & cdate(pmsj_end) & "' and "
	if pmdd<>""	then	Search = Search & "pmdd LIKE '%" & pmdd & "%' and "
	if bajbr<>""	then	Search = Search & "bajbr LIKE '%" & bajbr & "%' and "
	if area=""	then	area=session("DepID")
	Search=Search & "area in ("&GetTreeId("tbioaDepartment","ID","ParentID",area)&")" '可查看本部门及下属部门的记录
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>
</HEAD>

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

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

<hr width="100%" size=1 color="#000000">
<table border=0 cellspacing="0" cellpadding="0">
  <tr>
    <form name="eventfrm" method="GET" action="">
    <td nowrap>
    	快速查询：
    	所属所：<select size="1" name="area" class="input">
    			<option value="<%=Session("DepID")%>"><%=GetTableValue("tbioaDepartment","Name","id",Session("DepID"))%></option>
    			<%Call pOptions("tbioaDepartment","Name",Session("DepID"),area,"├-")%>
	      	</select>
    	申请备案单位：<input type="text" name="badw" value="<%=htmlout(badw)%>" size="8" maxlength="50" class="input">
    	拍卖会名称：<input type="text" name="pmhmc" value="<%=htmlout(pmhmc)%>" size="8" maxlength="50" class="input">
       <input type="submit" value="查询" class="button0" onmouseout=className="button0" onmouseover=className="button1">
    </td>
    </form>
  </tr>
</table>
<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 CLASS="tdTop" nowrap>备案字号</TD>
	<TD CLASS="tdTop" nowrap>申请备案单位</TD>
	<TD CLASS="tdTop" nowrap>经办人</TD>
	<TD CLASS="tdTop" nowrap>拍卖会名称</TD>
	<TD CLASS="tdTop" nowrap>拍卖标的</TD>
	<TD CLASS="tdTop" nowrap>拍卖师姓名</TD>
	<TD CLASS="tdTop" nowrap>拍卖时间</TD>
	<TD CLASS="tdTop" nowrap>拍卖地点</TD>
	<TD CLASS="tdTop" nowrap>现场监管员</TD>
	<TD CLASS="tdTop" COLSPAN="3" 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("pbaz"))%>)第<%=HtmlOut(rs("pbah"))%>号</TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("badw"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(getusername(rs("userid")))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmhmc"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmbd"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmsxm"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmsj"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(rs("pmdd"))%></TD>
	<TD CLASS="<%=td_class%>"><%=HtmlOut(GetUserNames(rs("xcjgy"),","))%></TD>
	<TD CLASS="<%=td_class%>" WIDTH="50" nowrap>
	  <IMG BORDER="0" SRC="../images/icon_show.gif" ALIGN="left">
	  <A HREF="Htqypm_show.asp?id=<%=rs("ID")%>" TARGET="_blank">查看</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="Htqypm_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="Htqypm_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 + -