大闸蟹提货系统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
  &n