<!--#include file="pysjzx_conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>-租赁车</title>
<meta content="<%=keyword%>" name="keywords">
<meta content="<%=description%>" name="description">
<LINK href="css/style.css" rel=stylesheet type=text/css>
</head>
<!--#include file="webhead.asp"-->
<SCRIPT language=javaScript>
<!--
function mOvr(src,clrOver){ 
	if (!src.contains(event.fromElement)) { 
		src.bgColor = clrOver; 
	}
}
function mOut(src,clrIn)  { 
	if (!src.contains(event.toElement)) { 
		src.bgColor = clrIn; 
	}
} 
//-->
</SCRIPT>
<div align="center">
<table cellSpacing="0" cellPadding="0" width="780" border="0">
	<tr>
		<td height=25 bgcolor="#DEDEDE">您的位置: <a href="index.asp">首页</a> &gt;&gt; <a href="lease.asp">租赁车</a> </td>
	</tr>
</table>
</div>
<div align="center">
<table cellSpacing="0" cellPadding="0" width="780" border="0">
	<tr>
		<td vAlign="top" align="middle" >
		<table cellSpacing="0" cellPadding="0" width="570" border="0">
			<tr>
				<td height="5"></td>
			</tr>
		</table>
		<table class="ourfont" cellSpacing="1" cellPadding="0" width="590" bgColor="#ffffff" border="0">
			<tr>
				<td height=25 align="middle" width="74" bgColor="#ffffff">日租价：</td>
				<td align="middle" width="83" bgColor="#ffecd0">
				<a href="research.asp?pysjzx_type=lease&anclass=0&nclass=0&province=0&city=0&day_lease_price=1&month_lease_price=0">100以下</a></td>
				<td align="middle" width="81" bgColor="#ffe3b9">
				<a href="research.asp?pysjzx_type=lease&anclass=0&nclass=0&province=0&city=0&day_lease_price=2&month_lease_price=0">1100-200</a></td>
				<td align="middle" width="89" bgColor="#ffccaa">
				<a href="research.asp?pysjzx_type=lease&anclass=0&nclass=0&province=0&city=0&day_lease_price=3&month_lease_price=0">1200-500</a></td>
				<td align="middle" width="96" bgColor="#ffba8c">
				<a href="research.asp?pysjzx_type=lease&anclass=0&nclass=0&province=0&city=0&day_lease_price=4&month_lease_price=0">1500-1000</a></td>
				<td align="middle" width="83" bgColor="#ff9853">
				<a href="research.asp?pysjzx_type=lease&anclass=0&nclass=0&province=0&city=0&day_lease_price=5&month_lease_price=0">11000-2000</a></td>
				<td align="middle" width="76" bgColor="#ff7b24">
				<a href="research.asp?pysjzx_type=lease&anclass=0&nclass=0&province=0&city=0&day_lease_price=6&month_lease_price=0">120000以上</a></td>
			</tr>
		</table>
		<table cellSpacing="0" cellPadding="0" width="600" border="0">
			<tr>
				<td height="5"></td>
			</tr>
		</table>
		<table cellSpacing="1" cellPadding="0" width="600" bgColor="#e6e6e6" border="0">
			<tr>
				<td align="middle" bgColor="#eeeeee">
				<table cellSpacing="0" cellPadding="0" width="555" border="0">
					<tr>
						<td class="ourfont" width="452"><font color="#333333">租 
						赁 车 推 荐</font></td>
						<td class="ourfont" align="right" width="103">
						　</td>
					</tr>
				</table>
				</td>
			</tr>
			<tr>
				<td align="middle" bgColor="#ffffff" height="79">
				<%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top  12  *  from [lease]  where estate=1 and commend=1  order by adddate desc  ",conn,1,1
%>
				<table cellPadding="2" width="98%" border="0">
					<%
				j_1=int((rs.recordcount+1)/2)
			if j_1>6 then 
			j_1=6
			end if
			for j_count=1 to j_1%><tr>
						<td align="middle" width="51%">
					<%
			if  not rs.eof then%>
						<table class="ourfont1" cellSpacing="0" cellPadding="0" width="98%" border="0">
							<tr>
								<td align="middle" width="50%" rowSpan="4">
								<a   href="lease_list.asp?id=<%=rs("id")%>">
								<img height="81" src="<%=rs("pic")%>" width="124" border="1" style="border: 1px solid #000000"></a></td>
								<td>品牌：<%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from anclass where anclassid="&rs("anclass"),conn,1,1
									if rs2.recordcount>0 then
									response.write rs2("anclass")
									end if
									rs2.close
%>
</td>
							</tr>
							<tr>
								<td height=15>型号：<a   href="lease_list.asp?id=<%=rs("id")%>"><%=rs("model")%></a> </td>
							</tr>
							<tr>
								<td height=15>日租价：<%
				if rs("day_lease_price") <> 0 then
				response.write rs("day_lease_price")
				else
				response.write "面议"
				end if
				%></td>
							</tr>
							<tr>
								<td height=15>月租价：<%
				if rs("month_lease_price") <> 0 then
				response.write rs("month_lease_price")
				else
				response.write "面议"
				end if
				%></td>
							</tr>
							</table>
						<%
						rs.movenext
						end if%>
						</td>
						<td align="middle" width="49%">
						<%if  not rs.eof then%>
						<table class="ourfont1" cellSpacing="0" cellPadding="0" width="98%" border="0">
							<tr>
								<td align="middle" width="50%" rowSpan="4">
								<a   href="lease_list.asp?id=<%=rs("id")%>">
								<img height="81" src="<%=rs("pic")%>" width="124" border="1" style="border: 1px solid #000000"></a></td>
								<td>品牌：<%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from anclass where anclassid="&rs("anclass"),conn,1,1
									if rs2.recordcount>0 then
									response.write rs2("anclass")
									end if
									rs2.close
%></td>
							</tr>
							<tr>
								<td height=15>型号：<a   href="lease_list.asp?id=<%=rs("id")%>"><%=rs("model")%></a> </td>
							</tr>
							<tr>
								<td height=15>日租价：<%
				if rs("day_lease_price") <> 0 then
				response.write rs("day_lease_price")
				else
				response.write "面议"
				end if
				%></td>
							</tr>
							<tr>
								<td height=15>月租价：<%
				if rs("month_lease_price") <> 0 then
				response.write rs("month_lease_price")
				else
				response.write "面议"
				end if
				%></td>
							</tr>
							</table>
						<%
						rs.movenext
						end if
						next
						
						%>

						</td>
					</tr>
					</table>
				</td>
			</tr>
		</table>
		<table cellSpacing="0" cellPadding="0" width="570" border="0">
			<tr>
				<td height="5"></td>
			</tr>
		</table>
		<table cellSpacing="0" cellPadding="0" width="570" border="0">
			<tr>
				<td height="5"></td>
			</tr>
		</table>
				<table border="0" width="100%" cellspacing="0" >
					<tr>
						<td ><table border="0" width="100%" cellspacing="0">
							<tr>
								<td style="font-size: 12px; color: #000000; padding-top: 2px; padding-bottom: 2px" bgcolor="#DADADA" >　
								二<span lang="en-us"> </span>手<span lang="en-us">
								</span>车</td>
								<td style=" font-size: 12px; color: #000000; padding-top: 2px; padding-bottom: 2px" width="65" bgcolor="#DADADA" >
								　</td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				<%set rs=server.CreateObject("adodb.recordset")
		 	rs.open "select * from [lease] where estate=1 order by adddate desc ",conn,1,1
		if rs.recordcount=0 then 

		else
	  		rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
		%>

		<table cellSpacing="1" cellPadding="0" width="100%" border="0">
			<tr align="middle">
							<td  bgColor="#EFEFEF" height="19">地区</td>
				<td  bgColor="#EFEFEF" height="19">品 牌</td>

				<td width="196" bgColor="#EFEFEF">型 号</td>
				<td width="77" bgColor="#EFEFEF">日租价(<span lang="zh-cn">元</span>)</td>
				<td width="78" bgColor="#EFEFEF">月租价<span lang="en-us">(</span>元<span lang="en-us">)</span></td>
				<td width="66" bgColor="#EFEFEF">发布日期</td>
			</tr><%		   do while not rs.eof 
			if rs("attop")=1 then
color="<font color='#FF0000'>"
elseif rs("attop")=2 then
color="<font color='#008080'>"
else
color="<font color='#000000'>"
end if
%>
			<tr  bgColor="#efefef" onmouseout="mOut(this,'#efefef');" onmouseover="mOvr(this,'#FFD28E');">
						<td vAlign="center" align="middle" height="19" width="99"><%=color%><%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from province where shengNo="&rs("province"),conn,1,1
									if rs2.recordcount>0 then
									response.write rs2("shengname")
									shengid=rs2("id")
									else
									response.write "不限地区"
									end if
									rs2.close
									%>
									<%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from city where shengid="&shengid&" and shiNo="&rs("city")&"",conn,1,1
									if rs2.recordcount>0 then
									response.write "-"&rs2("shiname")
									end if
									rs2.close
									%></td>
				<td vAlign="center" align="middle"  height="19" width="74">
				<p align="center"><%=color%><%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from anclass where anclassid="&rs("anclass"),conn,1,1
									if rs2.recordcount>0 then
									response.write rs2("anclass")
									end if
									rs2.close
									%>
									</td>
	
				<td align="left"  height="19">
										<a   href="lease_list.asp?id=<%=rs("id")%>">
										<p align="center">
										<%=color%>
				<%=rs("model")%></font></font></a><font color="#FF0000"> 
				</td>
				<td  align="middle" width="77" >
				<%=color%>
				<%
				if rs("day_lease_price") <> 0 then
				response.write rs("day_lease_price")
				else
				response.write "面议"
				end if
				%></td>
				<td align="middle" width="78"  height="19">
				<%=color%>
				<%
				if rs("month_lease_price") <> 0 then
				response.write rs("month_lease_price")
				else
				response.write "面议"
				end if
				%>
			</td>
				<td align="middle" width="66" height="19"><%=color%>
				<%if rs("attop")=1 then%>
				<%=right("0"&month(rs("topadddate")),2)%>-<%=right("0"&day(rs("topadddate")),2)%>
				<%elseif rs("attop")=2 then%>
				<%else%>
	<%=right("0"&month(rs("adddate")),2)%>-<%=right("0"&day(rs("adddate")),2)%>
	<%end if%>
</font></font>
</td>
			</tr>	<%
					 rs.movenext
      

  loop

rs.close

					%>
			</table>
		<table border="0" width="100%" cellspacing="0">
			<tr>
				<td>				<%	call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
				end if

		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then     
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)    
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)  
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "条信息" &  vbCrLf)
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%></td></tr>
		</table>
		</td>
		<td vAlign="top" align="right" width="4">
</td>

<td vAlign="top" align="right" width="182" style="border: 1px solid #C0C0C0" >
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
	<tr>
		<td height=2></td>
	</tr>
</table>
<table cellSpacing="0" cellPadding="0" width="98%" border="0">
									<tr>
										<td class="sy-6" width="100%" bgColor="#C0C0C0" height="21">
										&nbsp;<%
      set rs2=server.createobject("adodb.recordset")
		rs2.Open "select * from newsclass where classorder=8",conn,1,1
       if rs2.eof then
       response.write "该类已删除"
       else
       classid=rs2("id")
       response.write "<a href=news.asp?class="&rs2("id")&">"&rs2("class")&"</a>"
       end if
  %></td>
									</tr>
									<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select top 10  * from news where class="&classid&"  order by adddate desc ",conn,1,1
pysjzx_i=1
do while not rs.eof
%>
									
									<tr>
										<td  height="20">
										<a target="_blank" href="news_list.asp?id=<%=rs("newsid")%>"><%=left(rs("newsname"),14)%></a>
										</td>
									</tr>
									<%rs.movenext
									pysjzx_i=pysjzx_i+1
									if pysjzx_i >=11 then exit do
									loop%>
								</table>
		</div>
		</td>
	</tr>
</table>
</div>
<!--#include file="webfoot.asp"-->
