<!-- #include file="conn.asp"-->
<!--#include file="checkUser_free.asp"-->
<html>
<head>
<%
dim key
if trim(Request.QueryString("key"))<>"" then
key=trim(Request.QueryString("key"))
end if
%>
<title>车辆管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0" leftmargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F6F6EC">
  <tr> 
    <td height="18"> <table width="100%"border=0 cellPadding=0 cellSpacing=1 bordercolor="#666666" borderColorLight="#666666" borderColorDark=#ffffff bgcolor="#CCCCCC">
      <tr> 
          
        <td height="30" bgcolor="#FFFFFF"><strong>&gt;&gt;&gt; 管理选项：出租车辆管理&gt;&gt;&gt;</strong></td>
          
        <td height="30" bgcolor="#FFFFFF"><a href="uesr_car.asp">添加新信息</a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td width="96%" height="418" valign="top"> <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
      <tr> 
          <td> 
<table width='100%' border='0' cellspacing='0' cellpadding='5'>
<%
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown  
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if

if key<>"" then
sql = "SELECT * FROM produce where name like '%"&key&"%' ORDER BY id DESC" 
else
sql = "SELECT * FROM produce where memberid='"& request.cookies("memberid") &"' ORDER BY id DESC" 
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 20
rs.cachesize = 20
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>现无产品</tr></td>" 
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<20 and NOT rs.EOF %>
<tr align='center'>
<%
for i=1 to 5
%>
<td width='20%'>
<%
if not rs.eof then
%>
<table align=center bgcolor='#e9e9e9' border=0 cellpadding=5 cellspacing=0><tbody>
                  
                    <td><a href='../Taxi_list.asp?id=<%=rs("id")%>' target='_blank'><img src='../<%=rs("smallimg")%>' width="80" height="60" border='0' class='bk'></a></td>
                    </table><br>
                <a href='../Taxi_list.asp?id=<%=rs("id")%>' target='_blank'><%=rs("name")%></a> 
                [<a href='zl_addfile.asp?id=<%=rs("id")%>&cz=editfile'>编辑</a>]</td>
<%
irecordsshown = irecordsshown +1
rs.movenext 
end if
next
%>
</tr>
<%
loop
end if
rs.Close
set rs=nothing
%>
</table>
<table width='100%' border='0' cellspacing='0' cellpadding='5' class='s'><form name='form1' method='get' action='adminfile.asp'><tr>
              <td height='20' align='center'>每页显示 20 个车辆 共有 <%=ipagecount%> 页 
                当前为第 <%=ipagecurrent%> 页 
                <%
if ipagecurrent=1 then
Response.Write"首页 | "
else
Response.Write"<a href='adminfile.asp?key="&key&"&page=1'>首页</a> | "
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='adminfile.asp?key="&key&"&page="&ipagecurrent-1&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='adminfile.asp?key="&key&"&page="&ipagecurrent+1&"'>下一页</a> "
else
Response.Write"下一页" 
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='adminfile.asp?key="&key&"&page="&ipagecount&"'>末页</a> "
else
Response.Write"| 末页 "
end if
Response.Write"| 搜索文件：<input type='text' name='key' size='15' class='an'> <input type='submit' name='Submit' value='确定' class='an'></td></tr></form></table>"
%>
              </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td>　</td>
  </tr>
  <tr> 
    <td width="24" bgcolor="#748C46"></td>
  </tr>
</table>
</body>
</html>