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

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

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

    客户给我写的要求如下:

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

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

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
    <!-- #include file="anco.asp"-->
    <%
    '转发请保留作者版权,微信:18611436777
    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>
    
    

      

  • 相关阅读:
    Java 第十一届 蓝桥杯 省模拟赛 梅花桩
    Java 第十一届 蓝桥杯 省模拟赛 梅花桩
    Java 第十一届 蓝桥杯 省模拟赛 梅花桩
    Java 第十一届 蓝桥杯 省模拟赛 元音字母辅音字母的数量
    Java 第十一届 蓝桥杯 省模拟赛 元音字母辅音字母的数量
    Java 第十一届 蓝桥杯 省模拟赛 元音字母辅音字母的数量
    Java 第十一届 蓝桥杯 省模拟赛 最大的元素距离
    Java 第十一届 蓝桥杯 省模拟赛 递增序列
    Java 第十一届 蓝桥杯 省模拟赛 递增序列
    Java 第十一届 蓝桥杯 省模拟赛 最大的元素距离
  • 原文地址:https://www.cnblogs.com/yjed/p/10843664.html
Copyright © 2011-2022 走看看