new_order.asp
来自「非常有商业价值的软件」· ASP 代码 · 共 131 行
ASP
131 行
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<!--#include file="../my_lib/pages.asp"-->
<html>
<head>
<title>最新订单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
function confirmdel(ddbh,page){
if (confirm("真的要删除这个订单?"))
window.location.href="del.asp?cartbh="+ddbh+"&page="+page
}
</script>
<LINK href="style.css" rel=stylesheet type=text/css>
</head>
<body text="#000000">
<%
Dim go
go = "尚未处理"
If (Request.QueryString("zt") <> "") Then
go = Request.QueryString("zt")
End If
%>
<div align="center">
<table width="760" cellspacing="1">
<tr>
<td height="20" colspan="10" align="center" nowrap><a href="new_order.asp?zt=<%=server.URLEncode("尚未处理")%>">最新订单</a>
--- <a href="new_order.asp?zt=<%=server.URLEncode("等待货款")%>">等款订单</a>--- <a href="new_order.asp?zt=<%=server.URLEncode("已经发货")%>">已发订单</a></td>
</tr>
<tr valign="middle">
<td width="31" height="25" align="center" nowrap bgcolor="#EFEFEF">ID</td>
<td width="132" height="25" align="center" nowrap bgcolor="#EFEFEF">订单编号</td>
<td width="90" height="25" align="center" nowrap bgcolor="#EFEFEF">会员名称</td>
<td height="25" align="center" nowrap bgcolor="#EFEFEF" width="130">提交日期</td>
<td height="25" align="center" nowrap bgcolor="#EFEFEF" width="72">付款方式</td>
<td height="25" align="center" nowrap bgcolor="#EFEFEF" width="73">送货方式</td>
<td height="25" align="center" nowrap bgcolor="#EFEFEF" width="38">发票</td>
<td height="25" align="center" nowrap bgcolor="#EFEFEF" width="74">总计金额</td>
<td width="60" height="25" align="center" nowrap bgcolor="#EFEFEF">订单状态</td>
<td width="40" height="25" align="center" nowrap bgcolor="#EFEFEF">删除</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from buyer Where zt = '" + Replace(go, "'", "''") + "' order by addtime desc"
rs.open sqltext,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr>"
response.write "<td width=500 colspan=4><font color=#FF0000>没有相应的数据</font></td>"
response.write "</tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set ddbh=rs("ddbh")
set addtime=rs("addtime")
set yqj_invoice=rs("yqj_invoice")
set paymode=rs("paymode")
set songhuo=rs("songhuo")
set yqj_money=rs("yqj_money")
set userid=rs("userid")
set zt=rs("zt")
%>
<tr valign="middle">
<td width="31" height="25" align="center" bgcolor="#FFFFFF"><%=(page-1)*19+ii%></td>
<td width="132" height="25" align="left" bgcolor="#FFFFFF"><%response.write "<a href='list_more.asp?id="&id&"&page="&Page&"'>"&ddbh&"</a>"%></td>
<td width="90" height="25" bgcolor="#FFFFFF"> <%response.write "<a href='member_list.asp?userid="&userid&"'>"&userid&"</a>"%></td>
<td height="25" align="center" bgcolor="#FFFFFF" width="130">
<p align="left"><%=addtime%></td>
<td height="25" align="center" bgcolor="#FFFFFF" width="72"><%=paymode%></td>
<td height="25" align="center" bgcolor="#FFFFFF" width="73"><%=songhuo%></td>
<td height="25" align="center" bgcolor="#FFFFFF" width="38"><%if yqj_invoice=0 then
response.write "不要"
elseif yqj_invoice=1 then
response.write "<font color=#FF0000>要</font>"
else
response.write "UN"
end if%></td>
<td height="25" align="left" bgcolor="#FFFFFF" width="74" title="包括商品费用和附加费用">￥<%=yqj_money%>元</td>
<td width="60" height="25" align="center" bgcolor="#FFFFFF"><font color="#FF6600"><%=zt%></font></td>
<td width="40" height="25" align="center" bgcolor="#FFFFFF">
<a href=del.asp?id=<%=ddbh%>&page=<%=Page%>>[删除]</a></td>
</tr>
<%
rs.movenext
ii=ii+1
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</div>
<div align="center">
<table width="760" height="25" cellPadding="0" cellSpacing="0" bgColor="#EFEFEF"><tr>
<td align="center" bgcolor="#EFEFEF"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=center>")%></td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?