<!--#include file="cookies.asp"-->
<!--#include file="pysjzx_conn.asp"-->
<!--#include file="../webconfig.asp"-->
<%dim selectm,selectkey,selectid
selectkey=trim(request(trim("selectkey")))
selectm=trim(request("selectm"))
		  action=request.QueryString("action")

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

'//已阅
pass=request("pass")
if pass<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  estate from order where username ='"&username&"' and id="&pass
rs.open sql,conn,1,3
rs("estate")=1
rs.update
response.Redirect "manageorder.asp?action=all"
end if
'//未阅
wait=request("wait")
if wait<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select estate from order where username ='"&username&"' and id="&wait
rs.open sql,conn,1,3
rs("estate")=0
rs.update
response.Redirect "manageorder.asp?action=all"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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"-->
<div align="center">
	<table border="0" width="780" cellpadding="0" cellspacing="0">
		<tr>
			<td width="200" valign="top" style="border: 1px solid #C0C0C0" ><!--#include file="memu.asp"--></td>			
			<td width="600" valign="top">
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<form name="form1" method="post" action="">
 <td  height="100">
 <div align="right">
 <table cellSpacing="1" cellPadding="3" width="99%" border="1" id="table9" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr> 
<td colspan="6" bgcolor="#E8F1FF"  >
<p align="center"><b>预约留言</b></td>
</tr>
<tr > 
 <td class="forumRowHighlight"  width="7%" align="center" bgcolor="#F7F7F7">序号</td>
 <td class="forumRowHighlight"  width="32%" align="center" bgcolor="#F7F7F7">车型</td>
  <td class="forumRowHighlight"  width="10%" align="center" bgcolor="#F7F7F7">姓名</td>
 <td class="forumRowHighlight"  width="20%" align="center" bgcolor="#F7F7F7">加入时间</td>
 <td class="forumRowHighlight"  width="16%" align="center" bgcolor="#F7F7F7">操作</td>
 
 <td class="forumRowHighlight"  width="8%" align="center" bgcolor="#F7F7F7">选 择</td>
</tr>
 <%'
				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")
			 	rs.open "select * from [order]  where username ='"&username&"' order by adddate desc ",conn,1,1		
  				if rs.eof and rs.bof then
       		%>
<tr > 
 <td class="forumRowHighlight"  align="center" colspan="6" bgcolor="#F7F7F7">没有信息</a></td>
 </tr>

       		<%
       		response.write "</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,"manageteacher.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"manageteacher.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"manageteacher.asp"
	      				end if
	   				end if
   				   	end if

   				sub showContent
       				dim i
	   			i=0%>


<%do while not rs.eof%>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"><a href="order.asp?id=<%=rs("id")%>" ><%=rs("id")%></a></td>
 <td class="forumRowHighlight"   bgcolor="#F7F7F7" align="center"><a href="../price_list.asp?id=<%=rs("priceid")%>" target=_blank>
 <%set rs2=server.CreateObject("adodb.recordset")
		   rs2.open "select  *  from [price]  where id="&rs("priceid")&" order by adddate desc  ",conn,1,1
 response.write rs2("model")
 rs2.close
 set rs2=nothing
  %>
</a></td>
	<td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
 <a href=order.asp?id=<%=rs("id")%>><%=rs("name")%></a>

</td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7"><%=rs("adddate")%></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
   <% if rs("estate")=1 then
 %>
<font color="#FF0000">已阅</font>&nbsp;<a href="manageorder.asp?wait=<%=rs("id")%>">未阅</a>&nbsp;
 <%
 end if
 if rs("estate")=0 then
%>
<a href="manageorder.asp?pass=<%=rs("id")%>">已阅</a>&nbsp;<font color="#FF0000">未阅</font>&nbsp;
<%
 end if
%></td>

 <td class="forumRowHighlight"  align="center" bgcolor="#F7F7F7">
<input name="selectid" type="checkbox" id="selectid" value="<%=rs("id")%>" class="input1">
</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="6" align="right" bgcolor="#F7F7F7">全选 
<input type="checkbox" name="checkbox" value="Check All" onClick="mm()" class="input1">
<input type="submit" name="Submit" class=go-wenbenkuang value="删 除" onClick="return test();">
&nbsp;</td>
</tr>
</table>
				</div>
				</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  
			%>

</td>
</form>
</tr>
</table>



			</td>
		</tr>
	</table>
</div>
<!--#include file=webfoot.asp-->
<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> 
  
