单码网络验证

数据库时间 ＝ 到时间 (读配置项 (“C:\sqlsql.txt”, 卡号, “到期时间”, ))
调试输出 (数据库时间)
.如果真 (读配置项 (“C:\sqlsql.txt”, 卡号, “激活状态”, ) ＝ “正常”)
.如果 (数据库时间 ＜ 时间_取北京时间 ())
服务器1.发送数据 (ip, 编码_BASE64编码 (到字节集 (“对不起!您已到期!”)), )
编辑框3.加入文本 (#换行符 ＋ “[+]用户到期 卡号” ＋ 卡号)
服务器1.断开客户 (ip)
返回 ()
.否则
服务器1.发送数据 (ip, 编码_BASE64编码 (到字节集 (“登录成功”)), )
编辑框3.加入文本 (#换行符 ＋ “[+]用户登录成功 卡号” ＋ 卡号)
返回 ()