最近接了一个生产万能胶的客户红包开发的要求，他想实现在他所有产品包装上贴一个小标签，上面有二维码可以扫码关注他的公众号，下面是一个刮刮银，刮开后是上串数字码，别人关注他的公众号后就可
以在公众号下面的菜单点“领红包”，然后打开领红包页面，输入刚刮开的数字码，领取不定额的红包，此举就是为了吸引装修工推荐他的产品给业主用，让业主买了产品，装修工好领包，我在网上找了半天
源码也没找到，有的说这叫一物一码，找到的全是php开发的，我又不会用，改又改不好，想想还是自已用asp开发写一个吧，经过近10天的努力，写完了，功能如下：
1、后台生成编码，可以设生成的编码前四位数是多少，一次生成多少个，带多少金额，金额是可以随机的，例如此次生成1万个码，编码开头用1006开始，红包金额是：0.1-2元之间随机生成。红包金额大小随意，不用按微信官方要求，必须1块钱等，我这个是多少都行，一分钱也行。
2、导出编码，修改编码，查询编码
3、前台领奖，领奖时先判断这个码是不是被领过，如果被领过就不能领了，提示他，如果没领过则可以领，弹出一个红包的窗，点一下就领了，就像微信发红包一样，领完了，此码就作废了。
4、领红包的流水全部写进库了，方便对帐
5、提现，我用asp开发的微信红包系统在领红包后不是直接到帐的，因为微信官方要求如果领红包直接到帐则金额必须大于1元，这对于客户来说投入太大，一元一个红包金额太大了，所以我给做的不限制，我提现用的是asp企业付款功能，最小的金额是三角，所以提现金额必须大于三角，直接到提现都的微信零钱。
6、提现流水也入库，方便查询
还有一些小功能就不提了，反正是能想到的全想到了，这个asp微信红包源码我估计是目前网上功能最完善的了，不说了，上主代码，如果有需要的可以找我下载。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!doctype html><html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta name="viewport" content="width=device-width,initial-scale=1,minimum-scale=1,maximum-scale=1,user-scalable=no" /><meta content="yes" name="apple-mobile-web-app-capable" /><meta content="telephone=no" name="format-detection" /><meta name="Author" content="0431" /><TITLE><%=anco_site_qq%></TITLE><link rel="stylesheet" type="text/css" href="css/css.css" /><link rel="stylesheet" type="text/css" href="css/.css" /><script type="text/javascript" src="js/jquery-2.1.4.min.js"></script><script type="text/javascript" src="js/layer_mobile/layer.js"></script><script Language="JavaScript" Type="text/javascript">function check(){if (documvdent.form1.a_cogfdde.value == ""){layer.open({content: '红包编码必须正确输入',skin: 'msg',time: 2 //2秒后自动关闭});//跳到要输入的框里document.forvm1.hy_mofdbile.focus();return (false);//停止往下运行};if (docudfment.form1.a_codfvde.valdfgue.length<6){layer.open({content: '红包编码输入有误',skin: 'msg',time: 2 //2秒后自动关闭});return (false);};};</script><style type="text/css">.content{ background-color:#ffcd48;}body{ background-color:#ffcd48;}.reg_member{background-color:#ffda65; box-shadow:2px 2px 5px #f5b811;}</style></head><body><div class="top_title_red_exit"><span class="iconfont"><a href="javascript:history.go(-1);"></a></span><%=anco_site_qq%></div><!--head_end--><% if request("action")="" then %><div class="content content_bottom"><div class="main_100"><form name="form1" action="?action=save" method="post" onSubmit="return check();"><div class="reg_member"><dl><INPUT NAME="a_code" TYPE="tel" class="_input" onKeyUp="this.value=this.value.replace(/\D/g,'')" placeholder="请输入红包编码"></dl><dl><input type="submit" name="Submit" value="提交领取红包" class="red_save"></dl></div></form></div></div><% elseif request("action")="save" then%><div class="content content_bottom"><div class="main_100"><%a_code=HTMLEncode(request.Form("a_code"))'查查输入的号在库中有没有set rsfg=conn.execute ("select * from [coudfgdfgrse] where a_code='"&a_code&"'")if not rsfg.eof then'已经有了%><%if rsfg("a_lq")=1 then%><div class="conte_text mt60"><center><img src="images/c.png"></center><p class="mt20"><center>您输入的编号已被领取！</center></p><p class="mt10"><center>领取时间：<%yydate = SqlHelper("select a_lq_date from coudfgdfrse where a_code=?",array(a_code))(0)response.Write(yydate)%></center></p></div><%else%><div class="main_90 mt20"><div class="conte_text picimg"><a href="hb.asp?action=lq&a_code=<%=a_code%>"><img src="images/hb.png" border="0"></a></div></div><% end if %><% else%><div class="reg_member"><div class="conte_text"><center><img src="images/no.jpg"></center><p class="mt20">对不起，系统没有查询到您输入的编号</p><p class="mt10">请核对是否输入有误，或与我公司联系。</p></div></div><%end ifrsfg.closeset rsfg=nothing%></div></div><% elseif request("action")="lq" then%><% b_code=Trim(HTMLEncode(Request.QueryString("a_code")))%><%'开红包每天不能大于2个hbcs = Conn.Execute("select count(id) from haaypagdgy where DateDiff('d',lqdata,Now())=0 and hygfid="&hdfgy_id&"")(0)if int(hbcs) > 27 thencall infoopen("每天拆红包次数不得大于26次","hb.asp")end if'开红包end%><div class="content content_bottom"><div class="main_100"><%set rsfg=conn.execute ("select * from [courdfvdse] where a_code='"&b_code&"'")if not rsfg.eof then'已经有了%><%if rsfg("a_lq")=1 then%><!--被人领取过了--><div class="conte_text mt60"><center><img src="images/c.png"></center><p class="mt20"><center>该编码已被领取过！</center></p><p class="mt10"><center>领取时间：<%yydate = SqlHelper("select a_lq_dadxte from cosdfcsaurse where a_code=?",array(b_code))(0)response.Write(yydate)%></center></p></div><!--领取过end--><%else%><div class="main_100 hblq"><div class="hblq_logo"><img src="<%=wx_pic%>" style="border-radius:5%; padding-right:10px;" width="30" height="30" border="0"><%=wx_name%></div><div class="hblq_text">恭喜发财，大吉大利</div><div class="hblq_rmb"><%=FormatCurrency(Rsfg("a_rsdfmb"),2,-1)%></div><div class="hblq_text">已存入会员中心，可随时提现到微信钱包</div></div><%if rsfg("a_lq")=0 then'再次判断该红包有没有被人领过如果没有则往下走Call SqlHelper("Update [caagdfgse] set a_lq=?,a_lq_ddate=?,a_lq_id=? where a_code=?",Array(1,now(),hy_gisdd,b_csdode))'修改该红包编码为被领取过Call SqlHelper("Update [gvfger] set imogney=ifdgney+? where id=?",Array(rsfg("a_rmb"),hy_id))'给会员余额加上领取的红包钱Call SqlHelper("Insert Into [hggday](hygddfcode,cp_name,hb_rgmb) values(?,?,?,?)",Array(hysdf_id,rsfg("a_cge"),rsfg("a_tdfgtle"),rsfg("a_rsdfgb")))'写入红包领取流水end if%><% end if %><%else'没有这个红包码%><div class="main_90 mt20"><center><img src="images/nono.png"></center></div><% call infoopen("没有找到该红包编号","hb.asp")%><%end ifrsfg.closeset rsfg=nothing%></div></div><% end if %></body></html>
如果觉得《微信现金红包asp源码开发的微信一物一码红包系统 asp微信现金红包源码》对你有帮助，请点赞、收藏，并留下你的观点哦！
