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

📄 order1.asp

📁 是一套很好的数码购物系统
💻 ASP
字号:
🔍 
<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="../chopchar.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%call checkmanage("04")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
<script language=javascript>
<!--
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked; 
}
}
-->
</script>
</head>
<BODY background="../images/admin/back.gif">

<%
action = request("action")
if action="" then call order_index()
if action="list" then call Order()
if action="删除" then call orderdel()


sub order_index()
%>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=order1.asp method=post name=orderlist>
<tr><td colspan=7 class=td height=25>订单管理 &nbsp;</td></tr>
<%
ordersql=request.cookies("buyok")("ordersql")
if request("show")="yes" then
  response.cookies("buyok")("ordersql")=""
end if
pages = 20
set rs = server.createobject("adodb.recordset")
sql = "select a.ID,a.OrderNum,a.del,a.OrderSum,a.PayType,a.RecName,a.UserID,a.OrderTime,b.Status,b.StatusDefine from buyok_OrderList a,Order_type b where a.del=false and a.Status=b.Status "
if request("show")<>"yes" then sql=sql+ordersql 
sql= sql+" order by OrderTime desc"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<tr><td colspan=7 align=center height=50>暂时没有订单</td></tr>"
response.end 
rs.close
set rs=nothing
end if
totalrs=rs.RecordCount
rs.pageSize = pages
allPages = rs.pageCount
page = Request("page")
If not isNumeric(page) then page=1
if isEmpty(page) or int(page) <= 1 then
page = 1
elseif int(page) > allPages then
page = allPages 
end if
rs.AbsolutePage = page
%>
<tr>
<td align=center width=5%>选</td>
<td align=center width='15%'>订单号</td>
<td align=center width='15%'>金额</td>
<td align=center width='15%'>会员ID</td>
<td align=center width='12%'>收货人姓名</td>
<td align=center width='20%'>下单时间</td>
<td align=center width='18%'>订单状态</td>
</tr>
<%
Do While Not rs.eof and pages>0
response.write "<tr><td><input type='checkbox' value='"&rs("ID")&"' name=id></td>"
response.write "<td align=center><a alt='查看/编辑订单' href=""order1.asp?action=list&ID="&rs("OrderNum")&""">"&rs("OrderNum")&"</a></td><td align=right>"&formatnum(csng(rs("OrderSum")),2)&"&nbsp;</td><td>"
response.write "<a alt='查看会员资料' href='user1.asp?action=useredit&id="&rs("userid")&"'>"&rs("userid")&"</a></td><td>"&rs("RecName")&"</td><td >"&rs("OrderTime")&"</td><td align=center>"

if rs("Status")="0" then
response.write "<font color=red>"&rs("StatusDefine")&"</font>"
elseif rs("Status")="99" then 
response.write "<font color=blue>"&rs("StatusDefine")&"</font>"
elseif rs("Status")="88" then 
response.write "<font color=blue>"&rs("StatusDefine")&"</font>"
else
response.write "<font color=darkgray>"&rs("StatusDefine")&"</font>"
end if
response.write "</td></tr>"

pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
%>	
<tr><td colspan=7>
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>
<input type="submit" name="action" value="删除" onclick="{if(confirm('提示：您确实删除所选定的订单吗？')){this.document.orderlist.submit();return true;}return false;}"> 	
</td></tr>
</form>
</table>
<%
rs.close
set rs=nothing
'if allpages<=1 then exit sub
response.write "<br>总订单数<font color=red>"&totalrs&"</font> &nbsp; 每页<font color=red>"& msg_per_page &"</font>&nbsp; "
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href=order1.asp?keywords="&keywords&"&page=1>首页</a> <a href=order1.asp?keywords="&keywords&"&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href=order1.asp?keywords="&keywords&"&page="&page+1&">下页</a> <a href=order1.asp?keywords="&keywords&"&page="&allpages&">末页</a>"
end if
response.write " &nbsp;&nbsp;&nbsp;第"&page&"页 共"&allpages&"页"

end sub


sub Order()
OrderNum=request("ID")
if request.form("edit")="ok" then
	set rs=Server.Createobject("ADODB.RecordSet")
	sql="select * from buyok_OrderList where OrderNum='"&OrderNum&"'"
	rs.Open sql,conn,1,3
'	if trim(request("RecName"))    <>"" then rs("RecName")      = trim(request("RecName"))
'	if trim(request("RecPhone"))   <>"" then rs("RecPhone")     = trim(request("RecPhone"))
'	if trim(request("CompPhone"))  <>"" then rs("CompPhone")    = trim(request("CompPhone"))
	rs("LastModifytime")                                        = now()
'	if trim(request("Recmail"))    <>"" then rs("Recmail")      = trim(request("Recmail"))
'	if trim(request("RecAddress")) <>"" then rs("RecAddress")   = trim(request("RecAddress"))
'	if trim(request("Zipcode"))    <>"" then rs("Zipcode")      = trim(request("Zipcode"))
'	if trim(request("Notes"))      <>"" then rs("Notes")        = trim(request("Notes"))
	if trim(request("Memo"))       <>"" then rs("Memo")         = trim(request("Memo"))
	if trim(request("Status"))     <>"" then rs("Status")       = trim(request("Status"))

	if request("Status")="99" then
	conn.execute("update buyok_user set totalsum= totalsum+"&rs("ordersum")&" where userid='"&request("userid")&"'")
	end if

	rs.update
	rs.close
	set rs=nothing

	response.write "<script language='javascript'>"
	response.write "alert('操作成功，您已经修改一个订单。');"
	response.write "location.href='order1.asp?action=list&id="&request("ID")&"';"
	response.write "</script>"
	response.end
end if

set rs=conn.execute("select A.ordertime,b.ordersum,A.Userid,A.OrderNum,A.PEI,A.FEI,A.ProdId,A.BuyPrice,A.ProdUnit,B.thiskou,B.Memo,B.Status,B.Recname,B.RecPhone,B.Recmail,B.RecAddress,B.Zipcode,B.Paytype,B.Notes,B.Compphone,B.gettime,C.ProdName from buyok_Order A,buyok_OrderList B,buyok_produc C where A.OrderNum='"&OrderNum&"' and A.OrderNum = B.OrderNum and A.ProdId=C.Prodid")

if rs.eof and rs.bof  then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，没有此订单。');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
end if
%>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=order1.asp?action=list method=post name=orderedit>
<tr><td colspan=2 class=td height=25>查看/编辑订单资料 &nbsp;</td></tr>
	<INPUT TYPE="hidden" name=edit value=ok>
	<INPUT TYPE="hidden" name=Id value=<%=rs("OrderNum")%>>	
	<tr><td align='right' width=20%>提交时间：</td><td><input type="text" name="" value="<%=rs("Ordertime")%>" style="overflow:auto;width=80%" readonly></td></tr>
	<tr><td align='right'>订 单 号：</td><td><input type="text" name="" value="<%=rs("OrderNum")%>" style="overflow:auto;width=80%" readonly></td></tr>
	<tr><td align='right'>订单金额：</td><td><input type="text" name="ordersum" value="<%=formatnumber(rs("Ordersum"),2)%>" style="overflow:auto;width=80%" readonly></td></tr>
	<tr><td align='right'>会员ID：</td><td><input type="text" name="userid" value="<%=rs("userid")%>" style="overflow:auto;width=80%" readonly></td></tr>
	<tr><td align='right'>配送方式：</td><td><input alt=顾客选择的配送方式 type="text" name="post" value="<%=rs("pei")%>" readonly style="overflow:auto;width=80%"></td></tr>	
	<tr><td align='right'>收货姓名：</td><td><input type="text" name="Recname" value="<%=rs("Recname")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
	<tr><td align='right'>联系电话：</td><td><input type="text" name="RecPhone" value="<%=rs("RecPhone")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
	<tr><td align='right'>移动电话：</td><td><input type="text" name="CompPhone" value="<%=rs("CompPhone")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
	<tr><td align='right'>电子邮箱：</td><td><input type="text" name="Recmail" value="<%=rs("Recmail")%>" readonly style="overflow:auto;width=80%" maxlength="30"> &nbsp; <a href='sendmail.asp?<%=rs("Recmail")%>'><img alt='发邮件' border=0 src='../images/small/e-mail.gif'></a></td></tr>
	<tr><td align='right'>邮政编码：</td><td><input type="text" name="Zipcode" value="<%=rs("Zipcode")%>" readonly style="overflow:auto;width=80%" maxlength="10"></td></tr>
	<tr><td align='right'>收货地址：</td><td><input type="text" name="RecAddress" value="<%=rs("RecAddress")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
	<tr><td align='right'>送货时间：</td><td><input alt=顾客指定的送货时间 type="text" name="gettime" value="<%=rs("gettime")%>"  readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
	<tr><td align='right'>顾客说明：</td><td><textarea alt=顾客对此订单的其它要求或说明 rows='5' name='Notes' readonly style="overflow:auto;width=80%"><%=rs("Notes")%></textarea></td></tr></tr>
	<tr><td align='right'>订单处理：</td><td><textarea alt="填写对订单处理的说明" rows='5' name='memo' style="overflow:auto;width=80% ; background-color: #FFFFCC;"><%=rs("Memo")%></textarea></td></tr>
	<tr><td align='right' height=30>订单状态：</td><td>
<%
fei=rs("fei")
if rs("Status")="11" or  rs("Status")="12" or  rs("Status")="99" then
set rs2 = conn.Execute("select * from Order_type where Status='"&rs("Status")&"'")
	response.write "<b>"&rs2("StatusDefine")&"<B>"
else
set rs2 = conn.execute("select * from Order_type Order by Status asc")
	response.write	"<select name='Status'>"
	Do While Not rs2.eof	
	if rs2("Status") = rs("Status") then 
	response.write "<option value='"&rs2("Status")&"' selected>"&rs2("StatusDefine")&"</option>"
	else
	response.write "<option value='"&rs2("Status")&"'>"&rs2("StatusDefine")&"</option>"
	end if
	rs2.movenext
	if rs2.eof then	exit do
	loop
	response.write "</select>"
set rs2=nothing
end if
%>
	</td></tr>


<tr><td align=right>购物清单：</td><td>

<table width="80%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="3">
	<tr><td width=15%>商品编号</td><td width="40%">商品名称</td><td width="15%">购买数量</td><td width="15%">结算单价</td><td width="15%" align=center>金额</td></tr>

<%
	Total = 0
	do while not rs.eof 
	Sum = rs("ProdUnit")* csng(rs("BuyPrice")) * csng(rs("thiskou"))/10
	Sum = FormatNumber(Sum,2) 
	Total = Sum + Total
	
	response.write "<tr><td>"&rs("ProdId")&"</td><td><a alt='查看此商品的前台页面' href=../gotourl.asp?list.asp?ProdId="&rs("ProdId")&" target='blank_'>"&rs("ProdName")&"</a></td>"
	response.write "<td>"&rs("ProdUnit")&"</td>"
	response.write "<td>"&FormatNumber(csng(rs("BuyPrice")) * csng(rs("thiskou"))/10,2)&"</td>"
	response.write "<td>"&Sum&"</td></tr>"

	rs.movenext
	loop

%>
<TR><TD colspan='5'>
商品总价：<%=FormatNumber(Total,2)%><br>
配送费用：<%=formatnum(fei,2)%><br>
总计费用：<font color=red><b><%=FormatNumber((Total+fei),2)%></font></b> 元
</td></TR></table>

</td></tr>
<tr><td colspan=2>
	<input type='submit' name='action' value='修改订单'> &nbsp;  &nbsp; 
	<input type='button' name='pnt' value='生成打印件' onClick="javascript:location.href='order4.asp?action=print&id=<%=ordernum%>';">
</td></tr>



</form>

</table>

<%
set rs=nothing
end sub







sub orderdel()
delid=request("id")
if Delid="" or isnull(Delid) then
response.write "<script language='javascript'>"
response.write "alert('操作失败，您什么也没有选择。');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from buyok_OrderList where id in ("&Delid&")"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('出错了，该订单不存在或者已经被删除。');"		
response.write "</script>"			
response.end 
else
Do while not rs.eof
rs("del")=true
rs.update
rs.movenext
loop
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，所选订单已被放入订单回收站，您可前往回收站彻底清除或恢复。');"
response.write "location.href='order1.asp';"			
response.write "</script>"
end if
end sub
%>

⌨️ 快捷键说明

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