易语言网络验证源码，会员验证系统

制作收费工具的必须 .版本 2 .子程序 充vip .局部变量 到期时间, 文本型 .局部变量 卡xx, 文本型 .局部变量 ka1, 文本型, , "0" .局部变量 ka11, 整数型 .局部变量 月到期, 文本型 .判断开始 (编辑框7.内容 ＝ “”) 信息框 (“帐号不能为空”, 0, ) 按钮4.禁止 ＝ 假 .判断 (编辑框8.内容 ＝ “”) 信息框 (“充值卡号不能为空”, 0, ) 按钮4.禁止 ＝ 假 .判断 (编辑框9.内容 ＝ “”) 信息框 (“密码不能为空”, 0, ) 按钮4.禁止 ＝ 假 .默认 .如果 (飘零判断查询 (“卡类”, “卡号”, “密码='” ＋ 编辑框9.内容 ＋ “'” ＋ “ and ” ＋ “使用者='” ＋ “ ” ＋ “'”, , 编辑框8.内容) ＝ 真) .如果 (飘零判断查询 (“admin”, “等级”, “ID='” ＋ 编辑框7.内容 ＋ “'”, , “免费”) ＝ 真) 卡xx ＝ 飘零_查询 (“卡类”, “类型,总时间”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”, ) ka1 ＝ 分割文本 (卡xx, “々”, ) ka11 ＝ 取数组成员数 (ka1) .判断开始 (ka11 ＜ 1) .判断 (ka1 [1] ＝ “终身卡”) .如果 (飘零修改 (“卡类”, “使用者='” ＋ 编辑框7.内容 ＋ “'” ＋ “,” ＋ “充值时间='” ＋ 充值时间 ＋ “'”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”)) .如果 (飘零修改 (“admin”, “等级='vip'”, “ID='” ＋ 编辑框7.内容 ＋ “'”) ＝ 真) 信息框 (“充值成功”, 0, ) 按钮4.禁止 ＝ 假 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .判断 (ka1 [1] ＝ “记次卡” 且 ka11 ＝ 2) .如果 (飘零修改 (“卡类”, “使用者='” ＋ 编辑框7.内容 ＋ “'” ＋ “,” ＋ “充值时间='” ＋ 充值时间 ＋ “'” ＋ “,” ＋ “到期时间='” ＋ ka1 [2] ＋ “'”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”)) .如果 (飘零修改 (“admin”, “等级='vip'”, “ID='” ＋ 编辑框7.内容 ＋ “'”) ＝ 真) 信息框 (“充值成功”, 0, ) 按钮4.禁止 ＝ 假 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .判断 (ka1 [1] ＝ “记日卡” 且 ka11 ＝ 2) 月到期 ＝ 到文本 (增减时间 (到时间 (充值时间), 5, 到整数 (ka1 [2]))) .如果 (飘零修改 (“卡类”, “使用者='” ＋ 编辑框7.内容 ＋ “'” ＋ “,” ＋ “充值时间='” ＋ 充值时间 ＋ “'” ＋ “,” ＋ “到期时间='” ＋ 月到期 ＋ “'”, “卡号='” ＋ 编辑框8.内容 ＋ “'” ＋ “ and ” ＋ “密码='” ＋ 编辑框9.内容 ＋ “'”)) .如果 (飘零修改 (“admin”, “等级='vip'”, “ID='” ＋ 编辑框7.内容 ＋ “'”) ＝ 真) 信息框 (“充值成功”, 0, ) 按钮4.禁止 ＝ 假 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .默认 信息框 (“你的卡类型不存在”, 0, ) 按钮4.禁止 ＝ 假 .判断结束 .否则 信息框 (“充值失败，你的卡已经是VIP，无需充vip”, 0, ) 按钮4.禁止 ＝ 假 .如果结束 .否则 信息框 (“充值失败，充值卡不存在或密码错误或已经被使用”, 0, ) 按钮4.禁止 ＝ 假 .如果结束