最近接了一个生产万能胶的客户红包开发的要求,他想实现在他所有产品包装上贴一个小标签,上面有二维码可以扫码关注他的公众号,下面是一个刮刮银,刮开后是上串数字码,别人关注他的公众号后就可
以在公众号下面的菜单点“领红包”,然后打开领红包页面,输入刚刮开的数字码,领取不定额的红包,此举就是为了吸引装修工推荐他的产品给业主用,让业主买了产品,装修工好领包,我在网上找了半天
源码也没找到,有的说这叫一物一码,找到的全是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微信现金红包源码》对你有帮助,请点赞、收藏,并留下你的观点哦!