茶叶礼品卡券系统是一种印刷在卡片上的编码卡密,朋友之间馈赠礼品卡券,他收到后可以扫码关注公众号,输入提货编码自已去提货,目前已开发多个版本,支持:茶叶礼品卡券提货系统,海鲜礼品卡券提货系统,大闸蟹礼品卡券提货系统,龙虾礼品卡券提货系统等。
下面这段代码就是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