orderlist.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 584 行 · 第 1/2 页
ASP
584 行
<!-- #include file="setup.asp" -->
<!-- #include file="inc/upfile.asp" -->
<!-- #include file="inc/function.asp" -->
<%
validate "Login.asp",0
if Request.ServerVariables("request_method")="POST" then
Server.ScriptTimeout=1000
Select case Request.Form("B1")
Case "删除"
if request("DelOrderPro")="" then Error 2,"错误的删除信息！",""
OrderProduct=Split(Request.Cookies("OrderProduct"),",")
for each nums in request.form("DelOrderPro")
OrderProduct(nums)=""
next
Response.Cookies("OrderProduct")=""
for i=0 to Ubound(OrderProduct)
if OrderProduct(i)<>"" then
Response.Cookies("OrderProduct")=Request.Cookies("OrderProduct")&OrderProduct(i)&","
End if
next
response.redirect "?menu=Confirm"
Response.end
Case "清空购物袋"
Session("Ordersingle")=""
Response.Cookies("OrderProduct")=""
response.redirect "?menu=Confirm"
Response.end
Case "下一步"
Set rs = Server.CreateObject("ADODB.Recordset")
OrderProductNum=Request("OrderProductNum")
OrderProductMoney=Request("OrderProductMoney")
OrderProduct=Request("OrderProduct")
OrderProductQuantity=Request("nums")
if Session("Ordersingle")="" or OrderProduct="" then Error 2,"无产品信息！",""
if conn.execute("Select Count(Ordersingle)from OrderList where Ordersingle="&Session("Ordersingle"))(0)=0 then
'---------------------------------产品出售数加1--
for each ProducName in request.form("OrderProduct")
conn.execute("update Product_Info set ProductBuy=ProductBuy+1 where ProductCnName='"&trim(ProducName)&"'")
next
End if
'---------------------------------得出产品总价--
AllMoney=0
PrMoney=Split(OrderProductMoney,",")
PrQuany=Split(OrderProductQuantity,",")
For i=0 to ubound(PrMoney)
AllMoney=AllMoney+(PrMoney(i)*PrQuany(i))
next
'---------------------------------写入数据庫--
if conn.execute("Select Count(Ordersingle)from OrderList where Ordersingle="&Session("Ordersingle"))(0)=0 then
rs.open "OrderList",Conn,1,3
rs.addnew
else
Sql="Select OrderUserID,Ordersingle,OrderProductNum,OrderProductMoney,OrderProduct,OrderProductQuantity,OrderAllMoney,OrderAppearance From OrderList where Ordersingle="&Cint(Session("Ordersingle"))
Rs.Open Sql,Conn,1,3
end if
Rs("OrderUserID")=Request.Cookies("User")
Rs("Ordersingle")=Session("Ordersingle")
Rs("OrderProductNum")=OrderProductNum
Rs("OrderProduct")=OrderProduct
Rs("OrderProductQuantity")=OrderProductQuantity
Rs("OrderProductMoney")=OrderProductMoney
Rs("OrderAllMoney")=AllMoney
if Request.Form("C2")="ON" then
rs("OrderAppearance")=1
else
rs("OrderAppearance")=0
end if
Rs.update
Rs.close
Set Rs = Nothing
Session("Ordersingle")=""
Response.Cookies("OrderProduct")=""
%>
<Script language=javascript>
var winEx = window.open('', '', 'width=400,height=200,resizable,scrollbars');winEx.document.write('<title>商城汇款信息</title><link href=css.css rel=stylesheet><body background=images/background1.gif><%=Conn.execute("Select FunctionInfo from Functions where FunctionID=9")(0)%>');
window.location.href='OrderList.asp?menu=List'
</script>
<%
Response.end
Case "删 除"
for each nums in request.form("DelID")
if conn.execute("Select OrderAppearance from OrderList where Ordersingle="&nums)(0)>1 then Error 2,"可能由于以下原因，您的订单不能修改！\n\n\t1.订单处理中\n\t2.订单已完成\n\n\t如仍需修改，请致电\n\t"&conn.execute("Select FunctionInfo from Functions where FunctionID=20")(0)&"\n\t进行人工校正！",""
conn.execute("update OrderList set DelThis=true where Ordersingle="&nums)
next
Response.redirect "?menu=List"
Case "修 改"
EditID=Request.Form("DelID")
if instr(EditID,",")>0 then Error 2,"一次只能修改一张产品订单\n请返回重新选择！",""
if IsNumerIc(EditID)=false Then Error 1,"错误的订单参数",""
if EditID="" Then Error 2,"无定单信息！",""
if conn.execute("Select OrderAppearance from OrderList where Ordersingle="&EditID)(0)>1 then Error 2,"可能由于以下原因，您的订单不能修改！\n\n\t1.订单处理中\n\t2.订单已完成\n\n\t如仍需修改，请致电\n\t"&conn.execute("Select FunctionInfo from Functions where FunctionID=20")(0)&"\n\t进行人工校正！",""
Sql="Select Ordersingle,OrderProductNum From OrderList Where Ordersingle="&EditID
Set Rs = Conn.Execute(Sql)
Session("Ordersingle")=Rs("Ordersingle")
OPNum=Split(Rs("OrderProductNum"),",")
Rs.Close
Set Rs = Nothing
For N=0 to Ubound(OPNum)
Response.Cookies("OrderProduct")=Request.Cookies("OrderProduct")&conn.execute("Select ProductID From Product_Info where ProductNum='"&trim(OPNum(N))&"'")(0)&","
Next
response.redirect "?Menu=Confirm&Eyes=Edit"
End Select
'---------------------------------汇款单扫描上传--
Set FileUP=new Upload_file
FileUP.GetDate(-1)
if FileUP.form("B1")="上 传" Then
Ordersingle=FileUP.form("Ordersingle")
if trim(Request.Cookies("User"))<>trim(conn.execute("Select OrderUserID from OrderList where Ordersingle="&Ordersingle)(0)) Then Error 2,"你非此定单用户！",""
set file=FileUP.file("UpScan")
if file.filesize then
if Round(file.filesize/1024,2) > 50 Then Error 2,"上传文件不得大于50KB\n您当前的文件为"&Round(file.filesize/1024,2)&"KB",""
if file.FileExt <> "gif" and file.FileExt <> "jpg" Then Error 2,"本系统只充许上传jpg/gif图像!\n\n不充许 "&file.FileExt&" 格式文件上传！",""
filename="UpProductimg/Scan/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&file.FileExt
Scan=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&file.FileExt
file.SaveToFile Server.mappath(filename)
end if
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select OrderRemittance From OrderList where Ordersingle="&Ordersingle
Rs.Open Sql,conn,1,3
if Rs("OrderRemittance")="" then
Rs("OrderRemittance")=Scan
else
DelFile "UpProductimg/Scan/",trim(Rs("OrderRemittance"))
Rs("OrderRemittance")=Scan
end if
rs.update
rs.close
Set Rs = Nothing
set file=Nothing
Set FileUP=Nothing
Error 1,"汇款单上传成功！\n请刷新您的定单管理区！",""
Response.end
end if
Set FileUP=Nothing
End if
'-----------------------------------
ProID=Request.QueryString("ProID")
Menu=Request.QueryString("menu")
ProCName=Request.QueryString("ProCName")
Select case Menu
'---------------------------------产品选购--
Case "AddPro"
if instr(Request.Cookies("OrderProduct"),ProID&",")>0 then Error 1,"此产品已在您的购物袋中\n请勿重复添加！",""
if isnumeric(ProID)=false then Error 1,"数据非法传递！\n您的IP已被记录！",""
if conn.execute("Select count(ProductID)From Product_Info where ProductID="&ProID)(0)=0 then Error 2,"无此产品信息！\n请返回重新选择！",""
Response.Cookies("OrderProduct")=Request.Cookies("OrderProduct")&ProID&","
%>
<title><%=Community%></title>
<link href=css.css rel=stylesheet>
<body topmargin=0 leftmargin=0 bgcolor=#EFF7FF>
<center><br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%">
<tr>
<td width="100%">
<p align="center">---- 商城选购 ----</td>
</tr>
<tr>
<td width="100%"><hr color="#000000" size="1" width="40%"></td></tr>
<tr>
<td width="100%">
<p align="center"><br>
您已经成功地将<font color=#ff0000><%=ProCName%></font>加入您的购物栏！
<br><span id=time>5</span> 秒种后窗口自动关闭！
<script>
function countDown(secs){
time.innerText=secs;
if(--secs>0)
setTimeout('countDown('+secs+')',1000);
}
setTimeout('window.close()',5000);
countDown(5);
</script>
</td>
</tr>
</table>
<%htmlend
'---------------------------------订单确认--
Case "Confirm"
Call top
Call table()
if Session("Ordersingle")="" then
Set Rs = Conn.Execute("Select Ordersingle From OrderList Order by Ordersingle Desc")
if rs.eof then
Session("Ordersingle")=1
else
Session("Ordersingle")=rs("Ordersingle")+1
end if
rs.close
End if
%>
<style>
<!--
TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
-->
</style>
<br>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
<tr>
<td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none">
<b>■ </b><%=Community%>订单确认中心。(您是<%=USleve%>,我们将为您采用<%=MoneyN%>)</td>
</tr>
</table>
<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR>
<TD height=25 width="75%" > <img src="images/2.gif" width="60" height="9">操作顺序：
确认定购产品项准确无误后（有误请勾选后删除），输入数量单击下一步。</TD>
</TR>
</TABLE>
<script>
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>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24" bgColor="#ecf5ff">
<form method="POST" >
<TR height=25>
<TD align=middle width=7%>
<input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></TD>
<TD width=11%>
<p align="center">货号</TD>
<TD align=left width="24%">
<p align="center">产品名称</TD>
<TD align=middle width=10%>产品规格</TD>
<TD align=middle width=10%>产品包装</TD>
<TD align=middle width=10%>单价</TD>
<TD align=middle width=10%>数量</TD>
<TD align=left width=18%>
<p align="center">订单号</TD></TR>
</TABLE>
<%OrderProduct=Split(Request.Cookies("OrderProduct"),",")
for i=0 to ubound(OrderProduct)-1
if OrderProduct(i)<>"" then
sql="Select ProductNum,ProductCnName,ProductSf,ProductPacking,ProductI,ProductII,ProductIII From Product_Info where ProductID="&OrderProduct(i)
Set rs = Conn.Execute(Sql)
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width="100%" border=1 style="border-collapse: collapse" height="24">
<TR height=25>
<TD align=middle width=7%>
<input type="checkbox" name="DelOrderPro" value=<%=i%>></TD>
<TD width=11%>
<p align="center"><input name=OrderProductNum type="hidden" value=<%=rs("ProductNum")%>><%=rs("ProductNum")%></TD>
<TD align=left width="24%">
<p align="center"><input name=OrderProduct type="hidden" value=<%=rs("ProductCnName")%>><%=rs("ProductCnName")%></TD>
<TD align=middle width=10%><%=rs("ProductSf")%></TD>
<TD align=middle width=10%><%=rs("ProductPacking")%></TD>
<TD align=middle width=10%><input name=OrderProductMoney type="hidden" value=<%=rs(ProductN)%>><%=FormatCurrency(rs(ProductN))%></TD>
<TD align=middle width=10%><input type="text" name="nums" size="3" maxlength=9 value=1 onkeyup="if(isNaN(this.value)) this.value='1';" ></TD>
<TD align=left width=18%><p align="center"><%=Session("Ordersingle")%></TD></TR>
</TABLE>
<%
rs.close
Set Rs = Nothing
end if
next%>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="6" width="100%" border="1" style="border-collapse: collapse" height="7">
<tr height="25">
<td height="1" width="115">
<p align="center"><input type="submit" value="删除" name="B1">
</td>
<td height="1" width="699">
<p align="center"><input type="submit" value="下一步" name="B1"> <input type="submit" value="清空购物袋" name="B1"> <input type="Button" value="取 消" name="B1" Onclick=JavaScript:history.back();></td>
<td height="1" width="131">
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?