微信现金红包asp源码开发的微信一物一码红包系统,asp微信现金红包源码

最近接了一个生产万能胶的客户红包开发的要求，他想实现在他所有产品包装上贴一个小标签，上面有二维码可以扫码关注他的公众号，下面是一个刮刮银，刮开后是上串数字码，别人关注他的公众号后就可

以在公众号下面的菜单点“领红包”，然后打开领红包页面，输入刚刮开的数字码，领取不定额的红包，此举就是为了吸引装修工推荐他的产品给业主用，让业主买了产品，装修工好领包，我在网上找了半天

源码也没找到，有的说这叫一物一码，找到的全是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>