<!--#include file="../Inc/adminESCMS_conn.asp" -->
<!--#include file="../Inc/adminESCMS_config.asp" -->
<!--#include file="../Inc/adminES_Page.asp" -->
<!--#include file="check.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>栏目管理</title>
<link href="Images/admin.css" rel="stylesheet" type="text/css" />

<script LANGUAGE="VBSCRIPT"> 
Function DelOK(ID)
a=msgbox("你确认要删除此订单吗？",1,"确认删除")
if a=1 then
location="ES_Shop_View.asp?act=del&Shop_ID=" & ID
else 
location="ES_Shop_list.asp"
end if
End Function
</script>
</head>
<body>
<%

Dim Shop_Sql,Shop_rs,j
Call DBConnBegin() 
%>
<table width="750" border="1" cellpadding="2" cellspacing="0" bordercolor="#666666">
  <tr>
    <td height="24" colspan="5" align="center" background="Images/bg1.gif"><strong>订 单 管 理</strong></td>
    </tr>
  <tr>
    <td height="5" colspan="4" align="center">
	<%

	Sql="Select * from wyshop order by Shop_ID desc"

	'Response.Write sql
	'Response.End()
		oRs.PageSize = 10
		oRs.CursorLocation = 3
		oRs.open Sql,oConn,1,1
	call page1()
	%></td>
  </tr>
  <tr>
    <td width="513" height="24" align="center">订单列表</td>
    <td width="106" align="center">是否处理</td>
    <td width="106" align="center">查 看</td>
    <td width="111" align="center">删 除</td>
  </tr>

<%

for i=1 to oRs.PageSize
if oRs.Eof then exit for

%>
  <tr>
    <td width="513" height="24"><b>[<%Response.Write oRs("Shop_AutoID")%>]</b><%Response.Write oRs("Shop_Pro")%></td>
    <td width="106" align="center">
	<%
	if oRs("Shop_View")=0 then 
	Response.Write("<p style='color:#ff0000'><b>未处理</b></p>")
	Else
	Response.Write("已处理")
	End if
	%></td>
    <td width="106" align="center"><a href=ES_Shop_View.asp?ID=<%=oRs("Shop_ID")%>>查 看</a></td>
    <td width="111" align="center"><a onClick="DelOK(<%=oRs("Shop_ID")%>)" href="#">删 除</a></td>
  </tr>
<%
oRs.movenext
next

%>
  <tr>
    <td height="24" colspan="5" align="center">
	
	<%Call Page()%>	</td>
  </tr>
  <tr>
    <td height="24" colspan="5" align="center">&nbsp;</td>
    </tr>
</table>
<%Call DBConnEnd()%>
</body>
</html>
