📄 admin_card.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1.0
' 文件名称：admin_card.asp
' 更新日期：2006-5-20
' 官方网站：(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,oRs,UserGroup
Call cardtop()
Action = LCase(Request("action"))
If Not Newasp.CheckAdmin("Admin_Card") Then
Server.Transfer ("showerr.asp")
Response.End
End If
Select Case Trim(Action)
Case "del"
Call delCard
Case "save"
Call saveCard
Case "add"
Call addCard
Case "pay"
Call payCard
Case "upcard"
Call UserCard
Case Else
Call showmain
End Select
If FoundErr = True Then
ReturnError (ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Sub showmain()
Dim i,tablestyle,strLink,keyword
Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
maxperpage = 30
totalrec = 0
Pcount = 1
CurrentPage = Newasp.ChkNumeric(Request("page"))
UserGroup = Newasp.ChkNumeric(Request("groupid"))
If CurrentPage = 0 Then CurrentPage = 1
strLink = "&groupid=" & UserGroup
%>
<script src="include/showpage.js" type="text/javascript"></script>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
<tr>
<th width="5%" nowrap>选择</th>
<th width="15%" nowrap>充 值 卡 号</th>
<th width="15%" nowrap>充 值 卡 密 码</th>
<th width="15%" nowrap>充 值 卡 面 值</th>
<th width="15%" nowrap>充 值 卡 点 数</th>
<th width="10%" nowrap>充 值 卡 时 长</th>
<th width="10%" nowrap>充 值 卡 类 型</th>
<th width="10%" nowrap>会 员 名 称</th>
</tr><form name="selform" method="post" action="?action=del">
<%
SQL = "SELECT CardID,CardMark,CardPass,CardType,UseDayNum,CardMoney,addPoint,UserName,UserGroup,IsConsume FROM [NC_Card]"
If Not IsNull(Request("keyword")) And Request("keyword") <> "" Then
keyword = Trim(Replace(Request("keyword"), "'", ""))
SQL = SQL & " WHERE CardMark like '"& keyword &"%' Or UserName like '"& keyword &"%' ORDER BY IsConsume DESC"
Else
If UserGroup = 0 Then
SQL = SQL & " ORDER BY IsConsume DESC,CardID DESC"
Else
SQL = SQL & " WHERE UserGroup="& UserGroup &" ORDER BY IsConsume DESC,CardID DESC"
End If
End If
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,Conn,1,1
If Not (Rs.BOF And Rs.EOF) Then
totalrec = Rs.RecordCount
Pcount = CLng(totalrec / maxperpage) '得到总页数
If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Pcount Then CurrentPage = Pcount
Rs.PageSize = maxperpage
Rs.AbsolutePage = CurrentPage
i = 0
Do While Not Rs.EOF And i < maxperpage
If Not Response.IsClientConnected Then ResponseEnd
If (i mod 2) = 0 Then
tablestyle = "class='TableRow1'"
Else
tablestyle = "class='TableRow2'"
End If
If Rs(9) = 1 Then
tablestyle = "style='background: #FFFF00;color:red;'"
ElseIf Rs(9) = 2 Then
tablestyle = "style='background: #FFFFFF;color:blue;'"
End If
%>
<tr align="center">
<td <%=tablestyle%>><input type="checkbox" name="carid" value="<%=Rs(0)%>"></td>
<td <%=tablestyle%> title="点击此处对会员进行充值"><a href="?action=pay&carid=<%=Rs(0)%>"><%=Rs(1)%></a></td>
<td <%=tablestyle%>><%=Rs(2)%></td>
<td <%=tablestyle%>><%=FormatCurrency(Rs(5),2,-1)%> 元</td>
<td <%=tablestyle%>><%=Rs(6)%></td>
<td <%=tablestyle%>><%=Rs(4)%></td>
<td <%=tablestyle%>>
<%
If Rs(3) = 0 Then
Response.Write "<span class=""style1"">计点充值卡"
ElseIf Rs(3) = 1 Then
Response.Write "<span class=""style2"">计时充值卡"
Else
Response.Write "<span class=""style3"">会员升级卡"
End If
Response.Write "</span>"
%>
</td>
<td <%=tablestyle%> title="点击查看会员信息">
<%
If Len(Rs(7)) > 0 And Rs(7) <> "无" Then
Response.Write "<a href=""admin_user.asp?action=edit&username="& Rs(7) &""">"& Rs(7) &" </a>"
Else
Response.Write "暂无会员使用"
End If
%>
</td>
</tr>
<%
Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
End If
Rs.Close:Set Rs = Nothing
%>
<tr>
<td class="TableRow1" colspan="8"><input class=Button type="button" name="chkall" value="全选" onClick="CheckAll(this.form)"><input class=Button type="button" name="chksel" value="反选" onClick="ContraSel(this.form)">
<input class="button" type="submit" name="Submit2" value="删除充值卡" onclick="return confirm('您确定要删除充值卡吗?');"></td>
</tr></form>
<tr>
<td class="TableRow2" colspan="8" align="right"><%ShowListPage CurrentPage,Pcount,totalrec,maxperpage,strLink,"充值卡管理" %></td>
</tr>
</table>
<%
End Sub
Sub cardtop()
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
<tr>
<th>会员充值卡管理</th>
</tr>
<form name="myform" method="post" action="">
<tr>
<td class="TableRow1"><b>说明：</b>
你可以在此批量增加或者删除充值卡；点击充值卡号可以对会员进行手动充值。<br>
<input type="text" name="keyword" size="20"> <input type="submit" value="查找"></td>
</tr>
</form>
<tr>
<td class="TableRow2"><a href="admin_card.asp">管理首页</a> - <a href="admin_card.asp?action=add" class="showlink">添加充值卡</a>
<%
Set oRs = Newasp.Execute("SELECT GroupName,Grades FROM NC_UserGroup WHERE Grades<>0 And Grades<>999 ORDER BY Groupid")
Do While Not oRs.EOF
Response.Write " - <a href=admin_card.asp?groupid="
Response.Write oRs("Grades")
Response.Write ">"
Response.Write oRs("GroupName")
Response.Write "</a>" & vbCrLf
oRs.movenext
Loop
Set oRs = Nothing
%>
</td>
</tr>
</table>
<br>
<%
End Sub
Public Sub addCard()
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
<form name="myform" method="post" action="?action=save">
<tr>
<th colspan="2">批量增加充值卡</th>
</tr>
<tr>
<td width='20%' class="TableRow1" align="right"><b>充值卡类型：</b></td>
<td width='80%' class="TableRow1"><select name="cardType">
<option value="0">计点充值卡</option>
<option value="1">计时充值卡</option>
</select></td>
</tr>
<tr>
<td class="TableRow2" align="right"><b>所属用户组：</b></td>
<td class="TableRow2"><select name='UserGrade'>
<%
Set oRs = Newasp.Execute("SELECT GroupName,Grades From NC_UserGroup WHERE Grades<>0 And Grades<>999 ORDER BY Groupid")
Do While Not oRs.EOF
Response.Write Chr(9) & Chr(9) & "<option value=""" & oRs("Grades") & """>"
Response.Write oRs("GroupName")
Response.Write "</option>" & vbCrLf
oRs.movenext
Loop
Set oRs = Nothing
%></select> <span class="style2">! 为不同的会员组设置不同金额的充值卡</span></td>
</tr>
<tr>
<td class="TableRow1" align="right"><b>充值卡金额：</b></td>
<td class="TableRow1"><input type="text" name="CardMoney" size="10" value="0"> 元 <span class="style1">! 如果输入0，用户将免费充值</span></td>
</tr>
<tr>
<td class="TableRow2" align="right"><b>充值点数：</b></td>
<td class="TableRow2"><input type="text" name="addPoint" size="10" value="0"> <span class="style2">! 无论是计时卡或者计点卡，此充值点数都是有效的</span></td>
</tr>
<tr>
<td class="TableRow1" align="right"><b>有效天数：</b></td>
<td class="TableRow1"><input type="text" name="UseDayNum" size="10" value="0"> 天 <span class="style1">! 如果是计时卡，请选择有效期</span></td>
</tr>
<tr>
<td class="TableRow2" align="right"><b>增加卡的数量：</b></td>
<td class="TableRow2"><input type="text" name="num" size="10" value="10"></td>
</tr>
<tr>
<td class="TableRow1" align="right"></td>
<td class="TableRow1"><input type="submit" value="批量增加充值卡" class="buttom"></td>
</tr>
</form>
</table>
<%
End Sub
Sub saveCard()
Dim CardNum,CardMark,CardPass
Dim CardMoney,addPoint,UseDayNum
Dim cardType,UserGrade,i
If Trim(Request.Form("CardMoney")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>充值卡金额不能为空！</li>"
Else
CardMoney = Newasp.CheckNumeric(Request.Form("CardMoney"))
End If
If Trim(Request.Form("addPoint")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>充值点数不能为空！</li>"
Else
addPoint = Newasp.ChkNumeric(Request.Form("addPoint"))
End If
If Trim(Request.Form("UseDayNum")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>有效天数不能为空！</li>"
Else
UseDayNum = Newasp.ChkNumeric(Request.Form("UseDayNum"))
End If
CardNum = Newasp.ChkNumeric(Request.Form("num"))
cardType = Newasp.ChkNumeric(Request.Form("cardType"))
UserGrade = Newasp.ChkNumeric(Request.Form("UserGrade"))
If CardNum < 1 Then CardNum = 1
If Founderr = True Then Exit Sub
SQL="SELECT * FROM NC_Card WHERE (cardid is null)"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,Conn,1,3
For i = 1 To CardNum
Randomize
CardMark = Int((9999999999 - 1000000000 + 1) * Rnd + 1000000000)
CardPass = Int((9898989898 - 1000000000 + 1) * Rnd + 1000000000)
Rs.Addnew
Rs("CardMark") = CardMark
Rs("CardPass") = CardPass
Rs("CardMoney") = CardMoney
Rs("addPoint") = addPoint
Rs("UseDayNum") = UseDayNum
Rs("cardType") = cardType
Rs("UserGroup") = UserGrade
Rs("UserName") = "无"
Rs("IsConsume") = 0
Rs("addExperience") = 0
Rs("addCharm") = 0
Rs("addTime") = Now()
Rs.Update
Next
Rs.Close:Set Rs = Nothing
Response.Redirect "admin_card.asp"
End Sub
Sub delCard()
If Request("carid") <> "" Then
Conn.Execute ("DELETE FROM NC_Card WHERE CardID in (" & Request("carid") & ")")
End If
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End Sub
Sub payCard()
Dim carid
carid = Newasp.ChkNumeric(Request("carid"))
If carid = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>系统参数错误！</li>"
Exit Sub
End If
Set Rs = Newasp.Execute("SELECT * FROM NC_Card WHERE IsConsume<>1 And CardID=" & carid)
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>此卡已经充值，请不要重复使用此卡！</li>"
Set Rs = Nothing
Exit Sub
End If
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
<form name="form2" method="post" action="?action=upcard">
<input type="hidden" name="carid" value="<%=Rs("CardID")%>">
<tr>
<th colspan="2">批量增加充值卡</th>
</tr>
<tr>
<td width='20%' class="TableRow1" align="right"><b>充值卡类型：</b></td>
<td width='80%' class="TableRow1"><select name="cardType" disabled>
<option value="0"<%If Rs("cardType") = 0 Then Response.Write " selected"%>>计点充值卡</option>
<option value="1"<%If Rs("cardType") = 1 Then Response.Write " selected"%>>计时充值卡</option>
</select></td>
</tr>
<tr>
<td class="TableRow2" align="right"><b>所属用户组：</b></td>
<td class="TableRow2"><select name='UserGrade' disabled>
<%
Set oRs = Newasp.Execute("SELECT GroupName,Grades From NC_UserGroup WHERE Grades<>0 And Grades<>999 ORDER BY Groupid")
Do While Not oRs.EOF
Response.Write Chr(9) & Chr(9) & "<option value=""" & oRs("Grades") & """"
If oRs("Grades") = Rs("UserGroup") Then Response.Write " selected"
Response.Write ">"
Response.Write oRs("GroupName")
Response.Write "</option>" & vbCrLf
oRs.movenext
Loop
Set oRs = Nothing
%></select></td>
</tr>
<tr>
<td class="TableRow1" align="right"><b>充值卡金额：</b></td>
<td class="TableRow1"><input type="text" name="CardMoney" size="10" value="<%=Rs("CardMoney")%>" disabled> 元</td>
</tr>
<tr>
<td class="TableRow2" align="right"><b>充值点数：</b></td>
<td class="TableRow2"><input type="text" name="addPoint" size="10" value="<%=Rs("addPoint")%>" disabled></td>
</tr>
<tr>
<td class="TableRow1" align="right"><b>有效天数：</b></td>
<td class="TableRow1"><input type="text" name="UseDayNum" size="10" value="<%=Rs("UseDayNum")%>" disabled> 天</td>
</tr>
<tr>
<td class="TableRow2" align="right"><b>会员名称：</b></td>
<td class="TableRow2">
<%
If Rs("IsConsume") > 1 Then
%>
<input type="text" name="name" size="15" value="<%=Rs("username")%>" disabled>
<input type="hidden" name="username" value="<%=Rs("username")%>">
<%
Else
%>
<input type="text" name="username" size="15" value=""> <span class="style1">! 请输入会员名称进行充值操作</span>
<%
End If
%>
</td>
</tr>
<tr>
<td class="TableRow1" align="right"></td>
<td class="TableRow1"><input type="submit" value="立即进行充值" class="buttom"></td>
</tr>
</form>
</table>
<%
Rs.Close:Set Rs = Nothing
End Sub
Sub UserCard()
Dim carid,UserName,CardType
Dim UseDayNum,addPoint,UserGroup
carid = Newasp.ChkNumeric(Request("carid"))
If Trim(Request.Form("UserName")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请输入会员名称！</li>"
Exit Sub
Else
UserName = Replace(Trim(Request.Form("UserName")), "'", "")
End If
If carid = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>系统参数错误！</li>"
Exit Sub
End If
Set Rs = Newasp.Execute("SELECT CardID,CardMark,CardPass,CardType,UseDayNum,CardMoney,addPoint,UserName,UserGroup,IsConsume FROM NC_Card WHERE IsConsume<>1 And CardID=" & carid)
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>此卡已经充值，请不要重复使用此卡！</li>"
Set Rs = Nothing
Exit Sub
Else
If Len(Rs("UserName")) > 0 And Rs("UserName") <> "无" Then
If Rs("UserName") <> UserName Then
UserName = Replace(Rs("UserName"), "'", "")
End If
End If
CardType = Rs("CardType")
UseDayNum = Rs("UseDayNum")
addPoint = Rs("addPoint")
UserGroup = Rs("UserGroup")
End If
Set Rs = Nothing
If Founderr = True Then Exit Sub
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_User WHERE username='" & UserName & "'"
Rs.Open SQL,Conn,1,3
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>会员充值失败！</li>"
Set Rs = Nothing
Exit Sub
Else
Rs("userpoint").value = Rs("userpoint").value + addPoint
If CardType = 1 Then
Rs("ExpireTime").value = DateAdd("d",UseDayNum,Now())
Rs("UserClass").value = 1
End If
Rs.update
End If
Rs.Close:Set Rs = Nothing
Newasp.Execute ("UPDATE NC_Card SET IsConsume=1 WHERE CardID=" & carid)
AlertInform "会员充值成功！","admin_card.asp"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -