admin_card.asp

个人网站比较简短

Sub BatchAdd()
    Response.Write "<form method='post' action='Admin_Card.asp' name='myform'>" & vbCrLf
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border' >" & vbCrLf
    Response.Write "    <tr class='title'> " & vbCrLf
    Response.Write "      <td height='22' colspan='2'> <div align='center'><strong>批 量 生 成 充 值 卡</strong></div></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><strong>充值卡所属商品：</strong><br>商城中的某张点卡类商品可以对应多张实际的充值卡，会员在购买点卡类商品后，可以通过“获取虚拟充值卡”来得到这里输入的卡号和密码。</td>" & vbCrLf
    Response.Write "      <td width='60%'><select name='ProductID'><option value='0'>不通过商城销售</option>"
    Dim rsProduct
    Set rsProduct = Conn.Execute("select ProductID,ProductName from PE_Product where ProductKind=3 order by ProductID")
    Do While Not rsProduct.EOF
        Response.Write "<option value='" & rsProduct(0) & "'>" & rsProduct(1) & "</option>"
        rsProduct.MoveNext
    Loop
    Set rsProduct = Nothing
    Response.Write "</select>"
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><strong>充值卡数量：</strong></td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='Nums' type='text' value='100' size='10' maxlength='10'>" & vbCrLf
    Response.Write "        张</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    'Response.Write "    <tr class='tdbg'>" & vbCrLf
    'Response.Write "      <td width='40%'><strong>充值卡号码前缀：</strong><br>例如：2008,PE2008等固定不变的字母或数字</td>" & vbCrLf
    'Response.Write "      <td width='60%'><input name='CardNumPrefix' type='text' id='CardNumPrefix' value='2008' size='10' maxlength='10'></td>" & vbCrLf
    'Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%'><strong>充值卡号码规则：</strong><br><span style='color:#0000ff'>说明：每个?代表一个英文字母，#代表一个数字，<br />                  *代表一个英文字母或数字(自定义符号必须是半角)</span></td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='CardNumStr' type='text' id='CardNumStr' value='PE???###?#*' size='15' maxlength='15'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%'><strong>充值卡密码规则：</strong><br><span style='color:#0000ff'>说明：每个?代表一个英文字母，#代表一个数字，<br />                  *代表一个英文字母或数字(自定义符号必须是半角)</span></td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='PasswordStr' type='text' id='PasswordStr' value='PE###?#*' size='10' maxlength='10'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%'><strong>充值卡面值：</strong><br>" & vbCrLf
    Response.Write "      即购买人需要花费的实际金额</td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='Money' type='text' id='Money' value='50' size='10'>" & vbCrLf
    Response.Write "      元 <font color='red'>注意要与所属商品中描述的面值相同。</font></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><strong>充值卡点数、资金或有效期：</strong><br>" & vbCrLf
    Response.Write "        购买人可以得到的点数、资金或有效期" & vbCrLf
    Response.Write "      </td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='ValidNum' type='text' id='ValidNum' value='500' size='10' maxlength='10'>" & vbCrLf
    Response.Write "        <select name='ValidUnit' id='ValidUnit' onchange='javascript:ShowGroup();'>" & vbCrLf
    Response.Write "          <option value='0' selected>点</option>" & vbCrLf
    Response.Write "          <option value='1'>天</option>" & vbCrLf
    Response.Write "          <option value='2'>月</option>" & vbCrLf
    Response.Write "          <option value='3'>年</option>" & vbCrLf
    Response.Write "          <option value='4'>元</option>" & vbCrLf
    Response.Write "          <option value='5'>组</option>" & vbCrLf
    Response.Write "        </select>"

    Response.Write "        <select name='GroupList' onchange='javascript:SetNumValue();' id='GroupList' style='display:none'>" & vbCrLf
    Dim rsGroupList
    Set rsGroupList = Conn.Execute("Select GroupID,GroupName from PE_UserGroup Order by GroupID asc")
    Do While Not rsGroupList.EOF
        Response.Write "         <option value='" & rsGroupList("GroupID") & "'>" & rsGroupList("GroupName") & "</option>" & vbCrLf
        rsGroupList.MoveNext
    Loop
    rsGroupList.Close
    Set rsGroupList = Nothing
    Response.Write "         </select>"
            
    Response.Write "<span id='HelpInfoForPoint'><font color='red'>注意要与所属商品中描述的点数相同。</font></span>"
    Response.Write "<span id='HelpInfoForGroup' style='display:none'><font color='red'>请选择充值卡对应的会员组。</font></span></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%'><strong>充值截止期限：</strong><br>" & vbCrLf
    Response.Write "      购买人必须在此日期前进行充值，否则自动失效</td>" & vbCrLf
    Response.Write "      <td width='60%' class='tdbg'><input name='EndDate' type='text' id='EndDate' value='" & DateAdd("yyyy", 1, Date) & "' size='10' maxlength='10'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><strong>代理商：</strong></td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='AgentName' type='text' value='' size='20' maxlength='20'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td height='40' colspan='2' align='center'><input name='Action' type='hidden' id='Action' value='DoBatchAdd'> " & vbCrLf
    Response.Write "        <input  type='submit' name='Submit' value=' 添 加 ' style='cursor:hand;'> " & vbCrLf
    Response.Write "        &nbsp; <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Card.asp'"" style='cursor:hand;'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
End Sub

Sub Add()
    Response.Write "<form name='myform' method='post' action='Admin_Card.asp'>" & vbCrLf
    Response.Write "  <table width='100%'  border='0' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
    Response.Write "    <tr align='center'>" & vbCrLf
    Response.Write "      <td colspan='2' class='title'><strong>添 加 充 值 卡</strong></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><strong>充值卡类型：</strong></td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='CardType' type='radio' value='0' checked>本站充值卡&nbsp;&nbsp;&nbsp;&nbsp;<font color='blue'>购买者得到卡号和密码后，可以直接在本站进行充值</font><br><input name='CardType' type='radio' value='1'>其他公司卡&nbsp;&nbsp;&nbsp;&nbsp;<font color='blue'>购买者得到卡号和密码后，需要去相关公司或网站进行充值</font></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><b>充值卡所属商品：</b><br>商城中的某张点卡类商品可以对应多张实际的充值卡，会员在购买点卡类商品后，可以通过“获取虚拟充值卡”来得到这里输入的卡号和密码。</td>" & vbCrLf
    Response.Write "      <td width='60%'><select name='ProductID'><option value='0'>不通过商城销售</option>"
    Dim rsProduct
    Set rsProduct = Conn.Execute("select ProductID,ProductName from PE_Product where ProductKind=3 order by ProductID")
    Do While Not rsProduct.EOF
        Response.Write "<option value='" & rsProduct(0) & "'>" & rsProduct(1) & "</option>"
        rsProduct.MoveNext
    Loop
    Set rsProduct = Nothing
    Response.Write "</select>"
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><strong>添加方式：</strong></td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='AddType' type='radio' value='0' checked onclick=""trSingle1.style.display='';trSingle2.style.display='';trBatch.style.display='none';""> 单张充值卡&nbsp;&nbsp;&nbsp;&nbsp;<input name='AddType' type='radio' value='1' onclick=""trSingle1.style.display='none';trSingle2.style.display='none';trBatch.style.display='';"">批量添加充值卡</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    
    Response.Write "    <tr class='tdbg' id='trSingle1'>" & vbCrLf
    Response.Write "      <td width='40%'><b>充值卡卡号：</b></td>" & vbCrLf
    Response.Write "      <td><input name='CardNum' type='text' id='CardNum' size='20' maxlength='30'>" & vbCrLf
    Response.Write "        <font color='#0000FF'>建议设为10--15位</font></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg' id='trSingle2'>" & vbCrLf
    Response.Write "      <td width='40%'><b>充值卡密码：</b></td>" & vbCrLf
    Response.Write "      <td><input name='Password' type='text' id='Password' size='20' maxlength='30'>" & vbCrLf
    Response.Write "        <font color='#0000FF'>建议设为6--10位 </font></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    
    Response.Write "    <tr class='tdbg' id='trBatch' style='display:none'>" & vbCrLf
    Response.Write "      <td width='40%'><b>格式文本：</b><br><font color='red'>请按照每行一张卡，每张卡按“卡号＋分隔符＋密码”的格式录入</font><br>例1：734534759*kSo94Sf4Xs（以“*”作为分隔符）<br>例2：98273305834|lo23ji6x（以“|”作为分隔符）</td>" & vbCrLf
    Response.Write "      <td><textarea name='CardText' rows='10' cols='50'></textarea><br>分隔符：<input name='strSplit' type='text' id='strSplit' size='20' maxlength='30'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%'><b>充值卡面值：</b><br>即购买人需要花费的实际金额</td>" & vbCrLf
    Response.Write "      <td><input name='Money' type='text' id='Money' size='10' maxlength='10'>" & vbCrLf
    Response.Write "        元</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%'><b>充值卡点数、资金或有效期：</b><br>购买人可以得到的点数、资金或有效期</td>" & vbCrLf
    Response.Write "      <td><input name='ValidNum' type='text' id='ValidNum' size='10' maxlength='10'>" & vbCrLf
    Response.Write "          <select name='ValidUnit' id='ValidUnit' onchange='javascript:ShowGroup();'>" & vbCrLf
    Response.Write "            <option value='0' selected>点</option>" & vbCrLf
    Response.Write "            <option value='1'>天</option>" & vbCrLf
    Response.Write "            <option value='2'>月</option>" & vbCrLf
    Response.Write "            <option value='3'>年</option>" & vbCrLf
    Response.Write "            <option value='4'>元</option>" & vbCrLf
    Response.Write "            <option value='5'>组</option>" & vbCrLf
    Response.Write "          </select>" & vbCrLf

    Response.Write "        <select name='GroupList' onchange='javascript:SetNumValue();' id='GroupList' style='display:none'>" & vbCrLf
    Dim rsGroupList
    Set rsGroupList = Conn.Execute("Select GroupID,GroupName from PE_UserGroup Order by GroupID asc")
    Do While Not rsGroupList.EOF
        Response.Write "         <option value='" & rsGroupList("GroupID") & "'>" & rsGroupList("GroupName") & "</option>" & vbCrLf
        rsGroupList.MoveNext
    Loop
    rsGroupList.Close
    Set rsGroupList = Nothing
    Response.Write "         </select>"
            
    Response.Write "<span id='HelpInfoForPoint'><font color='red'>注意要与所属商品中描述的点数相同。</font></span>"
    Response.Write "<span id='HelpInfoForGroup' style='display:none'><font color='red'>请选择充值卡对应的会员组。</font></span></td>" & vbCrLf
    Response.Write "    </td></tr>" & vbCrLf

    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%'><b>充值截止日期：</b><br>购买人必须在此日期前进行充值，否则自动失效</td>" & vbCrLf
    Response.Write "      <td><input name='EndDate' type='text' id='EndDate' value='" & DateAdd("yyyy", 1, Date) & "' size='10' maxlength='10'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='40%'><strong>代理商：</strong></td>" & vbCrLf
    Response.Write "      <td width='60%'><input name='AgentName' type='text' value='' size='20' maxlength='20'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr align='center' class='tdbg'>" & vbCrLf
    Response.Write "      <td height='30' colspan='2'><input name='Action' type='hidden' id='Action' value='SaveAdd'>" & vbCrLf
    Response.Write "          <input type='submit' name='Submit' value=' 添 加 '></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
End Sub

Sub Modify()
    Dim CardID, rsCard
    CardID = Trim(Request("CardID"))
    If CardID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要删除的充值卡ID</li>"
        Exit Sub
    Else
        CardID = PE_CLng(CardID)
    End If
    Set rsCard = Conn.Execute("select * from PE_Card where CardID=" & CardID & "")
    If rsCard.Bof And rsCard.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的充值卡！</li>"
    Else
        If rsCard("UserName") <> "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>此充值卡已经被使用，不能再修改！</li>"
        End If
        If rsCard("OrderFormItemID") > 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>此充值卡已经售出，不能再修改！</li>"
        End If
    End If
    If FoundErr = True Then
        Set rsCard = Nothing
        Exit Sub
    End If
    Response.Write "<form name='myform' method='post' action='Admin_Card.asp'>" & vbCrLf
    Response.Write "  <table width='100%'  border='0' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
    Response.Write "    <tr align='center'>" & vbCrLf
    Response.Write "      <td colspan='2' class='title'><strong>修 改 充 值 卡</strong></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' align='right'><b>所属商品：</b></td>" & vbCrLf
    Response.Write "      <td>" & GetProductName(rsCard("ProductID")) & "</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' align='right'><b>充值卡卡号：</b></td>" & vbCrLf
    Response.Write "      <td><input name='CardNum' type='text' id='CardNum' value='" & rsCard("CardNum") & "' size='20' maxlength='30' disabled></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' align='right'><b>充值卡密码：</b></td>" & vbCrLf
    Response.Write "      <td><input name='Password' type='text' id='Password' value='" & Base64decode(rsCard("Password")) & "' size='20' maxlength='30'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' align='right'><b>充值卡面值：</b></td>" & vbCrLf
    Response.Write "      <td><input name='Money' type='text' id='Money' value='" & rsCard("Money") & "' size='10' maxlength='10'>" & vbCrLf
    Response.Write "      元</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' align='right'><b>充值卡点数：</b></td>" & vbCrLf
    Response.Write "      <td><input name='ValidNum'"
    If rsCard("ValidUnit") = 5 Then Response.Write " disabled "
    Response.Write "type='text' id='ValidNum' value='" & rsCard("ValidNum") & "' size='10' maxlength='10'>" & vbCrLf
    Response.Write "        <select name='ValidUnit' id='ValidUnit' onchange='javascript:ShowGroup();'>" & vbCrLf
    Response.Write "          <option value='0'"
    If rsCard("ValidUnit") = 0 Then Response.Write " selected"
    Response.Write ">点</option>" & vbCrLf
    Response.Write "          <option value='1'"
    If rsCard("ValidUnit") = 1 Then Response.Write " selected"
    Response.Write ">天</option>" & vbCrLf
    Response.Write "          <option value='2'"
    If rsCard("ValidUnit") = 2 Then Response.Write " selected"
    Response.Write ">月</option>" & vbCrLf
    Response.Write "          <option value='3'"
    If rsCard("ValidUnit") = 3 Then Response.Write " selected"
    Response.Write ">年</option>" & vbCrLf
    Response.Write "          <option value='4'"
    If rsCard("ValidUnit") = 4 Then Response.Write " selected"
    Response.Write ">元</option>" & vbCrLf
    Response.Write "          <option value='5'"
    If rsCard("ValidUnit") = 5 Then Response.Write " selected"
    Response.Write ">组</option>" & vbCrLf
    Response.Write "        </select>"

    Response.Write "        <select name='GroupList' onchange='javascript:SetNumValue();' id='GroupList'"
    If rsCard("ValidUnit") <> 5 Then Response.Write " style='display:none'"
    Response.Write " >" & vbCrLf
    Dim rsGroupList
    Set rsGroupList = Conn.Execute("Select GroupID,GroupName from PE_UserGroup Order by GroupID asc")
    Do While Not rsGroupList.EOF
        Response.Write "         <option value='" & rsGroupList("GroupID") & "'"
        If rsCard("ValidNum") = rsGroupList("GroupID") Then Response.Write " selected"
        Response.Write " >" & rsGroupList("GroupName") & "</option>" & vbCrLf
        rsGroupList.MoveNext
    Loop
    rsGroupList.Close
    Set rsGroupList = Nothing
    Response.Write "         </select>"
            
    Response.Write "<span id='HelpInfoForPoint'"
    If rsCard("ValidUnit") = 5 Then Response.Write " style='display:none'"
    Response.Write "><font color='red'>注意要与所属商品中描述的点数相同。</font></span>"
    Response.Write "<span id='HelpInfoForGroup'"
    If rsCard("ValidUnit") <> 5 Then Response.Write "style='display:none'"
    Response.Write "><font color='red'>请选择充值卡对应的会员组。</font></span></td>" & vbCrLf
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='40%' align='right'><b>充值截止日期：</b></td>" & vbCrLf
    Response.Write "      <td><input name='EndDate' type='text' id='EndDate' value='" & rsCard("EndDate") & "' size='10' maxlength='10'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'> " & vbCrLf