⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 manage_cars_dd.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}
.style3 {font-size: 14px;
	font-weight: bold;
}
body,td,th {
	font-size: 12px;
}
-->
</style>
<link href="../css/mangage.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style5 {color: #990000}
-->
</style>
</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="orderform" method="post" action="">
        <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
          <tr>
            <td bgcolor="#FFFFFF"><table width="530"  border="0" align="center">
              <tr>
                <td><input name="search" type="checkbox" id="search2" value="true">
      关键字:
        <input name="title" type="text" id="title" value="<%=request("title")%>" size="25">
        <select name="type" id="select">
          <option value="Name">订购车型</option>
          <option value="Linkman">订购用户</option>
        </select>
        <input type="submit" name="Submit" value=" 查 询 ">
        <% If request("search")<>"" or request("search1")<>"" Then %>
        <input name="Submit2" type="button" onClick="location='Manage_Cars_dd.asp'" value="返回查询">
        <% End If %>
        <div align="right"></div></td>
              </tr>
              <tr>
                <td><input name="search1" type="checkbox" id="search1" value="true">
      分 类:
        <select name="fenlei" id="fenlei" >
          <option value="授理" <%if request("shou")="授理" then%> selected<%end if%>>授理</option>
          <option value="未授理" <%if request("shou")="未授理" then%> selected<%end if%>>未授理</option>
        </select>
                </td>
              </tr>
            </table></td>
          </tr>
        </table>
      </form>
      <table width="530"  border="0" align="center" cellspacing="1">
        <tr bgcolor="#595859" class="css">
          <td width="42" height="23"><div align="center" class="style1">状态</div>          </td>
          <td width="62"><div align="center"><span class="style1">订购车型</span></div></td>
          <td width="87"><div align="center"><span class="style1"> 订购时间 </span></div></td>
          <td width="108"><div align="center" class="style1"> 订购用户</div></td>
          <td width="93"><div align="center" class="style1">联系电话</div></td>
          <td width="119"><div align="center" class="style1">操作</div></td>
        </tr>
        <tr class="css">
          <td bgcolor="#FFFFFF" colspan="6">
            <%
			if request("del")<>"" then
			sql1="delete from tb_dd where id="&request("del")
			conn.execute(sql1)
			end if
            shum=30
			
		if request("search")<>"" and request("search1")="" then '选择search为条件时获取记录集
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from tb_dd where "&request("type")&" like '%"&request("title")&"%'"
			rs.open sql,conn,1,1
		
		elseif request("search")<>"" and request("search1")<>"" then '选择两个条件时取得记录集
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from tb_dd where "&request("type")&" like '%"&request("title")&"%' and Whether='"&request("fenlei")&"'"
			rs.open sql,conn,1,1

		elseif request("search1")<>"" and request("serach")="" then '选择search1为条件时获取记录集
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from tb_dd where Whether='"&request("fenlei")&"'"
			rs.open sql,conn,1,1
			'没有选择任何条件时取得记录集
		else
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from tb_dd "
			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="8%"><div align="center" class="css"></div>
                    <div align="center" class="css"><%if rs("Whether")="授理" then%>
                      <span class="style5">●</span>
                      <%else%>
                      <span class="style5">○</span>
                      <%end if%>
                    </div></td>
                <td width="11%"><%=rs("name")%></td>
                <td width="18%"><div align="center"><%=rs("IssueDate")%></div></td>
                <td width="21%"><div align="center" class="css"><%=rs("Linkman")%></div></td>
                <td width="20%"><div align="center" class="css"><%=rs("Phone")%></div></td>
                <td width="12%"><div align="center"><a href="javascript:" onClick="javascript:window.open('Manage_Cars_ddopen.asp?id=<%=rs("id")%>','','width=500,height=550,toolbar=no,location=no,status=no,menubar=no')">详细</a> </div></td>
                <td width="10%"><div align="center"><a href="Manage_Cars_dd.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="6">
            <div align="right"><span class="css">共<%= maxpage %>页 当前页:<%= requestpage %>
                  <%if request("search")<>"" and request("search1")="" then%>
                  <a href="Manage_Cars_dd.asp?p=<%=requestpage-1%>&search=true&type=<%=request("type")%>&title=<%=request("title")%>">上一页</a> <a href=Manage_Cars_dd.asp?p=<%=requestpage+1%>&search=true&type=<%=request("type")%>&title=<%=request("title")%>>下一页</a></span> </div>
            <%elseif request("search")<>"" and request("search1")<>"" then%>
            <a href="Manage_Cars_dd.asp?p=<%=requestpage-1%>&search=true&search1=true&type=<%=request("type")%>&title=<%=request("title")%>&fenlei=<%=request("fenlei")%>">上一页</a> <a href=Manage_Cars_dd.asp?p=<%=requestpage+1%>&search=true&search1=true&type=<%=request("type")%>&title=<%=request("title")%>&fenlei=<%=request("fenlei")%>>下一页</a>
            <% elseif request("search1")<>"" and request("serach")="" then %>
            <span class="css"><a href="Manage_Cars_dd.asp?p=<%=requestpage-1%>&search1=true&fenlei=<%= request("fenlei") %>">上一页</a> <a href=Manage_Cars_dd.asp?p=<%=requestpage+1%>&search1=true&fenlei=<%= request("fenlei") %>>下一页</a></span>
            <% Else %>
            <span class="css"><a href="Manage_Cars_dd.asp?p=<%=requestpage-1%>">上一页</a> <a href=Manage_Cars_dd.asp?p=<%=requestpage+1%>>下一页</a></span><% End If %>
          </td>
        </tr>
    </table></td>
  </tr>
</table>
<div align="center"><span class="css">注意:<span class="style5">●</span></span>代表已经授理<span class="css">,<span class="style5">○</span></span>代表未授理<br>
</div>
</body>
</html>

⌨️ 快捷键说明

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