<!--#include file="byshop_conn.asp"-->
<!--#include file="session.asp"-->

<html><head><title>管理租赁房-求租</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>

<%dim selectm,selectkey,selectid
selectkey=trim(request(trim("selectkey")))
selectm=trim(request("selectm"))
		  action=request.QueryString("action")

if selectkey="" then
selectkey=request.QueryString("selectkey")
end if
if selectkey="请输入关键字" then
selectkey=""
end if

'//删除
if selectm="" then
selectm=request.QueryString("selectm")
end if
selectid=request("selectid")
if selectid<>"" then
conn.execute "delete from rent2 where id in ("&selectid&")"
response.Redirect "managerent2.asp?action=all"
response.End
end if

'//刷新
newid=request("newid")
if newid<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  adddate,guding,gddate from rent2 where id="&newid
rs.open sql,conn,1,3
if rs("guding")= 1 then
rs("gddate")=now()
else
rs("adddate")=now()
end if
rs.update
response.Redirect "managerent2.asp?action=all"
end if

'//固顶
gdid=request("gdid")
if gdid<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  guding,gddate,adddate from rent2 where id="&gdid
rs.open sql,conn,1,3
rs("guding")=1
rs("gddate")=rs("adddate")
rs("adddate")="3000-1-1 1:1:1"
rs.update
response.Redirect "managerent2.asp?action=all"
end if

'//解固
jgid=request("jgid")
if jgid<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  guding,gddate,adddate from rent2 where id="&jgid
rs.open sql,conn,1,3
rs("guding")=0
rs("adddate")=rs("gddate")
rs.update
response.Redirect "managerent2.asp?action=all"
end if

'//通过
pass=request("pass")
if pass<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  by_shenhe from rent2 where id="&pass
rs.open sql,conn,1,3
rs("by_shenhe")=1
rs.update
response.Redirect "managerent2.asp?action=all"
end if

'//等待
wait=request("wait")
if wait<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  by_shenhe from rent2 where id="&wait
rs.open sql,conn,1,3
rs("by_shenhe")=0
rs.update
response.Redirect "managerent2.asp?action=all"
end if

'//未通过
fall=request("fall")
if fall<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  by_shenhe from rent2 where id="&fall
rs.open sql,conn,1,3
rs("by_shenhe")=-1
rs.update
response.Redirect "managerent2.asp?action=all"
end if

%>

<div align="center">
<table cellpadding="3" cellspacing="1" border="1" width="100%" class="tableBorder" style="border-collapse: collapse" bordercolor="#C0C0C0">
  <tr align="center"> 
    <td  class="forumRowHighlight" width=25% bgcolor="#F7F7F7"> <a href="managerent2.asp?action=all"><%if action="all" then %><font  color="#FF0000"><% end if%>所有</font></a> <%
    set rs=server.createobject("adodb.recordset") 
    	rs.open "select * from [rent2] ",conn,1,1
    	response.write rs.recordcount
    	rs.close
    %></td>
    <td  class="forumRowHighlight"  width=25% bgcolor="#F7F7F7"><a href="managerent2.asp?action=pass"><%if action="pass" then %><font  color="#FF0000"><% end if%>通过</font></a><%
    set rs=server.createobject("adodb.recordset") 
    	rs.open "select * from [rent2] where by_shenhe=1",conn,1,1
    	response.write rs.recordcount
    	rs.close
    %></td>
    <td  class="forumRowHighlight"  width=25% bgcolor="#F7F7F7"><a href="managerent2.asp?action=wait"><%if action="wait" then %><font  color="#FF0000"><% end if%>待审核</font></a><%
    set rs=server.createobject("adodb.recordset") 
    	rs.open "select * from [rent2] where by_shenhe=0",conn,1,1
    	response.write rs.recordcount
    	rs.close
    %></td>
    <td  class="forumRowHighlight"  width=25% bgcolor="#F7F7F7"><a href="managerent2.asp?action=fall"><%if action="fall" then %><font  color="#FF0000"><% end if%>未通过</font></a><%
    set rs=server.createobject("adodb.recordset") 
    	rs.open "select * from [rent2] where by_shenhe=-1",conn,1,1
    	response.write rs.recordcount
    	rs.close
    %></td>
  </tr>
</table>
</div>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<form name="form1" method="post" action="">
 <td  height="100"> 
				<%'开始分页
				Const MaxPerPage=20
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(request("page")) then
      				currentPage=Cint(request("page"))
   				else
      				currentPage=1
   				end if 
			set rs=server.CreateObject("adodb.recordset")
			select case selectm
			case ""
           				  select case action
		  case "all"
		 	rs.open "select * from [rent2] order by adddate desc ",conn,1,1
		  case "pass"
		 	rs.open "select * from [rent2] where by_shenhe=1 order by adddate desc ",conn,1,1
		  case "wait"
		 	rs.open "select * from [rent2] where by_shenhe=0 order by adddate desc ",conn,1,1
		 	 case "fall"
		 	rs.open "select * from [rent2] where by_shenhe=-1 order by adddate desc ",conn,1,1
		  end select		    
		  case "0"
			rs.open "select *  from rent2  order by adddate desc",conn,1,1
		    case "id"
			if selectkey="" then
			selectkey=0
			end if
			rs.open "select * from  rent2 where id="&selectkey&" order by adddate desc",conn,1,1
			case "titlename"
			rs.open "select * from  rent2 where titlename like '%"&selectkey&"%' order by adddate desc",conn,1,1
			case "bookcontent"
			rs.open "select *  from  rent2 where content like '%"&selectkey&"%' order by adddate desc",conn,1,1
					  	end select
		   	if err.number<>0 then
				response.write "数据库中无数据"
				end if
  				if rs.eof and rs.bof then
       		%>
       			<div align="center">
       		<table class="tableBorder" width="100%" border="1" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr> 
<th colspan="7" bgcolor="#E8F1FF" >租赁<span lang="zh-cn">房求购管理</span></th>
</tr>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  width="7%" align="center" bgcolor="#F7F7F7">序号</td>
 <td class="forumRowHighlight"  width="28%" align="center" bgcolor="#F7F7F7">信息标题</td>
 <td class="forumRowHighlight"  width="19%" align="center" bgcolor="#F7F7F7">加入时间</td>
 <td class="forumRowHighlight"  width="12%" align="center" bgcolor="#F7F7F7">审核状态</td>
 <td class="forumRowHighlight"  width="12%" align="center" bgcolor="#F7F7F7">发布类型</td>
 <td class="forumRowHighlight"  width="10%" align="center" bgcolor="#F7F7F7">操作</td>
 <td class="forumRowHighlight"  width="7%" align="center" bgcolor="#F7F7F7">选 择</td>
</tr>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"></td>
 <td class="forumRowHighlight"  width="27%" STYLE='PADDING-LEFT: 10px' bgcolor="#F7F7F7">
没有信息</a></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
 </td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
 		</td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
　</td></tr>
         
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  height="30" colspan="7" align="right" bgcolor="#F7F7F7">　</td>
</tr>
</table>
       			</div>
       		<%
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"managerent2.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"managerent2.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"managerent2.asp"
	      				end if
	   				end if
   				   	end if

   				sub showContent
       				dim i
	   			i=0%>

				<div align="center">

<table class="tableBorder" width="100%" border="1" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr> 
<th colspan="7" bgcolor="#E8F1FF" >租赁<span lang="zh-cn">房求购管理</span></th>
</tr>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  width="7%" align="center" bgcolor="#F7F7F7">序号</td>
 <td class="forumRowHighlight"  width="28%" align="center" bgcolor="#F7F7F7">信息标题</td>
 <td class="forumRowHighlight"  width="19%" align="center" bgcolor="#F7F7F7">加入时间</td>
 <td class="forumRowHighlight"  width="12%" align="center" bgcolor="#F7F7F7">发布类型</td>
 <td class="forumRowHighlight"  width="12%" align="center" bgcolor="#F7F7F7">审核状态</td>
 <td class="forumRowHighlight"  width="10%" align="center" bgcolor="#F7F7F7">操作</td>
 <td class="forumRowHighlight"  width="7%" align="center" bgcolor="#F7F7F7">选 择</td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"><a href=editrent2.asp?id=<%=rs("id")%>><%=rs("id")%></a></td>
 <td class="forumRowHighlight"  width="21%" STYLE='PADDING-LEFT: 10px' bgcolor="#F7F7F7"> <a href=editrent2.asp?id=<%=rs("id")%>>
<%
	if rs("guding")=1 then
	response.write "<font color='#FF0000'>"
	end if	
 response.write rs("address")
  
  %></a>
</a></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"> <%if rs("guding")=1 then
    response.write rs("gddate")
    else
     response.write  rs("adddate")
     end if%></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"> 
     <% if rs("pubsort")=1 then response.write  "本站发布" end if%>
     <% if rs("pubsort")=2 then response.write "中介发布" end if%>
     <% if rs("pubsort")=3 then response.write "个人发布" end if%>
     　</td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
<% if rs("by_shenhe")=1 then
 %>
<font color="#FF0000">通过</font>&nbsp;<a href="managerent2.asp?wait=<%=rs("id")%>">等待</a>&nbsp;<a href="managerent2.asp?fall=<%=rs("id")%>">未通过</a>
 <%
 end if
 if rs("by_shenhe")=0 then
%>
<a href="managerent2.asp?pass=<%=rs("id")%>">通过</a>&nbsp;<font color="#FF0000">等待</font>&nbsp;<a href="managerent2.asp?fall=<%=rs("id")%>">未通过</a>
<%
 end if
 if rs("by_shenhe")=-1 then
%>
<a href="managerent2.asp?pass=<%=rs("id")%>">通过</a>&nbsp;<a href="managerent2.asp?wait=<%=rs("id")%>">等待</a>&nbsp;<font color="#FF0000">未通过</font>
<%
 end if

 %>    
 </td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"><a href="managerent2.asp?newid=<%=rs("id")%>">刷新</a> <%if rs("guding")=1 then%><a href="managerent2.asp?jgid=<%=rs("id")%>"><font color="#FF0000">解固</font></a><%else%><a href="managerent2.asp?gdid=<%=rs("id")%>">固顶</a><%end if%></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
<input name="selectid" type="checkbox" id="selectid" value="<%=rs("id")%>" >
</td></tr>
          <%i=i+1
		if i>=MaxPerPage then Exit Do
		rs.movenext
		loop
		rs.close
		set rs=nothing%>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  height="30" colspan="7" align="right" bgcolor="#F7F7F7">全选 
<input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
<input type="submit" name="Submit" class=go-wenbenkuang value="删 除" onClick="return test();">
&nbsp;</td>
</tr>
</table>
				</div>
				<%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If
				
				Response.Write "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首页 上一页</font> "  
				Else  
					Response.Write "<a href="&filename&"?page=1&selectm="&selectm&"&selectkey="&selectkey&"action="&action&" class='contents'>首页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&"action="&action&" class='contents'>上一页</a> "  
				End If
				
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 尾页</font>"  
				Else  
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&"action="&action&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&"action="&action&" class='contents'>尾页</a>"  
				End If  
					Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共有"&totalnumber&"条信息 " 
					Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
				End Function  
			%>
<table width="12" height="7" border="0" cellpadding="0" cellspacing="0">
<tr> 
 <td class="forumRowHighlight"  height=7></td>
</tr>
</table>
</td>
</form>
</tr>
</table>
<div align="center">
<table class="tableBorder" width="100%" border="1" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<th bgcolor="#E8F1FF" >租赁<span lang="zh-cn">房求购查询</span></th>
</tr>
<tr bgcolor="#E8F1FF"> 
<form name="form2" method="post" action="managesell.asp">
 <td class="forumRowHighlight" bgcolor="#F7F7F7"  > 
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
 <td class="forumRowHighlight"  width="35%" align="center">
<input name="selectkey" type="text" id="selectkey" class=wenbenkuang onFocus="this.value=''" value="请输入关键字">
</td>
 <td class="forumRowHighlight"  width="45%" align="center"> 
<select name="selectm" class=wenbenkuang  id="selectm">
<option value="titlename">按信息标题</option>
<option value="content">按车况要求</option>
<option value="id">按汽车序号</option>
</select>
</td>
 <td class="forumRowHighlight"  width="20%" height="30" align="center">
<input type="submit" name="Submit2" class=go-wenbenkuang value="查 询">
</td>
</tr>
</table>
</td>
</form>
</tr>
</table>

</div>

</body>
</html>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<script language=javascript>
function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script> 
  