📄 powereasy.orders.asp
字号:
Case 2
strOrderInfo = strOrderInfo & "两年"
Case 3
strOrderInfo = strOrderInfo & "三年"
Case 4
strOrderInfo = strOrderInfo & "四年"
Case 5
strOrderInfo = strOrderInfo & "五年"
Case Else
strOrderInfo = strOrderInfo & "未知"
End Select
strOrderInfo = strOrderInfo & "</td>"
strOrderInfo = strOrderInfo & " <td align=center width='40'>"
If rsOrderItem("Remark") <> "" Then
strOrderInfo = strOrderInfo & "<a href='#' title='" & rsOrderItem("Remark") & "'>查看</a>"
End If
strOrderInfo = strOrderInfo & "</td>"
strOrderInfo = strOrderInfo & " </tr>"
rsOrderItem.MoveNext
Loop
rsOrderItem.Close
Set rsOrderItem = Nothing
strOrderInfo = strOrderInfo & " <tr class='tdbg' height='30' >"
strOrderInfo = strOrderInfo & " <td colspan='6' align='right'><b>合计：</b></td>"
strOrderInfo = strOrderInfo & " <td align='right'><b>" & FormatNumber(dblTotal, 2, vbTrue, vbFalse, vbTrue) & "</b></td>"
strOrderInfo = strOrderInfo & " <td colspan='2'> </td>"
strOrderInfo = strOrderInfo & " </tr>"
Dim Discount_Payment, Charge_Deliver, strTotalMoney
Discount_Payment = rsOrder("Discount_Payment")
Charge_Deliver = rsOrder("Charge_Deliver")
strOrderInfo = strOrderInfo & " <tr class='tdbg'>" & vbCrLf
strOrderInfo = strOrderInfo & " <td colspan='4'>付款方式折扣率：" & Discount_Payment & "%"
strTotalMoney = "实际金额：(" & dblTotal & "×" & Discount_Payment & "%"
If Discount_Payment > 0 And Discount_Payment < 100 Then
dblTotal = dblTotal * Discount_Payment / 100
End If
strOrderInfo = strOrderInfo & " 运费：" & Charge_Deliver & " 元"
strTotalMoney = strTotalMoney & "＋" & Charge_Deliver & ")"
dblTotal = dblTotal + Charge_Deliver
strOrderInfo = strOrderInfo & " 税率：" & TaxRate & "% 价格含税："
If IncludeTax = True Then
strOrderInfo = strOrderInfo & "是"
If rsOrder("NeedInvoice") <> True Then
strTotalMoney = strTotalMoney & "×(1-" & TaxRate & "%)"
dblTotal = dblTotal * (100 - TaxRate) / 100
Else
strTotalMoney = strTotalMoney & "×100%"
End If
Else
strOrderInfo = strOrderInfo & "否"
If rsOrder("NeedInvoice") = True Then
strTotalMoney = strTotalMoney & "×(1+" & TaxRate & "%)"
dblTotal = dblTotal * (100 + TaxRate) / 100
Else
strTotalMoney = strTotalMoney & "×100%"
End If
End If
strTotalMoney = strTotalMoney & "＝" & dblTotal & " 元"
strOrderInfo = strOrderInfo & "<br>" & strTotalMoney
strOrderInfo = strOrderInfo & "<br>返还 <font color='red'>" & rsOrder("PresentMoney") + TotalPresentMoney & "</font> 元现金券，赠送 <font color='red'>" & rsOrder("PresentExp") + TotalPresentExp & "</font> 点积分,赠送 <font color='red'>" & rsOrder("PresentPoint") + TotalPresentPoint & "</font> " & PointUnit & PointName
strOrderInfo = strOrderInfo & " </td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td colspan='2' align='right'><b>实际金额：</b></td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td align=right><b> ￥" & FormatNumber(dblTotal, 2, vbTrue, vbFalse, vbTrue) & "</b></td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td colspan='2' align='left'><b>已付款：</b>￥"
If rsOrder("MoneyReceipt") < rsOrder("MoneyTotal") Then
strOrderInfo = strOrderInfo & "<font color='red'>" & FormatNumber(rsOrder("MoneyReceipt"), 2, vbTrue, vbFalse, vbTrue) & "</font><br>"
strOrderInfo = strOrderInfo & "<font color='blue'><b>尚欠款：</b>￥" & FormatNumber(rsOrder("MoneyTotal") - rsOrder("MoneyReceipt"), 2, vbTrue, vbFalse, vbTrue) & "</font>"
Else
strOrderInfo = strOrderInfo & FormatNumber(rsOrder("MoneyReceipt"), 2, vbTrue, vbFalse, vbTrue)
End If
strOrderInfo = strOrderInfo & "</b></td></tr>"
strOrderInfo = strOrderInfo & "</table></td>"
strOrderInfo = strOrderInfo & " </tr>"
If (UserName <> "" Or OrderType = 1) And ShowButton = True Then
strOrderInfo = strOrderInfo & " <tr align='right'>"
strOrderInfo = strOrderInfo & " <td height='30' align='center'>"
If rsOrder("Status") = 1 And rsOrder("MoneyReceipt") = 0 Then
strOrderInfo = strOrderInfo & "<input type='button' name='Submit' value='删除订单' onClick=""javascript:if(confirm('确定要删除此订单吗？')){window.location.href='User_Order.asp?Action=DelOrder&OrderType=" & OrderType & "&OrderFormID=" & rsOrder("OrderFormID") & "';}"">"
End If
If rsOrder("MoneyReceipt") < rsOrder("MoneyTotal") Then
If rsOrder("AgentName") = UserName And rsOrder("UserName") <> UserName Then
strOrderInfo = strOrderInfo & " <input type='button' name='Submit' value='代理商余额支付' onClick=""javascript:if(confirm('确定要支付此订单吗？')){window.location.href='User_Order.asp?Action=AgentPayment&OrderType=" & OrderType & "&OrderFormID=" & rsOrder("OrderFormID") & "';}"">"
Else
strOrderInfo = strOrderInfo & " <input type='button' name='Submit' value='从余额中扣款支付' onClick=""window.location.href='User_Order.asp?Action=AddPayment&OrderType=" & OrderType & "&OrderFormID=" & rsOrder("OrderFormID") & "'"">"
End If
strOrderInfo = strOrderInfo & " <input type='button' name='Submit' value='在线支付' onClick=""window.location.href='../Shop/PayOnline.asp?OrderFormID=" & rsOrder("OrderFormID") & "'"">"
Else
If HaveSoft = True Then
strOrderInfo = strOrderInfo & " <input type='button' name='Submit' value='下载产品' onClick=""window.location.href='User_Down.asp'"">"
End If
If HaveCard = True Then
strOrderInfo = strOrderInfo & " <input type='button' name='Submit' value='获取虚拟充值卡' onClick=""window.location.href='User_Exchange.asp?Action=GetCard'"">"
End If
End If
If rsOrder("DeliverStatus") = 2 Then
strOrderInfo = strOrderInfo & " <input type='button' name='Submit' value=' 签 收 ' onClick=""javascript:if(confirm('确定已经收到此订单中的货物了吗？')){window.location.href='User_Order.asp?Action=Received2&OrderType=" & OrderType & "&OrderFormID=" & rsOrder("OrderFormID") & "';}"">"
End If
strOrderInfo = strOrderInfo & "</td>"
strOrderInfo = strOrderInfo & " </tr>"
End If
strOrderInfo = strOrderInfo & "</table><br><b>注：</b>“<font color='blue'>原价</font>”指商品的原始零售价，“<font color='green'>实价</font>”指系统自动计算出来的商品最终价格，“<font color='red'>指定价</font>”指管理员手动指定的最终价格。商品的最终销售价格以“指定价”为准。<br>"
strOrderInfo = strOrderInfo & "<script language='javascript'>" & vbCrLf
strOrderInfo = strOrderInfo & "var tID=0;" & vbCrLf
strOrderInfo = strOrderInfo & "function ShowTabs(ID){" & vbCrLf
strOrderInfo = strOrderInfo & " if(ID!=tID){" & vbCrLf
strOrderInfo = strOrderInfo & " TabTitle[tID].className='title5';" & vbCrLf
strOrderInfo = strOrderInfo & " TabTitle[ID].className='title6';" & vbCrLf
strOrderInfo = strOrderInfo & " Tabs[tID].style.display='none';" & vbCrLf
strOrderInfo = strOrderInfo & " Tabs[ID].style.display='';" & vbCrLf
strOrderInfo = strOrderInfo & " tID=ID;" & vbCrLf
strOrderInfo = strOrderInfo & " }" & vbCrLf
strOrderInfo = strOrderInfo & "}" & vbCrLf
strOrderInfo = strOrderInfo & "</script>" & vbCrLf
strOrderInfo = strOrderInfo & "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr align='center' height='24'>" & vbCrLf
strOrderInfo = strOrderInfo & " <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>付款信息</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>发票记录</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td id='TabTitle' class='title5' onclick='ShowTabs(2)'>发退货记录</td>" & vbCrLf
If IsOfficial Then
strOrderInfo = strOrderInfo & " <td id='TabTitle' class='title5' onclick='ShowTabs(3)'>相关序列号</td>" & vbCrLf
End If
strOrderInfo = strOrderInfo & " <td> </td>" & vbCrLf
strOrderInfo = strOrderInfo & "</tr></table>" & vbCrLf
strOrderInfo = strOrderInfo & "<table width='100%' border='0' cellpadding='2' cellspacing='1' class='border' id='Tabs' style='display:'>" & vbCrLf
strOrderInfo = strOrderInfo & " <tr align='center' class='title'>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='80'>付款人</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='120'>交易时间</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='60'>交易方式</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='50'>币种</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='80'>支出金额</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td>备注/说明</td>" & vbCrLf
strOrderInfo = strOrderInfo & " </tr>" & vbCrLf
Dim rsBankroll, sqlBankroll, TotalIncome, TotalPayout
sqlBankroll = "select * from PE_BankrollItem where OrderFormID=" & OrderFormID & " and Money<0 order by ItemID desc"
Set rsBankroll = Conn.Execute(sqlBankroll)
If rsBankroll.BOF And rsBankroll.EOF Then
strOrderInfo = strOrderInfo & "<tr class='tdbg'><td colspan='20' height='50' align='center'>没有相关付款记录</td></tr>" & vbCrLf
Else
Do While Not rsBankroll.EOF
If rsBankroll("Money") > 0 Then
TotalIncome = TotalIncome + rsBankroll("Money")
Else
TotalPayout = TotalPayout + rsBankroll("Money")
End If
strOrderInfo = strOrderInfo & " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='80' align='center'>" & rsBankroll("UserName") & "</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='120' align='center'>" & rsBankroll("DateAndTime") & "</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='60' align='center'>"
Select Case rsBankroll("MoneyType")
Case 1
strOrderInfo = strOrderInfo & "现金"
Case 2
strOrderInfo = strOrderInfo & "银行汇款"
Case 3
strOrderInfo = strOrderInfo & "在线支付"
Case 4
strOrderInfo = strOrderInfo & "虚拟货币"
End Select
strOrderInfo = strOrderInfo & "</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='50' align='center'>"
Select Case rsBankroll("CurrencyType")
Case 1
strOrderInfo = strOrderInfo & "人民币"
Case 2
strOrderInfo = strOrderInfo & "美元"
Case 3
strOrderInfo = strOrderInfo & "其他"
End Select
strOrderInfo = strOrderInfo & "</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='60' align='right'>" & FormatNumber(Abs(rsBankroll("Money")), 2, vbTrue, vbFalse, vbTrue) & "</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td>" & rsBankroll("Remark") & "</td>" & vbCrLf
strOrderInfo = strOrderInfo & " </tr>" & vbCrLf
rsBankroll.MoveNext
Loop
End If
rsBankroll.Close
Set rsBankroll = Nothing
strOrderInfo = strOrderInfo & " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">" & vbCrLf
strOrderInfo = strOrderInfo & " <td colspan='4' align='right'>合计金额：</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td align='right'>" & FormatNumber(TotalPayout, 2, vbTrue, vbFalse, vbTrue) & "</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td colspan='2' align='center'> </td>" & vbCrLf
strOrderInfo = strOrderInfo & " </tr>" & vbCrLf
strOrderInfo = strOrderInfo & "</table>" & vbCrLf
strOrderInfo = strOrderInfo & "<table width='100%' border='0' cellpadding='2' cellspacing='1' class='border' id='Tabs' style='display:none'>" & vbCrLf
strOrderInfo = strOrderInfo & " <tr align='center' class='title'>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='80'>日期</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='80'>发票类型</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='80'>发票号码</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td>发票抬头</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='60'>发票金额</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='60'>开票人</td>" & vbCrLf
strOrderInfo = strOrderInfo & " <td width='120'>开票时间</td>" & vbCrLf
strOrderInfo = strOrderInfo & " </tr>" & vbCrLf
Dim rsInvoice
Set rsInvoice = Conn.Execute("select * from PE_InvoiceItem where OrderFormID=" & OrderFormID & " order by InvoiceID")
If rsInvoice.BOF And rsInvoice.EOF Then
strOrderInfo = strOrderInfo & "<tr class='tdbg'><td colspan='20' height='50' align='center'>没有相关发票记录</td></tr>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -