www.gusucode.com > 盐城分类信息网asp源码程序 > admin/admin_dd.asp

    <!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<meta http-equiv="Content-Language" content="zh-cn">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<p align="center"><a href="admin_dd.asp">查找全部定单</a>&nbsp;&nbsp;
<a href="admin_dd.asp?cnmai=2">未处理定单</a>&nbsp;&nbsp;
<a href="admin_dd.asp?cnmai=1">已处理定单</a></p>
<FORM name=thisForm action="" method=POST>
<%
dim rs,sql,k,cnmai
k=0
cnmai=request("cnmai")
set rs=server.createobject("adodb.recordset")
Select Case cnmai
Case "1"
sql = "select * from dingdan where admincl=1 order by id desc"
Case "2"
sql = "select * from dingdan where admincl=0 order by id desc"
Case Else
sql = "select * from dingdan order by id desc"
End Select
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有定单！"
response.end
end if
%>
<div align="center">
  <center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#808000" width="84%" height="50">
  <tr>
    <td width="7%" height="24" align="center" bgcolor="#FFAB2D">编号</td>
    <td width="15%" height="24" align="center" bgcolor="#FFAB2D">用户名</td>
    <td width="13%" height="24" align="center" bgcolor="#FFAB2D">支付方式</td>
    <td width="14%" height="24" align="center" bgcolor="#FFAB2D">定单号码</td>
    <td width="14%" height="24" align="center" bgcolor="#FFAB2D">支付现金</td>
    <td width="9%" height="24" align="center" bgcolor="#FFAB2D">状态</td>
    <td width="16%" height="24" align="center" bgcolor="#FFAB2D">时间</td>
    <td width="8%" height="24" align="center" bgcolor="#FFAB2D">删除</td>
    <td width="32%" height="24" align="center" bgcolor="#FFAB2D">选择</td>
  </tr>
<%
dim uid
do while not rs.eof
uid=rs("id")
%>
  <tr>
    <td width="7%" height="24" align="center" >　<%=k+1%></td>
    <td width="15%" height="24" align="center" ><a href=userlist.asp?T1=<%=rs("username")%>&cnmai=1>
    <font color="#FF0000"><%=rs("username")%></font></a></td>
    <td width="13%" height="24" align="center" >
    <%
if rs("zffs")=1 then
  response.write "在线支付"
elseif rs("zffs")=2 then
  response.write "手机支付"
elseif rs("zffs")=3 then
  response.write "电子汇款"
end if
    %>
    </td>
    <td width="14%" height="24" align="center" ><%=rs("ddhm")%></td>
    <td width="14%" height="24" align="center" ><font color="#0000FF"><%=rs("cash")%></font>元</td>
    <td width="9%" height="24" align="center" ><%if rs("admincl")=1 then%><font color="#008000">√</font><%else%><font color="#FF0000">ⅹ</font><%end if%><%if rs("admincl")=0 then%><a href="dd_yz.asp?selectedid=<%=uid%>">通过</a><%end if%></td>
    <td width="16%" height="24" align="center" ><%=rs("data")%></td>
    <td width="8%" height="24" align="center" >
    <a href="dd_del.asp?selectedid=<%=uid%>">删除</a></td>
    <td width="32%" height="24" align="center" >
    <INPUT type=checkbox value="<%=uid%>" name=selectedid></td>
  </tr>
<%
rs.movenext
k=k+1
loop
rs.close
set rs=nothing
closedb
%>
  <tr>
    <td width="200%" height="24" align="center" style="border-top-style: solid; border-top-width: 1" colspan="9">　</td>
    </tr>
</table></center>
</div>
</form>