📄 admin_usercz.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Cz") then
Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
Server.ScriptTimeOut=9999999
const PageSize=50
dim Action,Conn_E,SearchType,Field,Keyword
Action = Trim(request("Action"))
CurrentPage = Cl.GetClng(request("page"))
SearchType = Cl.GetClng(request("SearchType"))
Field = Trim(request("Field"))
Keyword = Trim(request("Keyword"))
FileName = "Admin_UserCz.asp?Action="&Action&"&SearchType="&SearchType&"&Field="&Field&"&Keyword="&Keyword&""
Header
%>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align="center">
<tr>
<td colspan="2" align="center" class="title"><strong>充 值 卡 管 理</strong></td>
</tr>
<tr class="tdbg">
<td colspan="2">管理选项： <a href="Admin_UserCz.asp">充值卡首页</a> | <a href="Admin_UserCz.asp?Action=AddMore"><font color="blue">批量生成卡号</font></a> | <a href="Admin_UserCz.asp?Action=Add">手动输入卡号</a> | <a href="Admin_UserCz.asp?Action=Export">导出卡号</a> | <a href="Admin_UserCz.asp?Action=DelAll" onclick="return confirm('确定要删除所有未使用的充值卡吗？，注意，此操作不能恢复！');"><font color="red">删除所有未使用的充值卡</font></a></td>
</tr>
<tr class="tdbg">
<form action="Admin_UserCz.asp" method="get" name="form1" id="form1">
<td>快速查询：
<select size="1" name="SearchType" onChange="javascript:submit()">
<option value="0" selected="selected">所有充值卡</option>
<option value="1">已使用的卡</option>
<option value="2">未使用的卡</option>
</select></td>
</form>
<form action="Admin_UserCz.asp" method="post" name="form2" id="form2">
<td><b>高级查询：</b>
<select name="Field" id="Field">
<option value="CzNum" selected="selected">充值卡号</option>
<option value="UserID">用户ID</option>
<option value="UserName">用户名</option>
<option value="CzUserName">充值用户</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30" />
<input type="submit" name="Submit2" value=" 查 询 " />
<input name="SearchType" type="hidden" id="SearchType" value="3" />
</td>
</form>
</tr>
</table>
<script language="JavaScript" type="text/javascript">
CheckSel('SearchType','<%=SearchType%>');
CheckSel('Field','<%=Field%>');
</script>
<br />
<%
Select Case Action
Case "Del"
call Delcard()
Case "DelAll"
Call DelAll()
Case "Add"
call Add()
Case "AddSave"
call AddSave()
Case "AddMore"
call AddMore()
Case "AddMoreok"
call AddMoreok()
Case "Export"
call Export()
Case "DoExport"
call DoExport()
Case "EM"
Call EncourageMent()
Case "EMSave"
Call SaveEncourageMent()
Case else
call main()
End Select
Footer
Sub main()
Set rs=Server.CreateObject("Adodb.RecordSet")
SQL="select ID,CzNum,Pass,Point,DayNum,IsUser,UserID,UserName,UserDate,CzUserName from Cl_UserCz"
Select Case SearchType
Case 0
SQL=SQL & " order by ID Desc"
Case 1
SQL=SQL & " where IsUser<>0 order by ID Desc"
Case 2
SQL=SQL & " where IsUser=0 order by ID Desc"
Case 3
SQL=SQL & " where "
Select Case Field
Case "CzNum"
SQL=SQL & "CzNum Like '%"&Keyword&"%' "
Case "UserID"
SQL=SQL & "UserID="&Cl.GetClng(Keyword)&" "
Case "UserName"
SQL=SQL & "UserName Like '%"&Keyword&"%' "
Case "CzUserName"
SQL=SQL & "CzUserName Like '%"&Keyword&"%' "
Case Else
SQL=SQL & "CzNum Like '%"&Keyword&"%' "
End Select
SQL=SQL & " Order by ID Desc"
Case else
SQL=SQL & " order by ID Desc"
end Select
OpenConn : rs.Open SQL,Conn,1,1
if rs.eof and rs.bof then
TotalPut=0
response.write "<tr class=""tdbg""><td align=""center"" colspan=2><br />没有任何记录！<br /></td></tr>"
else
TotalPut=rs.recordcount
if (TotalPut mod PageSize)=0 then
TotalPages = TotalPut \ PageSize
else
TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
rs.move (CurrentPage-1)*PageSize
SQL = rs.GetRows(PageSize)
ShowContent
response.write Cl.showpage(FileName,TotalPut,PageSize,"条","记录")
end if
rs.close : set rs=nothing
End sub
Sub ShowContent()
%>
<script language="JavaScript" type="text/javascript">
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != "chkAll"&&e.disabled!=true)
e.checked = form.chkAll.checked;
}
}
</script>
<table width="100%" border=0 cellpadding="0" cellspacing="1" align=center class=border>
<form name="myform" method="Post" action="Admin_UserCz.asp" onsubmit="return confirm('确定要删除选中的充值卡吗？');">
<tr align="center" class="title">
<td width="30" align="center">选中</td>
<td width="50" height="22" align="center">序号</td>
<td align="center">卡号</td>
<td width="120" height="22" align="center">密码</td>
<td width="50" height="22" align="center"><%=Cl.Web_Setting(28)%></td>
<td width="50" height="22" align="center">天数</td>
<td width="40" align="center">状态</td>
<td width="80" align="center">使用人</td>
<td width="80" align="center">充值用户</td>
<td width="120" align="center"><strong>使用日期</strong></td>
<td width="40" height="22" align="center">操作</td>
</tr>
<%for i=0 to ubound(SQL,2)%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;">
<td width="30" align="center"><input name="ID" type="checkbox" id="ID" value="<%=SQL(0,i)%>" onclick="unselectall()"></td>
<td width="50" align="center"><%=SQL(0,i)%></td>
<td align="center"><%=SQL(1,i)%></td>
<td width="110" align="center"><%=SQL(2,i)%></td>
<td width="50" align="center"><font color=#ff0033><b><%=SQL(3,i)%></b></font></td>
<td width="50" align="center"><font color=#ff0033><b><%=SQL(4,i)%></b></font></td>
<td width="40" align="center"><%if SQL(5,i)=0 then
response.write "未用"
else
response.write "<font color=#0000ff>已用</font>"
end if%></td>
<td width="80" align="center"><%=SQL(7,i)%></td>
<td width="80" align="center"><%=SQL(9,i)%></td>
<td width="110" align="center"><%=SQL(8,i)%></td>
<td width="40" align="center"><a href="Admin_UserCz.asp?Action=Del&ID=<%=SQL(0,i)%>" onClick="return confirm('确定要删除此充值卡吗？');">删除</a></td>
</tr>
<%Next%>
<tr class="tdbg">
<td height="30" colspan=3><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有充值卡</td>
<td colspan=8>
<input name="Action" type="hidden" id="Action" value="Del">
<input name="Submit" type="submit" id="Submit" value=" 删除选中充值卡 ">
</td>
</tr>
</form>
</table>
<%
End Sub
Sub EncourageMent()
Dim NameStr,IDStr,TitleStr,CIDStr
NameStr = Trim(Request("Name"))
IDStr = Cl.GetClng(Request("ID"))
TitleStr= Trim(Request("Title"))
CIDStr = Cl.GetClng(Request("CID"))
Cl.Load_ChannelSetting(CIDStr)
%>
<script language="JavaScript" type="text/javascript">
function CheckAdd()
{
if(document.myform.point.value=="")
{
alert("充值卡<%=Cl.Web_Setting(28)%>不能为空！");
document.myform.point.focus();
return false;
}
if(document.myform.Message.value=="")
{
alert("站长留言不能为空！");
document.myform.Message.focus();
return false;
}
}
</script>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<form method="post" action="Admin_UserCz.asp?Action=EMSave" name="myform" onsubmit="javascript:return CheckAdd();">
<tr>
<td colspan="2" align="center" class="title"><strong>奖励充值卡</strong></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>卡号面值：</strong></td>
<td class="tdbg"><input type="text" name="point" value="100" maxlength="5" style="text-align:right"><%=Cl.Web_Setting(29)%> <Font Color=#ff0033>* </font> <Font Color=#888888>充值卡充值的有效<%=Cl.Web_Setting(28)%></Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>受 励 人：</strong></td>
<td class="tdbg"><input type="text" name="EMUser" value="<%=NameStr%>" maxlength="45" readonly> <Font Color=#888888>（短消息通知充值卡号和密码）</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>奖 励 人：</strong></td>
<td class="tdbg"><input type="text" name="EMAdmin" value="<%=Cl.MemberName%>" maxlength="45" Disabled> <Font Color=#888888>（管理员所有操作将记录备案）</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>获奖资料：</strong></td>
<td class="tdbg">
获奖资料：【资料编号：<%=IDStr%>】<%=TitleStr%><br />
资料链接：http://<%=Cl.ServerName%><%=Cl.WebDir%><%=Cl.Channel.selectSingleNode("@channeldir").text%>/ShowInfo.asp?InfoID=<%=IDStr%>
</td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>站长留言：</strong></td>
<td class="tdbg">
<textarea name="Message" cols="41" rows="4" id="Message"></textarea>
<a href="javascript:admin_Size(-5,'Message')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'Message')"><img src="images/plus.gif" unselectable="on" border='0'></a><br /><font color=#3370CC>(请审核站长务必写明获奖原因，因为所有奖励信息都会在论坛进行公告。) </font>
</td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input type="hidden" name="IDStr" value="<%=IDStr%>">
<input type="hidden" name="CIDStr" value="<%=CIDStr%>">
<input type="hidden" name="TitleStr" value="<%=TitleStr%>">
<input type="submit" name="Submit" value=" 奖 励 ">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_UserCz.asp'"></td>
</tr>
</form>
</table>
<%
End Sub
Sub SaveEncourageMent()
Dim NameStr,IDStr,TitleStr,CIDStr
Dim point,CzNum,Pass,RemarkStr,Message
Dim rsCz,sModuleName
NameStr = Trim(Request.form("EMUser"))
IDStr = Cl.GetClng(Request.form("IDStr"))
TitleStr= Trim(Request.form("TitleStr"))
CIDStr = Cl.GetClng(Request.form("CIDStr"))
point = Cl.GetClng(request.form("point"))
Cl.Load_ChannelSetting(CIDStr)
Select Case Cl.Channel.selectSingleNode("@moduleid").text
Case "1" : sModuleName="Article"
Case "2" : sModuleName="Soft"
Case "3" : sModuleName="Photo"
Case "4" : sModuleName="Movie"
Case "5" : sModuleName="Product"
Case Else : sModuleName="Article"
End Select
Set rsCz = Cl.Execute("Select IsAward From Cl_"&sModuleName&" Where InfoID=" & IDStr)
If rsCz.bof and rsCz.eof then
Call Cl.OutMsg(0,"对不起，找不到此资料！","-1")
end if
if rsCz("IsAward") = 1 then
Call Cl.OutMsg(0,"此份资料已经奖励，不可以再次奖励，如果必要，请联系管理员！","-1")
'response.write "<script>alert('此份资料已经奖励，不可以再次奖励，如果必要，请联系管理员！');history.go(-1);</script>"
'response.end
end if
rsCz.close : set rsCz=nothing
Cl.Execute("Update Cl_"&sModuleName&" Set IsAward=1,InfoGroup='1,2,3' Where InfoID=" & IDStr)
CzNum = "EM_" & NewCzNum(16)
Pass = Cl.Createpass(16)
RemarkStr="充值卡奖励信息：" & VbCrlf & _
"===========================" & VbCrlf & _
"奖励会员：" & NameStr & "" & VbCrlf & _
"奖励点数：充值卡1张，共计" & point & "点" & VbCrlf & _
"获奖资料：【资料编号：" & IDStr & "】" & TitleStr & VbCrlf & _
"资料链接： http://"&Cl.ServerName & Cl.WebDir & Cl.Channel.selectSingleNode("@channeldir").text & "/ShowInfo.asp?InfoID=" & IDStr & VbCrlf & _
"执行站长：" & Cl.MemberName & "" & VbCrlf & _
"站长留言：" & request.form("Message") & "" & VbCrlf & _
"==========================="
Message="恭喜您获得学科站长 "&Cl.MemberName&" 奖励的中学学科网充值卡一张，请查收！" & VbCrlf & _
"卡号为："&CzNum&"" & VbCrlf & _
"密码为："&Pass&"" & VbCrlf & _
"您可通过用户控制面板充值卡充值，也可以出售、赠送或转让您的充值卡，谢谢您的参与！"& VbCrlf & _
VbCrlf & RemarkStr
RemarkStr = Replace(RemarkStr,"'","''")
Message = Replace(Message,"'","''")
'发送短消息
Cl.Execute_U("insert into "&Db.MessageTable&" (incept,sender,title,content,sendtime,flag,issend) values ('"&NameStr&"','"&Cl.MemberName&"','恭喜您获得中学学科网充值卡！','" & Message & "',"&SqlNowString_U&",0,1)")
'Cl.Execute_U("insert into "&Db.MessageTable&" (incept,sender,title,content,sendtime,flag,issend) values ('备注','"&Cl.MemberName&"','充值卡会员奖励上报！','"&RemarkStr&"',"&SqlNowString_U&",0,1)")
Cl.Execute_U("insert into "&Db.MessageTable&" (incept,sender,title,content,sendtime,flag,issend) values ('"&Cl.MemberName&"','"&Cl.MemberName&"','充值卡会员奖励记录！','"&RemarkStr&"',"&SqlNowString_U&",0,1)")
'添加充值卡
set rsCz=server.createobject("adodb.recordset")
OpenConn : rsCz.open "select Top 1 * from Cl_UserCz",Conn,1,3
rsCz.addnew
rsCz("CzNum") = CzNum
rsCz("Pass") = Pass
rsCz("point") = point
rsCz("Money") = 0
rsCz("DayNum") = 0
rsCz("IsUser") = 0
rsCz("EMUser") = NameStr
rsCz("EMAdmin") = Cl.MemberName
rsCz("Remark") = RemarkStr
rsCz.update
rsCz.close:set rsCz=Nothing
Cl.SaveAdminLog
Call Cl.OutMsg(0,"添加成功！","Admin_UserCz.asp")
end sub
Sub Add()
%>
<script language="JavaScript" type="text/javascript">
function CheckAdd()
{
if(document.myform.CzNum.value=="")
{
alert("充值卡号不能为空！");
document.myform.CzNum.focus();
return false;
}
if(document.myform.point.value=="")
{
alert("充值卡<%=Cl.Web_Setting(28)%>不能为空！");
document.myform.point.focus();
return false;
}
}
</script>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<form method="post" action="Admin_UserCz.asp?Action=AddSave" name="myform" onsubmit="javascript:return CheckAdd();">
<tr>
<td colspan="2" align="center" class="title"><strong>手动添加充值卡</strong></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -