当前位置：首页 > news >正文

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

news 来源：原创 2024/11/18 16:23:41

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

<%
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小时自动提货系统