📄 manage_cars_zl.asp

📁 汽车销售集团网站汽车销售集团网站汽车销售集团网站汽车销售集团网站
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=../DataBase/conn.asp-->

<%
if session("admin_name")="" then
response.Redirect("login.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>租赁车辆信息管理</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style2 {color: #FF0000}
.style3 {	font-size: 14px;
	font-weight: bold;
}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #666666;
}
a:active {
	text-decoration: none;
	color: #666666;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>

<body>
<table width="230"  border="0" align="center">
  <tr>
    <td><div align="center" class="style3">租赁车辆信息管理</div></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>
      <form name="form1" method="post" action="">
        <table width="530"  border="0" align="center">
          <tr>
            <td width="401">关键字：
                <input name="search" type="text" id="search">
                <input type="submit" name="Submit" value="查询">
				<% If request("search")<>"" Then %>
                <input name="Submit2" type="button" onClick="MM_goToURL('self','Manage_Cars_zl.asp');return document.MM_returnValue" value="返回">
				<% End If %>

			</td>
            <td width="119" align="right"><a href="javascript:" onClick="window.open('Manage_Cars_zladd.asp','','width=500,height=560')">添加车辆信息</a></td>
          </tr>
        </table>
      </form>
      <table width="530"  border="0" align="center" cellspacing="1">
        <tr bgcolor="#595859" class="css">
          <td width="148" height="23"><div align="center" class="style1"></div>            
          <div align="center" class="style1">名称</div></td>
          <td width="127"><div align="center" class="style1">价格</div></td>
          <td width="135"><div align="center" class="style1">费用项目</div></td>
          <td width="107"><div align="center" class="style1">操作</div></td>
        </tr>
        <tr class="css">
          <td bgcolor="#FFFFFF" colspan="4">
            <%
			if request("del")<>"" then
			sql1="delete from tb_Cars_zl where id="&request("del")
			conn.execute(sql1)
			end if
            shum=30
			
		if request("search")<>"" then
		set rs=server.CreateObject("ADODB.Recordset")
        sql="Select * from tb_Cars_zl where name like '%"&request("search")&"%' order by id desc" 
        rs.open sql,conn,1,1
		else
        set rs=server.CreateObject("ADODB.Recordset")
        sql="Select * from tb_Cars_zl order by id desc" 
        rs.open sql,conn,1,1
		end if
		
	   if not rs.eof then 
           tel=rs.recordcount
           rs.pagesize=shum
           maxpage=rs.pagecount
           requestpage=clng(request("p"))
           if requestpage="" or requestpage=0 then 
           	requestpage=1
           end if 
           if requestpage>maxpage then 
           	requestpage=maxpage
           end if 
           if not requestpage=1 then 
           	rs.move (requestpage-1)*rs.pagesize
           end if 
           for i=1 to rs.pagesize and not rs.eof
		   %>
            <table width="100%"  border="0" cellspacing="0">
              <tr>
                <td width="29%"><div align="center" class="css"></div>                  <div align="center" class="css"><%=rs("name")%></div></td>
                <td width="24%"><div align="center" class="css"><%=rs("price")%></div></td>
                <td width="26%"><div align="center" class="css"><%=rs("feiyong")%></div></td>
                <td width="11%"><div align="center"><a href="javascript:" onClick="window.open('Manage_Cars_zladd.asp?id=<%=rs("id")%>','','width=500,height=560')">修改</a> </div></td>
                <td width="10%"><div align="center"><a href="Manage_Cars_zl.asp?del=<%=rs("id")%>&p=<%=requestpage%>" onClick="return confirm('你真的删除吗？')">删除</a></div></td>
              </tr>
            </table>
            <%
    		Rs.MoveNext
        	if rs.eof then exit for
        	next
			Rs.Close
        	Set Rs=Nothing
    	else
        response.Write("暂无车辆信息")
		end if
    	%>
          </td>
        </tr>
        <tr bgcolor="#F0F0F0">
          <td height="24" colspan="4">
            <div align="right"><span class="css">共<%= maxpage %>页 当前页：<%= requestpage %><%if request("search")<>"" then%><a href="Manage_Cars_zl.asp?p=<%=requestpage-1%>&search=<%=request("search")%>">上一页</a> <a href=Manage_Cars_zl.asp?p=<%=requestpage+1%>&search=<%=request("search")%>>下一页</a></span> </div>
			<% Else %>
            <a href="Manage_Cars_zl.asp?p=<%=requestpage-1%>">上一页</a> <a href=Manage_Cars_zl.asp?p=<%=requestpage+1%>>下一页</a></span>
			<% End If %>

		  </td>
        </tr>
      </table>
 </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -