📄 admin_card.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.Base64.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Card" '其他权限
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>充值卡管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "function unselectall()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " if(document.myform.chkAll.checked){" & vbCrLf
Response.Write " document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "function CheckAll(form)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " for (var i=0;i<form.elements.length;i++)" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " var e = form.elements[i];" & vbCrLf
Response.Write " if (e.Name != 'chkAll'&&e.disabled!=true)" & vbCrLf
Response.Write " e.checked = form.chkAll.checked;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function ShowGroup()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " var sel= document.myform.ValidUnit[document.all.ValidUnit.selectedIndex].value;"
Response.Write " if(sel=='5')" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " document.myform.GroupList.style.display='';" & vbCrLf
Response.Write " document.myform.ValidNum.disabled = true;" & vbCrLf
Response.Write " document.myform.ValidNum.value = '1';" & vbCrLf
Response.Write " HelpInfoForPoint.style.display='none';" & vbCrLf
Response.Write " HelpInfoForGroup.style.display='';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " else" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " document.myform.GroupList.style.display='none';" & vbCrLf
Response.Write " document.myform.ValidNum.disabled = false;" & vbCrLf
Response.Write " document.myform.ValidNum.value = '500';" & vbCrLf
Response.Write " HelpInfoForPoint.style.display='';" & vbCrLf
Response.Write " HelpInfoForGroup.style.display='none';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function SetNumValue()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " document.myform.ValidNum.value = document.myform.GroupList[document.all.GroupList.selectedIndex].value;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle("充 值 卡 管 理", 10043)
Response.Write " <tr class='tdbg'> " & vbCrLf
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td height='30'><a href='Admin_Card.asp'>所有充值卡</a> | <a href='Admin_Card.asp?CardStatus=1'>所有未使用的充值卡</a> | <a href='Admin_Card.asp?CardStatus=2'>所有已使用的充值卡</a> | <a href='Admin_Card.asp?CardStatus=3'>所有已失效的充值卡</a> | <a href='Admin_Card.asp?Action=Add'>添加充值卡</a> | <a href='Admin_Card.asp?Action=BatchAdd'>批量生成充值卡</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "Add"
Call Add
Case "SaveAdd"
Call SaveAdd
Case "BatchAdd"
Call BatchAdd
Case "DoBatchAdd"
Call DoBatchAdd
Case "Modify"
Call Modify
Case "SaveModify"
Call SaveModify
Case "Del"
Call DelCard
Case "Show"
Call Show
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim CardType, CardStatus, AgentName
CardType = Trim(Request("CardType"))
CardStatus = PE_CLng(Trim(Request("CardStatus")))
AgentName = ReplaceBadChar(Trim(Request("AgentName")))
strFileName = "Admin_Card.asp?CardType=" & CardType & "&CardStatus=" & CardStatus & "&Field=" & strField & "&Keyword=" & Keyword
Response.Write "<br>" & vbCrLf
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <form name='myform' method='Post' action='Admin_Card.asp'>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr align='center' class='title' height='22'>" & vbCrLf
Response.Write " <td width='30'><strong>选中</strong></td>" & vbCrLf
Response.Write " <td width=60><strong>类 型</strong></td>" & vbCrLf
Response.Write " <td width=100><strong>卡 号</strong></td>" & vbCrLf
Response.Write " <td width=40><strong>面值</strong></td>" & vbCrLf
Response.Write " <td width=40><strong>点 数</strong></td>" & vbCrLf
Response.Write " <td width='60'><strong>截止日期</strong></td>" & vbCrLf
Response.Write " <td><strong>所属商品</strong></td>" & vbCrLf
Response.Write " <td width='40'><strong>状 态</strong></td>" & vbCrLf
Response.Write " <td width='60'><strong>使用者</strong></td>" & vbCrLf
Response.Write " <td width='120'><strong>充值时间</strong></td>" & vbCrLf
Response.Write " <td width='60'><strong>代理商</strong></td>" & vbCrLf
Response.Write " <td width='60'><strong> 操 作</strong></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Dim sqlCard, rsCard, i
sqlCard = "select C.*,P.ProductName from PE_Card C left join PE_Product P on C.ProductID=P.ProductID where 1=1"
Select Case CardType
Case "0"
sqlCard = sqlCard & " and C.CardType=0"
Case "1"
sqlCard = sqlCard & " and C.CardType=1"
End Select
Select Case CardStatus
Case 1
sqlCard = sqlCard & " and C.UserName='' and C.EndDate>=" & PE_Now & ""
Case 2
sqlCard = sqlCard & " and C.UserName<>''"
Case 3
sqlCard = sqlCard & " and C.UserName='' and C.EndDate<" & PE_Now & ""
End Select
If strField <> "" Then
Select Case strField
Case "CardNum"
sqlCard = sqlCard & " and C.CardNum like '%" & Keyword & "%'"
Case "Money"
sqlCard = sqlCard & " and C.Money=" & PE_CDbl(Keyword) & ""
Case "AgentName"
sqlCard = sqlCard & " and C.AgentName='" & Keyword & "'"
Case "UserName"
sqlCard = sqlCard & " and C.UserName='" & Keyword & "'"
End Select
End If
If AgentName <> "" Then
sqlCard = sqlCard & " and C.AgentName='" & AgentName & "'"
End If
sqlCard = sqlCard & " order by C.CardID desc"
Set rsCard = Server.CreateObject("Adodb.RecordSet")
rsCard.Open sqlCard, Conn, 1, 1
If rsCard.Bof And rsCard.EOF Then
rsCard.Close
Set rsCard = Nothing
Response.Write "<tr class='tdbg'><td colspan='20' height='50' align='center'>没有任何充值卡！</td></tr></table>"
Exit Sub
End If
totalPut = rsCard.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsCard.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
i = 0
Do While Not rsCard.EOF
Response.Write "" & vbCrLf
Response.Write " <tr align='center' class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'""> " & vbCrLf
Response.Write " <td width='30'><input name='CardID' type='checkbox' id='CardID' value='" & rsCard("CardID") & "' onclick='unselectall()'"
If rsCard("UserName") <> "" Then Response.Write " disabled"
Response.Write "></td>" & vbCrLf
Response.Write " <td width='60'>"
If rsCard("CardType") = 0 Then
Response.Write "本站充值卡"
Else
Response.Write "<font color='blue'>其他公司卡</font>"
End If
Response.Write "</td>"
Response.Write " <td width='100'><a href='Admin_Card.asp?Action=Show&CardID=" & rsCard("CardID") & "'>" & rsCard("CardNum") & "</a></td>" & vbCrLf
Response.Write " <td width='40'>" & rsCard("Money") & "元</td>" & vbCrLf
Response.Write " <td width='40'>" & GetValidNum(rsCard("ValidNum"), rsCard("ValidUnit")) & arrCardUnit(rsCard("ValidUnit")) & "</td>" & vbCrLf
Response.Write " <td width='60'>" & rsCard("EndDate") & "</td>" & vbCrLf
Response.Write " <td>"
If IsNull(rsCard("ProductName")) Then
Response.Write "<font color='blue'>不通过商城销售</font>"
Else
Response.Write rsCard("ProductName")
End If
Response.Write "</td>" & vbCrLf
Response.Write " <td width='40'>"
If rsCard("UserName") <> "" Then
Response.Write "<font color='gray'>已使用</font>"
Else
If rsCard("OrderFormItemID") > 0 Then
Response.Write "已售出"
Else
If rsCard("EndDate") < Date Then
Response.Write "<font color='red'>已失效</font>"
Else
If rsCard("ProductID") > 0 Then
Response.Write "<font color='green'>未售出</font>"
Else
Response.Write "<font color='green'>未使用</font>"
End If
End If
End If
End If
Response.Write " </td>" & vbCrLf
Response.Write " <td width='60'><a href='Admin_User.asp?Action=Show&UserName=" & rsCard("UserName") & "'>" & rsCard("UserName") & "</a></td>" & vbCrLf
Response.Write " <td width='120'>" & rsCard("UseTime") & "</td>" & vbCrLf
Response.Write " <td width='60'><a href='Admin_Card.asp?AgentName=" & rsCard("AgentName") & "'>" & rsCard("AgentName") & "</a></td>" & vbCrLf
Response.Write " <td width='60'>"
If rsCard("UserName") = "" And rsCard("OrderFormItemID") = 0 Then
Response.Write "<a href='Admin_Card.asp?Action=Modify&CardID=" & rsCard("CardID") & "'>修改</a> "
Response.Write "<a href='Admin_Card.asp?Action=Del&CardID=" & rsCard("CardID") & "' onclick=""return confirm('确定要删除此充值卡吗？')"">删除</a>"
End If
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
i = i + 1
If i >= MaxPerPage Then Exit Do
rsCard.MoveNext
Loop
rsCard.Close
Set rsCard = Nothing
Response.Write "</table> " & vbCrLf
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='200' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'>" & vbCrLf
Response.Write " 选中本页显示的所有充值卡</td>" & vbCrLf
Response.Write " <td><input name='Action' type='hidden' id='Action' value='Del'>" & vbCrLf
Response.Write " <input name='Submit' type='submit' id='Submit' value='删除选中的充值卡' onclick=""document.myform.Action.value='Del';return confirm('确定要删除选中的充值卡吗？');""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</form></tr></table>" & vbCrLf
Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "张充值卡", True)
Response.Write "<br>" & vbCrLf
Response.Write "<form method='Get' name='SearchForm' action='Admin_Card.asp'>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='80' align='right'><strong>充值卡搜索：</strong></td>"
Response.Write " <td>"
Response.Write "<select name='CardType'><option value='-1' selected>充值卡类型</option><option value='0'>本站充值卡</option><option value='1'>其他公司卡</option></select>"
Response.Write "<select name='CardStatus'><option value='-1' selected>充值卡状态</option><option value='1'>未使用</option><option value='2'>已使用</option><option value='3'>已失效</option></select>"
Response.Write "<select name='Field'><option value='CardNum'>卡号</option><option value='Money'>面值</option><option value='AgentName'>代理商</option><option value='UserName'>使用者</option></select>"
Response.Write "<input type='text' name='keyword' size='20' value='' maxlength='50' onFocus='this.select();'>"
Response.Write "<input type='submit' name='Submit' value='搜索'>"
Response.Write "</td></tr></table></form>"
Response.Write "<br>" & vbCrLf
Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td class='title'>小贴士</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='50' class='tdbg'>" & vbCrLf
Response.Write " <li>通过商城销售的充值卡有四种状态：未售出、已售出、已使用、已失效</li>" & vbCrLf
Response.Write " <li><font color='blue'>不通过商城销售</font>的充值卡有三种状态：未使用、已使用、已失效</li>" & vbCrLf
Response.Write " <li>已经售出或已经使用过的充值卡将不能修改和删除</li>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -