asp代码写的,微信会员报名转发分享带上下级和邀约人关系并且能微信支付asp编号的

昨天晚上应一个客户要求写了一套代码,实现的功能是:

在微信公众号上注册会员,获取用户的头像和微信名称,进入会员中心报名,报名成功成功后,他如果转发链接给别人,别人打开后则成为他的下级,上面那个算是一个邀约人,每个人都可以看到自已发展的下线会员,报名后支付费用。

客户给我写的要求如下:

一个会报名通道,有邀约人员,谁关注邀约人员发的地址并报名后,微信昵称和头像直接显示这个邀约人员下面,并有个状态是否报名?报名微信直接支付

利用晚上时间,给他写了一个完整的程序,上代码:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="anco.asp"-->
<%session("upper")=Request.QueryString("hyid")%>
<!-- #include file="jcuser.asp"-->
<%
'生成分享链接
if Request.QueryString("hyid")="" then
    response.Redirect("index.asp?hyid="&newhyid)
end if
%>
<!doctype html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<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_email%></TITLE>
<link rel="stylesheet" type="text/css" href="css/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 (document.form1.money.value == ""){
        layer.open({
            content: '支付金额必须正确输入'
            ,skin: 'msg'
            ,time: 2 //2秒后自动关闭
        });
        document.form1.money.focus();
        return (false);//停止往下运行
    };
};
</script>
</head>
<body>
<div class="content">
    <div class="hy_100">
    <!--start-->
        <div class="conte_text">
            会员ID:<%=newhyid%><br>
            会员手机:<%=newuserID%><br>
            会员姓名:<%=newname%><br>
            微信名称:<%=newwxname%><br>
            微信头像:<img src="<%=newwxpic%>" width="40" height="40"><br>
            是否输入会员姓名和手机号:<%=newyz%><br>
            是否付款:<%if ipay=1 then:response.Write("已支付"):end if%><br>
            帐户余额:¥<%=imoney%><br>
            OpenId:<%=newopenid%><br>
            <hr />
            推荐人:<%
if upper<>"" then
xupper = conn.execute("select userID from member where id="&upper&"")(0)
response.Write(xupper)
end if
            %>
        </div>
    <!--end-->
    </div>
    <div class="main_90">
        <div class="reg_member">
        <form name="form1" action="pay/jsapi.asp" method="post" onSubmit="return check();">
        <dl><INPUT NAME="money" type="text" class="_input" value="18" onKeyUp="this.value=this.value.replace(/D/g,'')" placeholder="输入金额"></dl>
        <dl><input type="submit" name="Submit" value="立即支付" class="bnt_save"></dl>
        </form>
        </div>
        <br><br><br>
        <div class="conte_text"><a href="share.asp?hyid=<%=newhyid%>">打开分享页面</a></div>

        <div class="conte_text"><a href="hy.asp?hyid=<%=newhyid%>">我的会员</a></div>
    </div>
</div>
<%
conn.close
set conn=nothing
%>
</body>
</html>
原文地址:https://www.cnblogs.com/yjed/p/10460308.html