📄 admin_usercz.asp
字号:
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡号码：</strong></td>
<td class="tdbg"><input name="CzNum" type="text" size="50" maxlength="99"></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡密码：</strong></td>
<td class="tdbg"><input name="Pass" type="text" size="50" maxlength="40"></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡<%=Cl.Web_Setting(28)%>： </strong></td>
<td class="tdbg"><input type="text" name="point" maxlength="5"> <Font Color=#ff0033>* </font> <Font Color=#888888>充值卡充值的有效<%=Cl.Web_Setting(28)%>（针对计费方式为扣<%=Cl.Web_Setting(28)%>的用户）</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡<%=Cl.Web_Setting(26)%>： </strong></td>
<td class="tdbg"><input type="text" name="Money" maxlength="5"> <Font Color=#ff0033>* </font> <Font Color=#888888>充值卡充值的有效<%=Cl.Web_Setting(26)%></Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡天数： </strong></td>
<td class="tdbg"><input type="text" name="DayNum" maxlength="5"> <Font Color=#ff0033>* </font> <Font Color=#888888>充值卡充值的有效天数（针对计费方式为有效期的用户）</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"></td>
<td class="tdbg"><font color=red><strong>说明： </strong></font><font color=blue>如果充值的用户计费方式为扣<%=Cl.Web_Setting(28)%>，那么充值的<%=Cl.Web_Setting(28)%>；如果为有效期，那么充值的为天数。</font></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<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 AddMore()
%>
<script language="JavaScript" type="text/javascript">
function CheckAddMore()
{
if(document.myform.Nums.value=="")
{
alert("充值卡数量不能为空！");
document.myform.Nums.focus();
return false;
}
if(document.myform.LongNums.value=="")
{
alert("充值卡位数不能为空！");
document.myform.LongNums.focus();
return false;
}
if(document.myform.point.value=="")
{
alert("充值卡<%=Cl.Web_Setting(28)%>不能为空！");
document.myform.point.focus();
return false;
}
if(document.myform.DayNum.value=="")
{
alert("充值卡天数不能为空！");
document.myform.DayNum.focus();
return false;
}
}
</script>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<form method="post" action="Admin_UserCz.asp" name="myform" onsubmit="javascript:return CheckAddMore();">
<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 name="RName" type="text" Value="Cl_" maxlength="10"> <Font Color=#ff0033>* </font> <Font Color=#888888>生成充值卡号码的前缀</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡数量：</strong></td>
<td class="tdbg"><input name="Nums" type="text" value="5000" maxlength="5"> <Font Color=#ff0033>* </font> <Font Color=#888888>一次性批量生成充值卡的数量</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡位数：</strong></td>
<td class="tdbg"><input name="LongNums" type="text" Value="15" maxlength="2"> <Font Color=#ff0033>* </font> <Font Color=#888888>即卡号长度（不能小于12位，建议15位数以上，前缀不算）</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡<%=Cl.Web_Setting(28)%>： </strong></td>
<td class="tdbg"><input type="text" name="point" value="0" maxlength="5"> <Font Color=#ff0033>* </font> <Font Color=#888888>充值卡充值的有效<%=Cl.Web_Setting(28)%>（针对计费方式为扣<%=Cl.Web_Setting(28)%>的用户）</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡<%=Cl.Web_Setting(26)%>： </strong></td>
<td class="tdbg"><input type="text" name="Money" value="0" maxlength="5"> <Font Color=#ff0033>* </font> <Font Color=#888888>充值卡充值的有效<%=Cl.Web_Setting(26)%></Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"><strong>充值卡天数： </strong></td>
<td class="tdbg"><input type="text" name="DayNum" maxlength="5"> <Font Color=#ff0033>* </font> <Font Color=#888888>充值卡充值的有效天数（针对计费方式为有效期的用户）</Font></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg" align="right"></td>
<td class="tdbg"><font color=red><strong>说明： </strong></font><font color=blue>如果充值的用户计费方式为扣<%=Cl.Web_Setting(28)%>，那么充值的<%=Cl.Web_Setting(28)%>；如果为有效期，那么充值的为天数。</font></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input name="Action" type="hidden" id="Action" value="AddMoreok">
<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 AddSave()
dim CzNum,Pass,point,Money,DayNum
CzNum = request.form("CzNum")
Pass = request.form("Pass")
point = Cl.GetClng(request.form("point"))
Money = Cl.GetClng(request.form("Money"))
DayNum = Cl.GetClng(request.form("DayNum"))
dim rsCz
set rsCz=server.createobject("adodb.recordset")
OpenConn : rsCz.open "select * from Cl_UserCz",Conn,1,3
rsCz.addnew
rsCz("CzNum") = CzNum
rsCz("Pass") = Pass
rsCz("point") = point
rsCz("Money") = Money
rsCz("DayNum") = DayNum
rsCz("IsUser") = 0
rsCz.update
rsCz.close:set rsCz=Nothing
Cl.SaveAdminLog
Call Cl.OutMsg(0,"添加成功！","Admin_UserCz.asp")
end sub
sub AddMoreok()
dim CzNum,Pass,Nums,point,Money,DayNum,LongNums,RName
Nums = Cl.GetClng(request.form("Nums"))
point = Cl.GetClng(request.form("point"))
Money = Cl.GetClng(request.form("Money"))
DayNum = Cl.GetClng(request.form("DayNum"))
LongNums= Cl.GetClng(request.form("LongNums"))
RName = Trim(request.form("RName"))
if LongNums<12 then LongNums=12
if RName="" then RName="Cl_"
dim rsCz,i
set rsCz=server.createobject("adodb.recordset")
OpenConn : rsCz.open "select * from Cl_UserCz",Conn,1,3
for i=1 to Nums step 1
CzNum = RName & NewCzNum(LongNums)
Pass = Cl.Createpass(16)
rsCz.addnew
rsCz("CzNum") = CzNum
rsCz("Pass") = Pass
rsCz("point") = point
rsCz("Money") = Money
rsCz("DayNum") = DayNum
rsCz("IsUser") = 0
rsCz.update
next
rsCz.close
set rsCz=Nothing
Cl.SaveAdminLog
Call Cl.OutMsg(0,"添加成功！","Admin_UserCz.asp")
end sub
sub Delcard()
dim ID
ID=Trim(Request("ID"))
if ID="" then
Cl.ShowErr("<br /><li>请指定要删除的充值卡ID</li>")
end if
if instr(ID,",")>0 then
ID=replace(ID," ","")
sql="Select * from Cl_UserCz where ID in (" & ID & ")"
else
ID=clng(ID)
sql="select * from Cl_UserCz where ID=" & ID
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
OpenConn : rs.Open sql,Conn,1,3
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
rs.close:set rs=Nothing
Cl.SaveAdminLog
call main()
end sub
Sub DelAll()
if Cint(Cl.Admin_Purview(0))<>1 then
Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
Cl.Execute("delete from Cl_UserCz Where IsUser=0")
Cl.SaveAdminLog
Call Cl.OutMsg(0,"恭喜您，删除所有未使用的充值卡成功！","Admin_UserCz.asp")
End Sub
Sub Export()
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="title">
<td height="22" class="title" colspan=2 align=center><b>导 出 充 值 卡</b></td>
</tr>
<form method="Post" action="Admin_UserCz.asp?Action=DoExport">
<tr class="tdbg">
<td width="30%" height="60" align="right"><strong>导出</strong>
<select size=1 name="SearchType">
<option value="0" selected>所有充值卡</option>
<option value="1">已使用的卡</option>
<option value="2">未使用的卡</option>
</select>
<strong>到数据库：</strong></td>
<td width="70%">
<input name="ExportType" type="hidden" id="ExportType" value="1">
<input name="ExportFileName" type="text" id="ExportFileName" value="<%=InstallDir & DatabaseDir%>PlusCzNum.mdb" size="30" maxlength="200">
<input type="submit" name="Submit1" value="开  始"> <br />
(<font color=red>注意：如果目标数据库有数据，则系统会先清空目标数据</font>)
</td>
</tr>
</form>
<form method="Post" action="Admin_UserCz.asp?Action=DoExport">
<tr class="tdbg">
<td width="30%" height="60" align="right"> <strong>导出</strong>
<select size=1 name="SearchType">
<option value="0" selected>所有充值卡</option>
<option value="1">已使用的卡</option>
<option value="2">未使用的卡</option>
</select>
<strong>到EXCEL表：</strong></td>
<td width="70%">
<input name="ExportType" type="hidden" id="ExportType" value="2">
<input name="ExportFileName" type="text" id="ExportFileName" value="Cl_CzNums" size="30" maxlength="200">
<input type="submit" name="Submit2" value="开 始">
</td>
</tr>
</form>
</table>
<%
End Sub
Sub DoExport()
dim ExportType,ExportFileName,strResult,i
ExportType = Cl.GetClng(Request("ExportType"))
ExportFileName = Trim(request("ExportFileName"))
if ExportFileName="" then
FoundErr=True
if ExportType=1 then
ErrMsg=ErrMsg & "<br /><li>请输入要导出的数据库文件名！</li>"
else
ErrMsg=ErrMsg & "<br /><li>请输入要导出的EXCEL文件名！</li>"
end if
else
ExportFileName=replace(replace(ExportFileName,"'",""),chr(34),"")
end if
set rs=server.createobject("adodb.recordset")
SQL="Select ID,CzNum,Pass,Point,Money,DayNum,IsUser,CzType,UserID,UserName,UserDate,EMUser,EMAdmin,Remark from Cl_UserCz"
OpenConn : rs.open sql,Conn,1,1
If Not Rs.EOF Then
Select Case ExportType
Case 1
OpenConn_Export(ExportFileName)
Conn_E.Execute("delete from Cl_UserCz")
dim InsertName,InsertValue,ii
ii=0
Do while Not Rs.Eof
if Rs(10)<>"" then
InsertValue = "" & Rs(0) & ",'" & Rs(1) & "','" & Rs(2) & "'," & Rs(3) & "," & Rs(4) & "," & Rs(5) & "," & Rs(6) & "," & Rs(7) & "," & Rs(8) & ",'" & Rs(9) & "','" & Rs(10) & "','" & Rs(11) & "','" & Rs(12) & "','" & Rs(13) & "'"
Conn_E.Execute("insert into [Cl_UserCz] (ID,CzNum,Pass,Point,[Money],DayNum,IsUser,CzType,UserID,UserName,UserDate,EMUser,EMAdmin,Remark) values (" & InsertValue & ")")
else
InsertValue = "" & Rs(0) & ",'" & Rs(1) & "','" & Rs(2) & "'," & Rs(3) & "," & Rs(4) & "," & Rs(5) & "," & Rs(6) & "," & Rs(7) & "," & Rs(8) & ",'" & Rs(9) & "','" & Rs(11) & "','" & Rs(12) & "','" & Rs(13) & "'"
Conn_E.Execute("insert into [Cl_UserCz] (ID,CzNum,Pass,Point,[Money],DayNum,IsUser,CzType,UserID,UserName,EMUser,EMAdmin,Remark) values (" & InsertValue & ")")
end if
Rs.MoveNext
ii=ii+1
Loop
strResult="操作成功：共导出 "& ii &" 个资料到数据库。<a href="&ExportFileName&">点击这里将数据库下载回本地</a>"
Case 2
Dim x,sTemp
For Each ii In Rs.Fields
sTemp = sTemp & ii.Name & chr(9)
Next
sTemp = sTemp & vbNewLine
Do while Not Rs.eof
For Each x In Rs.Fields
sTemp = sTemp & Replace(Replace(x.value&"",chr(9),""),vbNewLine,"<br>") & chr(9)
Next
sTemp = sTemp & vbNewLine
Rs.MoveNext
LooP
Response.Clear
Response.AddHeader "content-disposition","attachment;filename="&ExportFileName&".xls"
'Response.AddHeader "Content-Length", intFilelength
Response.Charset = "gb2312"
Response.ContentType = "application/vnd.xls"
Response.Write sTemp
'Response.BinaryWrite sTemp
Response.Flush
Response.end
End Select
Else
strResult="没有任何记录!"
End If
rs.close : set rs=Nothing
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" class="title" align=center><b>用户数据批量导出反馈信息</b></td>
</tr>
<tr class="tdbg">
<td height="100" align="center"><%response.write strResult%></td>
</tr>
</table>
<%
Cl.SaveAdminLog
End Sub
Sub OpenConn_Export(DataBaseName)
On Error Resume Next
dim sConnstr
Set Conn_E = Server.CreateObject("ADODB.Connection")
sConnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataBaseName)
Conn_E.Open sConnstr
If Err Then
Response.Write "打开数据库"&DataBaseName&"失败！原因：<font color=red>" & Err.Description
Err.Clear
Response.end
End If
End Sub
Function NewCzNum(sL)
Dim Ran,i
NewCzNum=""
For i=1 To (sL-9)
Randomize
Ran = CInt(Rnd * 9)
NewCzNum = NewCzNum & Ran
Next
Randomize
Ran = Int(90000*rnd)+10000
NewCzNum = Year(Now()) & month(Now()) & day(Now()) & NewCzNum & Ran
End Function
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -