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文件

要导出的卡号前缀： 说明：前缀不填时，则导出全部卡号