user_exchange_code.asp

个人网站比较简短

<!--#include file="CommonCode.asp"-->
<!--#include file="../Include/PowerEasy.Bankroll.asp"-->
<!--#include file="../Include/PowerEasy.ConsumeLog.asp"-->
<!--#include file="../Include/PowerEasy.RechargeLog.asp"-->
<!--#include file="../Include/PowerEasy.Base64.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Sub Execute()
    Select Case Action
    Case "Exchange"
        Call Exchange
    Case "SaveExchange"
        Call SaveExchange
    Case "Valid"
        Call Valid
    Case "SaveValid"
        Call SaveValid
    Case "Recharge"
        Call Recharge
    Case "SaveRecharge"
        Call SaveRecharge
    Case "GetCard"
        Call GetCard
    Case "SendPoint"
        Call SendPoint
    Case "SaveSendPoint"
        Call SaveSendPoint
    Case Else
        FoundErr = True
        ErrMsg = ErrMsg & "<li>错误的参数</li>"
    End Select
    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
    End If
End Sub

Sub ShowUserInfo()
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>用户名：</td>"
    Response.Write "      <td>" & UserName & "</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>资金余额：</td>"
    Response.Write "      <td>" & Balance & " 元</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>可用积分：</td>"
    Response.Write "      <td>" & UserExp & " 分</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>可用" & PointName & "数：</td>"
    Response.Write "      <td>" & UserPoint & " " & PointUnit & "</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>有效天数：</td>"
    Response.Write "      <td>开始计算日期：" & FormatDateTime(BeginTime, 2) & "&nbsp;&nbsp;&nbsp;&nbsp;有效期："
    If ValidNum = -1 Then
        Response.Write "无限期<br>"
    Else
        Response.Write ValidNum & arrCardUnit(ValidUnit) & "<br>"
        If ValidDays >= 0 Then
            Response.Write "尚有 <font color=blue>" & ValidDays & "</font> 天到期"
        Else
            Response.Write "已经过期 <font color=red>" & Abs(ValidDays) & "</font> 天"
        End If
    End If
    Response.Write "      </td>"
    Response.Write "    </tr>"
End Sub

Sub Exchange()
    If UserSetting(18) = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>不允许进行自助兑换" & PointName & "！</li>"
        Exit Sub
    End If
    Response.Write "<form name='myform' action='User_Exchange.asp' method='post'>"
    Response.Write "  <table width='100%' border='0' cellspacing='1' cellpadding='2' align='center' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height=22 colSpan=2 align='center'><b>兑换" & PointName & "</b></td>"
    Response.Write "    </tr>"
    Call ShowUserInfo
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>兑换" & PointName & "：</td>"
    Response.Write "      <td>"
    Response.Write "        <input type='radio' name='ChangeType' value='1' checked>使用资金余额："
    Response.Write "        将 <input name='ChangeMoney' type='text' value='10' size='6' maxlength='8' style='text-align:center'> 元兑换成" & PointName
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;兑换比率：" & FormatNumber(MoneyExchangePoint, 2, vbTrue, vbFalse, vbTrue) & "元:1" & PointUnit
    Response.Write "        <br>"
    Response.Write "        <input type='radio' name='ChangeType' value='2'>使用经验积分："
    Response.Write "        将 <input name='ChangeExp' type='text' value='10' size='6' maxlength='8' style='text-align:center'> 分兑换成" & PointName
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;兑换比率：" & FormatNumber(UserExpExchangePoint, 2, vbTrue, vbFalse, vbTrue) & "分:1" & PointUnit
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveExchange'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value='执行兑换'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
End Sub

Sub Valid()
    If UserSetting(19) = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>不允许进行自助兑换有效期！</li>"
        Exit Sub
    End If
    Response.Write "<form name='myform' action='User_Exchange.asp' method='post'>"
    Response.Write "  <table width='100%' border='0' cellspacing='1' cellpadding='2' align='center' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height=22 colSpan=2 align='center'><b>兑 换 有 效 期</b></td>"
    Response.Write "    </tr>"
    Call ShowUserInfo
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>兑换有效期：</td>"
    Response.Write "      <td>"
    Response.Write "        <input type='radio' name='ChangeType' value='1' checked>使用资金余额："
    Response.Write "        将 <input name='ChangeMoney' type='text' value='10' size='6' maxlength='8' style='text-align:center'> 元兑换成有效期"
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;兑换比率：" & MoneyExchangeValidDay & "元:1天"
    Response.Write "        <br>"
    Response.Write "        <input type='radio' name='ChangeType' value='2'>使用经验积分："
    Response.Write "        将 <input name='ChangeExp' type='text' value='10' size='6' maxlength='8' style='text-align:center'> 分兑换成有效期"
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;兑换比率：" & UserExpExchangeValidDay & "分:1天"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveValid'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value='执行兑换'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
End Sub

Sub Recharge()
    Response.Write "<form name='myform' action='User_Exchange.asp' method='post'>"
    Response.Write "  <table width='500' border='0' cellspacing='1' cellpadding='2' align='center' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height=22 colSpan=2 align='center'><b>充 值 卡 充 值</b></td>"
    Response.Write "    </tr>"
    Call ShowUserInfo
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>充值卡卡号：</td>"
    Response.Write "      <td><input name='CardNum' type='text' value='' size='30' maxlength='30'></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='120' align='right' class='tdbg5'>充值卡密码：</td>"
    Response.Write "      <td><input name='Password' type='text' value='' size='30' maxlength='30'></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'><input name='Action' type='hidden' id='Action' value='SaveRecharge'>"
    Response.Write "        <input name=Submit   type=submit id='Submit' value=' 确 定 '></td>"
    Response.Write "    </tr>"
    Response.Write "  </TABLE>"
    Response.Write "</form>"
End Sub

Sub SendPoint()
    If UserSetting(20) = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>不允许将" & PointName & "赠送给他人！</li>"
        Exit Sub
    End If
    Response.Write "<form name='myform' action='User_Exchange.asp' method='post'>" & vbCrLf
    Response.Write "  <table width='500' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
    Response.Write "    <tr height='22' align='center' class='title'>" & vbCrLf
    Response.Write "      <td colSpan='2'><b>赠送" & PointName & "</b></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='120' align='right' class='tdbg5'>用 户 名：</td>" & vbCrLf
    Response.Write "      <td>" & UserName & "</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='120' align='right' class='tdbg5'>当前" & PointName & "数：</td>" & vbCrLf
    Response.Write "      <td>" & UserPoint & "</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='120' align='right' class='tdbg5'>获赠人的用户名：</td>" & vbCrLf
    Response.Write "      <td> <input name='SendObject' type='text' size='30'> </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='120' align='right' class='tdbg5'>赠送的" & PointName & "数：</td>" & vbCrLf
    Response.Write "      <td> <input name='SendPoint' type='text' maxLength='16' size='30'> </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr align='center' class='tdbg'>" & vbCrLf
    Response.Write "      <td height='40' colspan='2'>" & vbCrLf
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveSendPoint'>" & vbCrLf
    Response.Write "        <input name='Submit' type='submit' id='Submit' value=' 赠送 '>" & vbCrLf
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
End Sub

Sub GetCard()
    Response.Write "<br><table width='100%' cellspacing='1' cellpadding='2'  class='border'><tr class='title'><td align='center'>获取虚拟充值卡</td></tr>"
    Response.Write "<tr><td height='100'>"
    Dim rsOrderItem, rsCard, sqlCard, i, strCardInfo
    Set rsOrderItem = Conn.Execute("select O.OrderFormID,I.ItemID,P.ProductID,P.ProductName,P.ProductKind,I.Amount from PE_OrderForm O inner join (PE_OrderFormItem I inner join PE_Product P on I.ProductID=P.ProductID) on I.OrderFormID=O.OrderFormID where O.UserName='" & UserName & "' and P.ProductKind=3 order by I.ItemID")
    If rsOrderItem.BOF And rsOrderItem.EOF Then
        Response.Write "您还没有购买任何点卡类商品！"
    Else
        Response.Write "<br><br><table width='80%' align='center' cellspacing='1' cellpadding='2'>"
        Response.Write "<tr class='title' align='center'><td>商品名称</td><td>充值卡类型</td><td>充值卡卡号</td><td>充值卡密码</td><td>充值卡面值</td><td>充值卡点数</td><td>充值截止日期</td></tr>"
        Do While Not rsOrderItem.EOF
            Set rsCard = Conn.Execute("select * from PE_Card where ProductID=" & rsOrderItem("ProductID") & " and OrderFormItemID=" & rsOrderItem("ItemID") & "")
            If rsCard.BOF And rsCard.EOF Then
                Response.Write "<tr class='tdbg' align='center'><td>" & rsOrderItem("Productname") & "</td><td colspan='10' align='center'>尚没有交付卡号和密码，请您与我们联系。</td></tr>"
            Else
                i = 0
                Do While Not rsCard.EOF
                    If rsCard("UserName") = "" Then
                        Response.Write "<tr class='tdbg' align='center'><td>" & rsOrderItem("Productname") & "</td>"