asp版茶叶礼品卡券、海鲜礼品卡券、⼤闸蟹礼品卡券、龙虾礼品卡券-提货系
统-⽣成卡密源码
茶叶礼品卡券系统是⼀种印刷在卡⽚上的编码卡密，朋友之间馈赠礼品卡券，他收到后可以扫码关注，输⼊提货编码⾃已去提货，⽬前已开发多个版本，⽀持：茶叶礼品卡券提货系统，海鲜礼品卡券提货系统,⼤闸蟹礼品卡券提货系统，龙虾礼品卡券提货系统等。
下⾯这段代码就是asp⽣成提货系统卡密的源码：
<%
If Act = “Make” Then
If Request(“prefix”)="" Or Request(“num”)="" Then
Response.Write(“前缀和数量必填”)
Response.End()
End If
num = Request(“num”)
Call MakeCode(num)
Response.Write(“”)
End If
Response.End()
End If
Randomize
Dim width : width = n '随机数长度，默认6位
width = 10 ^ (width - 1)
MakeRandNum = Int((width*10 - width) * Rnd() + width)
End Function
Function MakeCode(n)
j =0
For i = 1 To n
p = MakeRandNum(5)
If SqlHelper("Select Count(ID) From [kh_user] Where UserName=?",Array(u))(0)=0 Then
Call SqlHelper("Insert Into [kh_user](UserName,[PassWord]) values(?,?)",Array(u,p))
j = j+1
End If
Next
If Cint(j)<Cint(n) Then
'Response.Write(Cint(n)-Cint(j)&"<br/>")
Call MakeCode(Cint(n)-Cint(j))
End If
End Function
%>
当前位置：⽣成/导出卡号
<% if request("action")="" then %>
卡号前缀（4位数）： 说明：为了区分每次⽣成的编码，建议每次⽣成的前缀⾃设4位编号，例：1001或1002或1003以此类推⽣成数量： 每次⽣成的数量建议不要超过2000，数量过⼤会导致服务器死机
导出卡号，⽣成Excel⽂件
要导出的卡号前缀： 说明：前缀不填时，则导出全部卡号
asp网页源码

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。