📄 card.asp
字号:
ErrInfo = ErrInfo & "<li>批量添加中："&asc(Arr_Tmp1(iR))&"未入库，原因：分割符“|”数量不正确。</li>"
else
if CheckCardCF( Trim(Arr_Tmp2(0)) ) <> "" then
ErrInfo = ErrInfo & "<li>卡号: "&Trim(Arr_Tmp2(0))&" 在库中已存在.未入库。</li>"
else
Str_Tmp2 = Str_Tmp2 & Trim(Arr_Tmp2(0)) & "|" & Arr_Tmp2(1) & vbcr
end if
end if
next
Str_Tmp1 = Str_Tmp2
if Str_Tmp2 <> "" then
Arr_Tmp1 = split(Str_Tmp1,vbcr) ''判断后的每行数据
for iR = lbound(Arr_Tmp1) to ubound(Arr_Tmp1) - 1
Arr_Tmp2=split(Arr_Tmp1(iR),"|") ''拆分卡号和密码
''+=========================
VClass_Rs.Addnew
VClass_Rs("CardNumber") = Trim(Arr_Tmp2(0)) : VClass_Rs("CardPasswords") = Encrypt( Arr_Tmp2(1) )
for each Str_Tmp in Arr_Tmp
if request.Form("frm_"&Str_Tmp)<>"" then
VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
else
VClass_Rs(Str_Tmp) = null
end if
next
VClass_Rs.update
''+=========================
Put_i = Put_i + 1
next
Str_Tmp2 = replace(Str_Tmp2,vbcr,"<br /> ")
ErrInfo = ErrInfo & "<li>共入库 "&Put_i&" 张卡.</li>"
end if
end if
end if
VClass_Rs.close
'response.End()
if Put_i>0 then
response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode("User/Card.asp?Act=Add" )&"&ErrCodes="&server.URLEncode("<li>恭喜，新增成功。</li>详细信息:"&ErrInfo))
else
response.Redirect("../Error.asp?ErrCodes="&server.URLEncode(ErrInfo))
end if
end if
'''''''''''''''''''''
end if
End Sub
''=========================================================
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//点击标题排序
/////////////////////////////////////////////////////////
var Old_Sql = document.URL;
function OrderByName(FildName)
{
var New_Sql='';
var oldFildName="";
if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
{
if (Old_Sql.indexOf("=")>-1)
New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
else
New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
}
else
{
var tmp_arr_ = Old_Sql.split('?')[1].split('&');
for(var ii=0;ii<tmp_arr_.length;ii++)
{
if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
{
oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
break;
}
}
oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
}
//alert(New_Sql);
location = New_Sql;
}
/////////////////////////////////////////////////////////
-->
</script>
</HEAD>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../../FS_Inc/Prototype.js"></script>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes oncontextmenu="return true;">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr class="hback">
<td class="xingmu" >冲值卡管理</td>
</tr>
<tr class="hback">
<td><a href="Card.asp?Act=View">管理首页</a> | <a href="Card.asp?Act=Add">新建</a>
| <a href="Card.asp?Act=Put">批量生成</a> | <a href="Card.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("IsUse=0"))%>">未使用</a>
| <a href="Card.asp?Act=View&Add_Sql=<%=Encrypt("IsUse=1")%>">已使用</a>
|
<% If G_IS_SQL_User_DB=1 then%>
<a href="Card.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("datediff(s,CardOverdueTime,'"&DateValue(Now())&"')>0"))%>">已过期</a>
<%Else%>
<a href="Card.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("datediff('s',CardOverdueTime,'"&DateValue(Now())&"')>0"))%>">已过期</a>
<%End if%>
| <a href="Card.asp?Act=Search">查询</a></td>
</tr>
</table>
<%
'******************************************************************
select case request.QueryString("Act")
case "","View","SearchGo"
View
case "Add","Edit","Put"
Add_Edit
case "Save"
Save
case "Del"
Del
case "Search"
Search
end select
'******************************************************************
Sub View()%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form1" id="form1" method="post" action="?Act=Del">
<tr class="hback">
<td align="center" class="xingmu" ><a href="javascript:OrderByName('CardNumber')" class="sd"><b>〖卡号〗</b></a> <span id="Show_Oder_CardNumber"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('CardMoney')" class="sd"><b>面值</b></a> <span id="Show_Oder_CardMoney"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('CardDateNumber')" class="sd"><b>天数</b></a> <span id="Show_Oder_CardDateNumber"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('CardPoint')" class="sd"><b>点数</b></a> <span id="Show_Oder_CardPoint"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('isBuy')" class="sd"><b>状态</b></a> <span id="Show_Oder_isBuy"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('CardOverDueTime')" class="sd"><b>过期时间</b></a> <span id="Show_Oder_CardOverDueTime"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('UserNumber')" class="sd"><b>使用者</b></a> <span id="Show_Oder_UserNumber"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('UserTime')" class="sd"><b>冲值时间</b></a> <span id="Show_Oder_UserTime"></span></td>
<td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
</tr>
<%
response.Write( Get_Card( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
%>
</form>
</table>
<%End Sub
Sub Add_Edit()
Dim CardID,Bol_IsEdit,isuse,UserTime
Bol_IsEdit = false
if request.QueryString("Act")="Edit" then
CardID = request.QueryString("CardID")
if CardID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的CardID没有提供</li>") : response.End()
VClass_Sql = "select CardID,CardNumber,CardPasswords,CardMoney,CardDateNumber,CardPoint,CardOverDueTime,IsUse,UserNumber,UserTime,AddTime,isBuy from FS_ME_Card where CardID="&CardID
Set VClass_Rs = CreateObject(G_FS_RS)
VClass_Rs.Open VClass_Sql,User_Conn,1,1
if VClass_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
Bol_IsEdit = True
isuse = VClass_Rs("IsUse")
UserTime = VClass_Rs("UserTime")
if UserTime<>"" then if isdate(UserTime) then UserTime = formatdatetime(UserTime,2)
else
isuse = 0
end if
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form_Save" id="form_Save" onSubmit="return chkinput(this);" method="post" action="?Act=Save">
<tr class="hback">
<td colspan="3" align="left" class="xingmu" ><%if Bol_IsEdit then response.Write("修改点卡信息<input type=""hidden"" name=""CardID"" value="""&VClass_Rs(0)&""">") else response.Write("新增点卡") end if%></td>
</tr>
<!---------->
<tr class="hback" <%if Bol_IsEdit = True or request.QueryString("Act")="Put" then response.Write(" style=""display='none'"" ") end if%>>
<td width="20%" align="right">添加方式</td>
<td>
<input name="AddMode" type="radio" onClick="CNum.style.display='';CPwd.style.display='';More_Mode.style.display='none';frm_CardNumber.require='true';frm_CardPasswords.require='true';More_Mode_Area.require='false';" value="1" checked>
单张冲值卡
<input type="radio" name="AddMode" value="0" onClick="CNum.style.display='none';CPwd.style.display='none';More_Mode.style.display='';frm_CardNumber.require='false';frm_CardPasswords.require='false';More_Mode_Area.require='true';">
批量添加冲值卡
</td>
</tr>
<!--多张-->
<tr class="hback" id="More_Mode" style="display:none;">
<td width="20%" align="right">格式文本</td>
<td>
<textarea name="More_Mode_Area" cols="45" rows="10" dataType="Require" min="5" max="10000" msg="长度必须在5-10000之间"></textarea>
<br>
分隔符为<span class="tx">|</span>，请按照每行一张卡，回车换行，每张卡格式为“<span class="tx">卡号|密码</span>”
<br>
<span class="tx">自动生成:
<input type="text" name="PutCardNum" size="10" value="10" maxlength="8" title="只能数字" onKeyUp="value=value.replace(/[^0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^0-9]/g,''))">
<input type="button" value="Go" onClick="try{GetCodes(PutCardNum.value)} catch(e){return};"></span>
</td>
</tr>
<!--单张-->
<tr class="hback" id="CNum" <%if request.QueryString("Act")="Put" then response.Write(" style=""display='none'"" ") end if%>>
<td width="20%" align="right">卡号</td>
<td>
<input type="text" name="frm_CardNumber" size="40" value="<%if Bol_IsEdit then response.Write( VClass_Rs(1) ) else if request.QueryString("Act")<>"Search" then response.Write(GetRamCode(14)) end if end if%>"<%if request.QueryString("Act")="Put" then response.Write(" require=""false"" ") else response.Write(" require=""true"" ") end if%> dataType="LimitB" min="2" max="30" msg="长度必须在2-30之间">
<span class="tx">不填则自动生成</span>
</td>
</tr>
<tr class="hback" id="CPwd" <%if request.QueryString("Act")="Put" then response.Write(" style=""display='none'"" ") end if%>>
<td align="right">卡号密码</td>
<td>
<input type="text" name="frm_CardPasswords" size="40" value="<%if Bol_IsEdit then response.Write(Decrypt( VClass_Rs(2) )) else if request.QueryString("Act")<>"Search" then response.Write(GetRamCode(6)) end if end if%>"<%if request.QueryString("Act")="Put" then response.Write(" require=""false"" ") else response.Write(" require=""true"" ") end if%>dataType="LimitB" min="2" max="30" msg="长度必须在2-30之间">
</td>
</tr>
<!---->
<!----批量生成时显示------>
<%if request.QueryString("Act")="Put" then
Dim Put_Rs,Put_Sql,Bol_Put_IsEdit
Bol_Put_IsEdit = false
Put_Sql = "select top 1 PutNum,CardAddStr,CardNum_Len,CardPwd_Len from FS_ME_CardPut order by PutID desc"
''取最后一次的设置
set Put_Rs=User_Conn.execute(Put_Sql)
if not Put_Rs.eof then Bol_Put_IsEdit = true
%>
<tr class="hback">
<td width="20%" align="right">生成数量</td>
<td>
<input type="hidden" name="ActPut" value="1">
<input type="text" name="Put_PutNum" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(0)) else response.Write("1") end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
</td>
</tr>
<tr class="hback">
<td width="20%" align="right">冲值卡号前缀</td>
<td>
<input type="text" name="Put_CardAddStr" onKeyUp="value=value.replace(/[^a-zA-Z0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9]/g,''))" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(1)) else response.Write("FS2006") end if%>" datatype="LimitB" min="-1" max="20" msg="前缀不能超过20个字符">
默认为FS2006可为空</td>
</tr>
<tr class="hback">
<td width="20%" align="right">冲值卡号长度</td>
<td>
<input type="text" name="Put_CardNum_Len" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(2)) else response.Write("12") end if%>" dataType="Compare" to="1" msg="必须在区间[前缀长+2,30]以内" operator="GreaterThanEqual">
</td>
</tr>
<tr class="hback">
<td width="20%" align="right">冲值卡密码长度</td>
<td>
<input type="text" name="Put_CardPwd_Len" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(3)) else response.Write("8") end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
</td>
</tr>
<tr class="hback">
<td width="20%" align="right">卡密码构成方式</td>
<td>
<input name="Put_Pwd_Type" type="checkbox" value="1" checked<%'if Bol_Put_IsEdit then if instr(Put_Rs(4),"1")>0 then response.Write(" checked") end if else response.Write(" checked") end if%>>
数字
<input type="checkbox" name="Put_Pwd_Type" value="2" checked<%'if Bol_Put_IsEdit then if instr(Put_Rs(4),"2")>0 then response.Write(" checked") end if end if%>>
字母
</td>
</tr>
<%
Put_Rs.close
set Put_Rs=nothing
end if%>
<!----批量生成时显示结束------>
<tr class="hback">
<td align="right">点卡面值</td>
<td>
<input type="text" name="frm_CardMoney" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(3)) end if%>" onKeyUp="value=value.replace(/[^0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^0-9]/g,''))">
元 </td>
</tr>
<tr class="hback">
<td align="right">点卡天数</td>
<td>
<input type="text" name="frm_CardDateNumber" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(4)) end if%>" onKeyUp="value=value.replace(/[^0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^0-9]/g,''))">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -