📄 card_act.asp
字号:
<td width='60%'><input name='Money' type='text' id='Money' value='<%=Money%>' size='10'>
元</td>
</tr>
<tr >
<td width='40%'><strong>充值卡点数、资金或有效期：</strong><br>
购买人可以得到的点数、资金或有效期 </td>
<td width='60%'><input name='ValidNum' value="<%=ValidNum%>" type='text' id='ValidNum' size='10' maxlength='10'>
<select name='ValidUnit' id='ValidUnit'>
<option value='1'<%if ValidUnit="1" then response.write " selected"%>>资金</option>
<option value='2'<%if ValidUnit="2" then response.write " selected"%>>积分</option>
</select></td>
</tr>
<tr >
<td width='40%'><strong>充值截止期限：</strong><br>
购买人必须在此日期前进行充值，否则自动失效</td>
<td width='60%' ><input name='EndDate' type='text' id='EndDate' value='<%=EndDate%>' size='10' maxlength='10'></td>
</tr>
<tr >
<td width='40%'><strong>是否出售：</strong><br>
添加新充值卡，请选项未出售</td>
<td width='60%' ><input name='issale' type='radio' id='issale' value='0'<%if issale=0 then response.write " checked"%>>未出售 <input name='issale' type='radio' id='issale' value='1'<%if issale=1 then response.write " checked"%>>已出售</td>
</tr>
<tr >
<td width='40%'><strong>是否使用：</strong><br>
添加新充值卡，请选项未使用</td>
<td width='60%' ><input name='isused' type='radio' id='isused' value='0'<%if isused=0 then response.write " checked"%>>未使用 <input name='isused' type='radio' id='isused' value='1'<%if isused=1 then response.write " checked"%>>已使用</td>
</tr>
<tr >
<td height='40' colspan='2' align='center'><input name='Action' type='hidden' id='Action' value='DoAdd'>
<input class="ACT_btn" type='submit' name='Submit' value=' <% if request("action")="Edit" then response.write "确定修改" Else Response.write "开始生成" %> ' style='cursor:hand;'>
<input class="ACT_btn" name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick="window.location.href='?'" style='cursor:hand;'></td>
</tr></form>
</table>
<%
End Sub
'开始生成充值卡
Sub DoAdd()
Dim AddType:AddType=request("AddType")
Dim CardNum:CardNum=request("CardNum")
Dim Password:Password=request("Password")
Dim CardList:CardList=request("CardList")
Dim Money:Money=actcms.ChkNumeric(request("Money"))
Dim ValidNum:ValidNum=actcms.ChkNumeric(request("ValidNum"))
Dim ValidUnit:ValidUnit=request("ValidUnit")
Dim EndDate:EndDate=request("EndDate")
Dim IsUsed:IsUsed=request("IsUsed")
Dim ISSale:IsSale=request("IsSale")
IF Money=0 Then Call ACTCMS.Alert("充值卡面值，必须大于0","Card_Act.asp?action=Add"):exit sub
IF ValidNum=0 Then Call ACTCMS.Alert("充值卡点数，必须大于0","Card_Act.asp?action=Add"):exit sub
If Not IsDate(EndDate) Then Call ACTCMS.Alert("充值截止期限格式不正确!","Card_Act.asp?action=Add"):exit sub
If AddType=0 or request("action1")="Edit" then
if CardNum="" then call ACTCMS.Alert("你没有输入充值卡号!","Card_Act.asp?action=Add"):exit sub
if PassWord=" "then call ACTCMS.Alert("你没有输入充值卡密码","Card_Act.asp?action=Add"):exit sub
Dim RS:Set RS=Server.CreateObject("adodb.recordset")
if request("action1")="Edit" then
rs.open "select * from Card_ACT where id=" & actcms.ChkNumeric(request("id")),conn,1,3
else
if not conn.execute("select cardnum from Card_ACT where cardnum='" & cardnum & "'").eof then
call ACTCMS.Alert("你输入的充值卡号已存在，请重输!","Card_Act.asp?action=Add"):exit sub
end if
rs.open "select * from Card_ACT",conn,1,3
rs.addnew
rs("AddDate")=now
end if
rs("cardnum")=CardNum
rs("cardpass")=PassWord
rs("money")=money
rs("ValidNum")=ValidNum
rs("ValidUnit")=ValidUnit
rs("enddate")=EndDate
rs("isused")=isused
rs("isSale")=issale
rs.update
rs.close:set rs=nothing
else
if CardList="" then call ACTCMS.Alert("你没有输入充值卡号!","Card_Act.asp?action=Add"):exit sub
Dim i,j,CardAndPass,CardArr:CardArr=Split(CardList,vbcrlf)
For I=0 to Ubound(CardArr)
CardAndPass=Split(CardArr(I),"|")
if not conn.execute("select cardnum from Card_ACT where cardnum='" & CardAndPass(0) & "'").eof then
call ACTCMS.Alert("你输入的充值卡号已存在，请重输!","Card_Act.asp?action=Add"):exit sub
else
Set RS=Server.CreateObject("adodb.recordset")
rs.open "select * from Card_ACT",conn,1,3
rs.addnew
rs("cardnum")=CardAndPass(0)
rs("cardpass")=CardAndPass(1)
rs("money")=money
rs("ValidNum")=ValidNum
rs("ValidUnit")=ValidUnit
rs("AddDate")=now
rs("enddate")=EndDate
rs("isused")=isused
rs("isSale")=issale
rs.update
rs.close:set rs=nothing
end if
Next
end if
if request("action1")="Edit" then
response.write "<script>alert('修改充值卡成功！');location.href='?';</script>"
else
response.write "<script>alert('添加充值卡成功！');location.href='?';</script>"
end if
End Sub
'批量生成充值卡操作
Sub DoAddMore()
Dim Nums:Nums=actcms.ChkNumeric(request("Nums"))
Dim CardNumPrefix:CardNumPrefix=request("CardNumPrefix")
Dim CardNumLen:CardNumLen=actcms.ChkNumeric(request("CardNumLen"))
Dim PasswordLen:PasswordLen=actcms.ChkNumeric(request("PasswordLen"))
Dim zhtype:zhtype=request("zhtype")
Dim Money:Money=actcms.ChkNumeric(request("money"))
Dim ValidNum:ValidNum=actcms.ChkNumeric(request("ValidNum"))
Dim ValidUnit:ValidUnit=request("ValidUnit")
Dim EndDate:EndDate=request("EndDate")
IF Nums=0 Then Call ACTCMS.Alert("生成充值卡数量，必须大于0","Card_Act.asp?action=Add"):exit sub
IF CardNumLen=0 Then Call ACTCMS.Alert("充值卡号码长度，必须大于0","Card_Act.asp?action=Add"):exit sub
IF PasswordLen=0 Then Call ACTCMS.Alert("充值卡密码长度，必须大于0","Card_Act.asp?action=Add"):exit sub
IF Money=0 Then Call ACTCMS.Alert("充值卡面值，必须大于0","Card_Act.asp?action=Add"):exit sub
IF ValidNum=0 Then Call ACTCMS.Alert("充值卡点数，必须大于0","Card_Act.asp?action=Add"):exit sub
If Not IsDate(EndDate) Then Call ACTCMS.Alert("充值截止期限格式不正确!","Card_Act.asp?action=Add"):exit sub
%>
<br>
<table width='300' border='0' align='center' cellpadding='2' cellspacing='1' class='table'>
<tr class="bg_tr">
<td colspan='2' align='center'><strong>本次生成的点卡信息如下：</strong></td>
</tr>
<tr >
<td width='100'>充值卡数量：</td>
<td><%=nums%> 张</td>
</tr>
<tr >
<td width='100'>充值卡面值：</td>
<td><%=money%> 元</td>
</tr>
<tr >
<td width='100'>
<% select case ValidUnit
case 1:response.write "充值卡点数："
case 2:response.write "充值卡有效天数："
case 3:response.write "充值卡金额："
end select
%></td>
<td>
<% response.write ValidNum
select case validunit
case 1:response.write " 点"
case 2:response.write " 天"
case 3:response.write " 元"
end select
%>
</td>
</tr>
<tr >
<td width='100'>充值截止日期：</td>
<td><%=enddate%></td>
</tr>
</table>
<br>
<table width='300' border='0' align='center' cellpadding='2' cellspacing='1' class="table">
<tr align='center' class="bg_tr">
<td width=150 height='22'><strong> 卡 号 </strong></td>
<td width=150 height='22'><strong> 密 码 </strong></td>
</tr>
<%
Dim n,currcard,CurrCardPass
For N=1 To Nums
CurrCard=ACTCMS.MakeRandom(CardNumLen-len(CardNumPrefix))
CurrCard=CardNumPrefix & CurrCard
If ZhType=2 then
CurrCardPass=ACTCMS.GetRandomize(PasswordLen)
Else
CurrCardPass=ACTCMS.MakeRandom(PasswordLen)
End If
Do While not Conn.execute("select CardNum From Card_ACT Where CardNum='" & CurrCard & "'").eof
CurrCard=ACTCMS.MakeRandom(CardNumLen-len(CardNumPrefix))
CurrCard=CardNumPrefix & CurrCard
loop
response.write "<tr align='center' >" & vbcrlf
response.write "<td height='22'>" & CurrCard & "</td>" & vbcrlf
response.write "<td>" & CurrCardPass & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
Dim RS:Set RS=Server.CreateObject("adodb.recordset")
rs.open "select * from Card_ACT",conn,1,3
rs.addnew
rs("cardnum")=CurrCard
rs("cardpass")=CurrCardPass
rs("money")=money
rs("ValidNum")=ValidNum
rs("ValidUnit")=ValidUnit
rs("AddDate")=now
rs("enddate")=EndDate
rs("isused")=0
rs("isSale")=0
rs.update
rs.close:set rs=nothing
%>
<%
Next
response.write "</table>"
End SUb
Public Function ShowPagePara(totalnumber, MaxPerPage, FileName, ShowAllPages, strUnit, CurrentPage, ParamterStr)
Dim N, I, PageStr
Const Btn_First = "第一页"'样式定义
Const Btn_Prev = "上一页"
Const Btn_Next = "下一页"
Const Btn_Last = "最后一页"
PageStr = ""
If totalnumber Mod MaxPerPage = 0 Then
N = totalnumber \ MaxPerPage
Else
N = totalnumber \ MaxPerPage + 1
End If
If N > 1 Then
PageStr = PageStr & ("页次：<font color=red>" & CurrentPage & "</font>/" & N & "页 共有:" & totalnumber & strUnit & " 每页:" & MaxPerPage & strUnit & " ")
If CurrentPage < 2 Then
PageStr = PageStr & Btn_First & " " & Btn_Prev & " "
Else
PageStr = PageStr & ("<a href=" & FileName & "?page=1" & "&" & ParamterStr & ">" & Btn_First & "</a> <a href=" & FileName & "?page=" & CurrentPage - 1 & "&" & ParamterStr & ">" & Btn_Prev & "</a> ")
End If
If N - CurrentPage < 1 Then
PageStr = PageStr & " " & Btn_Next & " " & Btn_Last & " "
Else
PageStr = PageStr & (" <a href=" & FileName & "?page=" & (CurrentPage + 1) & "&" & ParamterStr & ">" & Btn_Next & "</a> <a href=" & FileName & "?page=" & N & "&" & ParamterStr & ">" & Btn_Last & "</a> ")
End If
If ShowAllPages = True Then
PageStr = PageStr & ("GO:<select onChange='location.href=this.value;' style='width:55;' name='select'>")
For I = 1 To N
If Cint(CurrentPage) = I Then
PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & "&" & ParamterStr & " selected>NO." & I & "</option>")
Else
PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & "&" & ParamterStr & ">NO." & I & "</option>")
End If
Next
PageStr = PageStr & "</select>"
End If
End If
ShowPagePara = PageStr
response.write ShowPagePara
End Function
%>
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = selform.elements[i];
if (e.name != 'chkAll'&&e.type=="checkbox")
e.checked = selform.chkAll.checked;
}
}function overColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg1"
Obj.bgColor="";
}
}
function outColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg";
Obj.bgColor="";
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -