📄 markassess.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="tbioaClientBase" '表名

'接受查询参数
	area=Request("area")'所属所
	sdate=Request("sdate")'录入日期
	sdate_end=Request("sdate_end")'录入日期(结束)
	zch=Request("zch")'注册号
	zhmc=Request("zhmc")'字号名称
	jylx=Request("jylx")'经营户类型
	lx=Request("lx")'企业类型
	ssdq=Request("ssdq")'所属地区
	hy=Request("hy")'行业
	jyqx=Request("jyqx")'经营期限
	jgry=Request("jgry")'监管人员
	bpld=Request("bpld")'包片领导
	xydj=Request("xydj")'信用等级


'查寻条件
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 zch<>""	then	Search = Search & "zch LIKE '%" & zch & "%' and "
	if zhmc<>""	then	Search = Search & "zhmc LIKE '%" & zhmc & "%' and "
	if jylx<>""	then	Search = Search & "jylx='" & jylx & "' and "
	if lx<>""	then	Search = Search & "lx='" & lx & "' and "
	if ssdq<>""	then	Search = Search & "ssdq='" & ssdq & "' and "
	if hy<>""	then	Search = Search & "hy='" & hy & "' and "
	if jyqx<>""	then	Search = Search & "jyqxs<='" & cdate(jyqx) & "' and jyqxe>='" & cdate(jyqx) & "' and "
	if jgry<>""	then	Search = Search & "jgry='" & jgry & "' and "
	if bpld<>""	then	Search = Search & "bpld='" & bpld & "' and "
	if xydj<>""	then	Search = Search & "xydj LIKE '%" & xydj & "%' 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
	zpname=oConn.Execute("SELECT zp FROM "&table&" WHERE id='"&id&"'")(0)
	if zpname<>null or zpname<>"" then call DeleteOneFile(zpname)'删除照片
	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">

<table border=0 cellspacing="0" cellpadding="0">
  <tr>
    <td><img border="0" src="../images/icon_menu.gif" align="left">工商户分类评定 &nbsp;</td>
  </tr>
</table>

<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="zch" value="<%=htmlout(zch)%>" size="15" maxlength="20" class="input">
    	字号名称：<input type="text" name="zhmc" value="<%=htmlout(zhmc)%>" size="15" maxlength="50" class="input">
    	信用等级：<select size="1" name="xydj" class="input">
          	  <option value="">不限制</option>
          	  <option value="A" <%=selected(xydj,"A")%>>A</option>
          	  <option value="B" <%=selected(xydj,"B")%>>B</option>
          	  <option value="C" <%=selected(xydj,"C")%>>C</option>
          	  <option value="D" <%=selected(xydj,"D")%>>D</option>
          	</select>
       <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" width=85 nowrap>注册号</td>
	<td class="tdTop" nowrap>字号名称</td>
	<td class="tdTop" width=50 nowrap>负责人</td>
	<td class="tdTop" width=60 nowrap>经营户类型</td>
	<td class="tdTop" width=60 nowrap>企业类型</td>
	<td class="tdTop" width=60 nowrap>所属所</td>
	<td class="tdTop" width=50 nowrap>信用等级</td>
	<td class="tdTop" colspan="2" 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("zch"))%></td>
	<td class="<%=td_class%>"><%=HtmlOut(rs("zhmc"))%></td>
	<td class="<%=td_class%>"><%=HtmlOut(rs("fzr"))%></td>
	<td class="<%=td_class%>"><%=GetJylx(rs("jylx"))%></td>
	<td class="<%=td_class%>"><%=GetLx(rs("lx"))%></td>
	<td class="<%=td_class%>"><%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",rs("area")))%></td>
	<td class="<%=td_class%>" align="center"><font color="<%=GetXydjColor(rs("xydj"))%>">■<%=HtmlOut(rs("xydj"))%>类</font></td>
	<td class="<%=td_class%>" width="50" nowrap>
	  <img border="0" src="../images/icon_show.gif" align="left">
	  <a href="ClientBase_show.asp?cid=<%=rs("ID")%>" target="_blank">查看</a>
	</td>
	<td class="<%=td_class%>" width="50" nowrap>
	  <img border="0" src="../images/icon_close.gif" align="left">
	  <a href="MarkAssessModi.asp?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 + -