最近接了一个生产万能胶的客户红包开发的要求，他想实现在他所有产品包装上贴一个小标签，上面有二维码可以扫码关注他的公众号，下面是一个刮刮银，刮开后是上串数字码，别人关注他的公众号后就可
以在公众号下面的菜单点“领红包”，然后打开领红包页面，输入刚刮开的数字码，领取不定额的红包，此举就是为了吸引装修工推荐他的产品给业主用，让业主买了产品，装修工好领包，我在网上找了半天
源码也没找到，有的说这叫一物一码，找到的全是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/2019.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 if
rsfg.close
set 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 then
call 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 if
rsfg.close
set rsfg=nothing
%>
</div>
</div>
<% end if %>
</body>
</html>