powereasy.orders.asp

个人网站比较简短

<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Dim IsOfficial
IsOfficial = False
Dim strServerName
strServerName = LCase(Request.ServerVariables("SERVER_NAME"))
If strServerName = "www.powereasy.net" Or strServerName = "powereasy.net" Or strServerName = "www.powereasy.net.cn" Or strServerName = "powereasy.net.cn" Then
    IsOfficial = True
End If

Function GetOrderInfo(OrderFormID, UserName, ShowButton, OrderType)
    Dim rsOrder, sqlOrder, strOrderInfo
    If UserName = "" Then
        sqlOrder = "select * from PE_OrderForm where UserName='' and OrderFormID=" & OrderFormID & ""
    Else
        If OrderType = 1 Then
            sqlOrder = "select * from PE_OrderForm where AgentName='" & UserName & "' and OrderFormID=" & OrderFormID & ""
        Else
            sqlOrder = "select * from PE_OrderForm where UserName='" & UserName & "' and OrderFormID=" & OrderFormID & ""
        End If
    End If
    Set rsOrder = Conn.Execute(sqlOrder)
    If rsOrder.BOF And rsOrder.EOF Then
        FoundErr = True
        ErrMsg = "<li>找不到指定的订单！</li>"
        rsOrder.Close
        Set rsOrder = Nothing
        Exit Function
    End If

    strOrderInfo = strOrderInfo & "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    strOrderInfo = strOrderInfo & "  <tr align='center' class='title'>"
    strOrderInfo = strOrderInfo & "    <td height='22'><b>订 单 信 息</b>（订单编号：" & rsOrder("OrderFormNum") & "）</td>"
    strOrderInfo = strOrderInfo & "  </tr>"
    strOrderInfo = strOrderInfo & "  <tr>"
    strOrderInfo = strOrderInfo & "    <td height='25'><table width='100%'  border='0' cellpadding='2' cellspacing='0'>"
    strOrderInfo = strOrderInfo & "      <tr class='tdbg'>"
    If UserName = "" Then
        strOrderInfo = strOrderInfo & "        <td colspan='2'>客户名称：</td>"
    Else
        strOrderInfo = strOrderInfo & "        <td colspan='2'>客户名称：" & PE_HTMLEncode(GetClientName(rsOrder("ClientID"))) & "</td>"
    End If
    strOrderInfo = strOrderInfo & "        <td width='20%'>用 户 名：<a href='User_Order.asp'>" & rsOrder("UserName") & "</a></td>"
    strOrderInfo = strOrderInfo & "        <td width='18%'>代 理 商：" & PE_HTMLEncode(rsOrder("AgentName")) & "</td>"
    strOrderInfo = strOrderInfo & "        <td width='26%'>下单时间：<font color='red'>" & rsOrder("InputTime") & "</font></td>"
    strOrderInfo = strOrderInfo & "      <tr class='tdbg'>"
    strOrderInfo = strOrderInfo & "      <tr class='tdbg'>"
    strOrderInfo = strOrderInfo & "        <td width='18%'>需要发票："
    If rsOrder("NeedInvoice") = True Then
        strOrderInfo = strOrderInfo & "√"
    Else
        strOrderInfo = strOrderInfo & "<font color='red'>×</font>"
    End If
    strOrderInfo = strOrderInfo & "</td>"
    strOrderInfo = strOrderInfo & "        <td width='18%'>已开发票："
    If rsOrder("Invoiced") = True Then
        strOrderInfo = strOrderInfo & "√"
    Else
        strOrderInfo = strOrderInfo & "<font color='red'>×</font>"
    End If
    strOrderInfo = strOrderInfo & "</td>"
    strOrderInfo = strOrderInfo & "        <td width='20%'>订单状态：<font color='red'>"
    Select Case rsOrder("Status")
    Case 0, 1
        strOrderInfo = strOrderInfo & "等待确认"
    Case 2, 3
        strOrderInfo = strOrderInfo & "已经确认"
    Case 4
        strOrderInfo = strOrderInfo & "已结清"
    End Select
    strOrderInfo = strOrderInfo & "</font></td>"
    strOrderInfo = strOrderInfo & "        <td width='18%'>付款情况：<font color='red'>"
    If rsOrder("MoneyTotal") > rsOrder("MoneyReceipt") Then
        If rsOrder("MoneyReceipt") > 0 Then
            strOrderInfo = strOrderInfo & "已收定金"
        Else
            strOrderInfo = strOrderInfo & "等待汇款"
        End If
    Else
        strOrderInfo = strOrderInfo & "已经付清"
    End If
    strOrderInfo = strOrderInfo & "</font></td>"
    strOrderInfo = strOrderInfo & "        <td width='24%'>物流状态：<font color='red'>"
    Select Case rsOrder("DeliverStatus")
    Case 0, 1
        strOrderInfo = strOrderInfo & "配送中"
    Case 2
        strOrderInfo = strOrderInfo & "已发货"
    Case 3
        strOrderInfo = strOrderInfo & "已签收"
    End Select
    strOrderInfo = strOrderInfo & "</font></td>"
    strOrderInfo = strOrderInfo & "      </tr>"
    strOrderInfo = strOrderInfo & "    </table>      </td>"
    strOrderInfo = strOrderInfo & "  </tr>"
    strOrderInfo = strOrderInfo & "  <tr align='center'>"
    strOrderInfo = strOrderInfo & "    <td height='25'><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1'>"
    strOrderInfo = strOrderInfo & "        <tr class='tdbg'>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>收货人姓名：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & PE_HTMLEncode(rsOrder("ContacterName")) & "</td>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>联系电话：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & PE_HTMLEncode(rsOrder("Phone")) & "</td>"
    strOrderInfo = strOrderInfo & "        </tr>"
    strOrderInfo = strOrderInfo & "        <tr class='tdbg' valign='top'>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>收货人地址：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & PE_HTMLEncode(rsOrder("Address")) & "</td>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>邮政编码：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & rsOrder("ZipCode") & "</td>"
    strOrderInfo = strOrderInfo & "        </tr>"
    strOrderInfo = strOrderInfo & "        <tr class='tdbg'>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>收货人邮箱：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & rsOrder("Email") & "</td>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>收货人手机：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & PE_HTMLEncode(rsOrder("Mobile")) & "</td>"
    strOrderInfo = strOrderInfo & "        </tr>"
    strOrderInfo = strOrderInfo & "        <tr class='tdbg'>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>付款方式：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & GetPaymentType(rsOrder("PaymentType")) & "</td>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>送货方式：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & GetDeliverType(rsOrder("DeliverType")) & "</td>"
    strOrderInfo = strOrderInfo & "        </tr>"
    strOrderInfo = strOrderInfo & "        <tr class='tdbg' valign='top'>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>发票信息：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>"
    If rsOrder("NeedInvoice") = True Then strOrderInfo = strOrderInfo & PE_HTMLEncode(rsOrder("InvoiceContent"))
    strOrderInfo = strOrderInfo & "</td>"
    strOrderInfo = strOrderInfo & "          <td width='12%' class='tdbg5' align='right'>备注/留言：</td>"
    strOrderInfo = strOrderInfo & "          <td width='38%'>" & PE_HTMLEncode(rsOrder("Remark")) & "</td>"
    strOrderInfo = strOrderInfo & "        </tr>"
    strOrderInfo = strOrderInfo & "    </table></td>"
    strOrderInfo = strOrderInfo & "  </tr>"
    strOrderInfo = strOrderInfo & "  <tr><td>"
    strOrderInfo = strOrderInfo & "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' bgcolor='#0099FF'>"
    strOrderInfo = strOrderInfo & "  <tr align='center' class='tdbg2' height='25'>"
    strOrderInfo = strOrderInfo & "    <td><b>商 品 名 称</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='45'><b>单位</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='55'><b>数量</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='65'><b>原价</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='65'><b>实价</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='65'><b>指定价</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='85'><b>金 额</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='65'><b>服务期限</b></td>"
    strOrderInfo = strOrderInfo & "    <td width='45'><b>备注</b></td>"
    strOrderInfo = strOrderInfo & "  </tr>"

    Dim dblPrice, dblAmount, dblSubtotal, dblTotal, TotalPresentExp, TotalPresentPoint, TotalPresentMoney, HaveSoft, HaveCard
    Dim rsOrderItem, rsCard
    dblSubtotal = 0
    dblTotal = 0
    TotalPresentExp = 0
    TotalPresentPoint = 0
    TotalPresentMoney = 0

    HaveSoft = False
    HaveCard = False
    Set rsOrderItem = Conn.Execute("select I.ItemID,P.ProductID,P.ProductName,P.ProductKind,I.SaleType,I.PresentExp,I.PresentMoney,I.PresentPoint,I.Price_Original,I.Price,I.TruePrice,I.Amount,P.Unit,I.BeginDate,I.ServiceTerm,I.Remark from PE_OrderFormItem I inner join PE_Product P on I.ProductID=P.ProductID where I.OrderFormID=" & rsOrder("OrderFormID") & " order by I.ItemID")
    Do While Not rsOrderItem.EOF
        dblPrice = rsOrderItem("TruePrice")
        dblAmount = rsOrderItem("Amount")
        dblSubtotal = dblPrice * dblAmount
        dblTotal = dblTotal + dblSubtotal
        TotalPresentExp = TotalPresentExp + rsOrderItem("PresentExp") * rsOrderItem("Amount")
        TotalPresentMoney = TotalPresentMoney + rsOrderItem("PresentMoney") * rsOrderItem("Amount")
        TotalPresentPoint = TotalPresentPoint + rsOrderItem("PresentPoint") * rsOrderItem("Amount")
        If rsOrderItem("ProductKind") = 2 Then
            HaveSoft = True
        ElseIf rsOrderItem("ProductKind") = 3 Then
            Set rsCard = Conn.Execute("select top 1 CardID from PE_Card where ProductID=" & rsOrderItem("ProductID") & " and OrderFormItemID=" & rsOrderItem("ItemID") & "")
            If rsCard.BOF And rsCard.EOF Then
                HaveCard = True
            End If
            Set rsCard = Nothing
        End If
        
        strOrderInfo = strOrderInfo & "  <tr valign='middle' class='tdbg' height='20'>"
        strOrderInfo = strOrderInfo & "    <td width='*'>" & rsOrderItem("ProductName")
        Select Case rsOrderItem("SaleType")
        Case 1 '正常销售
        
        Case 2 '换购
            strOrderInfo = strOrderInfo & " <font color='red'>（换购）</font>"
        Case 3 '赠送
            strOrderInfo = strOrderInfo & " <font color='red'>（赠送）</font>"
        Case 4 '批发
            strOrderInfo = strOrderInfo & " <font color='red'>（批发）</font>"
        End Select
            
        strOrderInfo = strOrderInfo & "</td>"
        strOrderInfo = strOrderInfo & "    <td width='45' align=center>" & rsOrderItem("Unit") & "</td>"
        strOrderInfo = strOrderInfo & "    <td width='55' align='center'>" & dblAmount & "</td>"
        strOrderInfo = strOrderInfo & "    <td width='65' align='right'>" & FormatNumber(rsOrderItem("Price_Original"), 2, vbTrue, vbFalse, vbTrue) & "</td>"
        strOrderInfo = strOrderInfo & "    <td width='65' align='right'>" & FormatNumber(rsOrderItem("Price"), 2, vbTrue, vbFalse, vbTrue) & "</td>"
        strOrderInfo = strOrderInfo & "    <td width='65' align='right'>" & FormatNumber(dblPrice, 2, vbTrue, vbFalse, vbTrue) & "</td>"
        strOrderInfo = strOrderInfo & "    <td width='85' align='right'>" & FormatNumber(dblSubtotal, 2, vbTrue, vbFalse, vbTrue) & "</td>"
        strOrderInfo = strOrderInfo & "    <td width='65' align=center>"
        If rsOrderItem("ServiceTerm") > 0 Then
            If DateAdd("yyyy", rsOrderItem("ServiceTerm"), rsOrderItem("BeginDate")) <= Now() Then
                strOrderInfo = strOrderInfo & "<font color='red'>"
            End If
        End If
        Select Case rsOrderItem("ServiceTerm")
        Case -1
            strOrderInfo = strOrderInfo & "无限期"
        Case 0
            strOrderInfo = strOrderInfo & "无"
        Case 1
            strOrderInfo = strOrderInfo & "一年"