大闸蟹提货系统asp版源码提供

其实提货系统的核心主要是卡密生成部分，下面我就把卡密生成的代码提供给大家：

<% 
Act = Request("action")
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("<script>alert('生成完成！');location.href='kh.asp'</script>")
  Response.End()
ElseIf Act ="Excel" Then
    If Request("prefix2") = "" Then
       Sql = "Select UserName,PassWord From [kh_user]"
       Arr = ""
    Else
       Sql = "Select UserName,PassWord From [kh_user] Where UserName like ?"
       Arr = Array(Request("prefix2")&"%")
    End If
    Set Rs = SqlHelper(Sql,Arr)
    If Not Rs.Eof Then
        Html = "<table border='1'><tr><td>UserName</td><td>PassWord</td></tr>"
        While Not Rs.Eof 
            Html  = Html&"<tr><td>"&Rs(0)&"</td><td>"&Rs(1)&"</td></tr>"
        Rs.MoveNext
        Wend
        Html  = Html&"</table>"
        Response.Buffer=True
        Response.ContentType="application/excel"
        Response.AddHeader"Content-Disposition","attachment;filename=User_data_"&date()&".xls"
        Response.Write(Html)
    Else
       Response.Write("<script>alert('未查询到数据！');location.href='./'</script>")
    End If
    Response.End()
End If
     Function MakeRandNum(n)
        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
          u = Request("prefix")&MakeRandNum(10-len(Request("prefix")))
          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
 %>

最近接到了一个卖大闸蟹的海鲜店老板的定制开发，他要在店里卖礼品卡，礼品卡上有面值298、598、998元不等的面值卡，上面有卡号，密码，密码用刮刮银涂上了，客户买礼品卡送人，送别人礼品卡而不直接送大闸蟹，这中间有很多道理（成熟的人才懂），收到礼品卡的贵人，什么时候想吃了，就什么时候按照礼品卡上的方式提货，扫码-提货-输入卡号密码-输收货地址，然后就等着收货吧！

我按照此大闸蟹海鲜店老板的要求，给他定制开发了一套《大闸蟹提货系统》，原理是这样的，在后台可以无限生成卡号和密码，可以导出这些卡号密码，可以按生成的批次导出，海鲜店老板把导出的卡密给订制礼品卡的印刷厂就可以了。在后台可以添加套餐，多少钱的礼品卡给多少只螃蟹等，还可以配图，配说明等。

上面的代码生成的卡密还可适应于以下行业：

微信小程序大闸蟹提货系统源码
微信公众号海参卡卷提货系统
小程序老鳖微信提货卡密系统源码
龙虾微信提货卡系统下载
燕窝微信提货卡系统下载
微信茶叶提货卡券
山茶油提货系统
土鸡蛋提货卡
粽子提货卡系统
微信月饼提货系统
农产品土特产在线兑换提货系统
猕猴桃提货系统
黑猪肉卡券兑换系统
麻辣小龙虾24小时自动提货系统