易语言编写的档案管理系统源码_开源易语言编写的网络验证管理系统

功能如下:

1:支持在线用户注册

2:支持在线用户登录

3:作者在线管理用户,查看注册用户信息,删除用户信息,帮用户提权,等等功能\

4:在线更新判断

5:签到功能

6:积分功能

写配置项 (取运行目录 () ＋ “配置.ini”, “Canfig”, “用户名”, 编辑框1.内容)

写配置项 (取运行目录 () ＋ “配置.ini”, “Canfig”, “密码”, 编辑框2.内容)

网络状态.标题 ＝ “账号注册中请稍候”

提交地址 ＝ #接口地址 ＋ “/rjreg.asp?action=regok”

提交数据 ＝ “regusername=” ＋ 编辑框1.内容 ＋ “®password=” ＋ 编辑框2.内容 ＋ “®password2=” ＋ 编辑框3.内容 ＋ “&sjmb=” ＋ 编辑框4.内容 ＋ “&tjrid=” ＋ 编辑框5.内容 ＋ “&textarea=%B0%D9%D2%DA%BB%A5%CB%A2%B1%A6%C8%ED%BC%FE%CA%DA%C8%A8%D6%D0%D0%C4%D0%AD%D2%E9&submit1=%CC%E1%BD%BB%D0%C5%CF%A2”

返回文本 ＝ 彗星HTTP读文本 (提交地址, “POST”, , , 提交数据, )

.如果 (返回文本 ＝ “”)

.否则

.如果真 (倒找文本 (返回文本, “恭喜您”, , 假) ≠ -1)

网络状态.标题 ＝ “恭喜账号注册成功”

延时 (500)

会员注册.可视 ＝ 假

延时 (500)

载入 (_启动窗口, , 真)

返回 ()

.如果真结束

.如果真 (倒找文本 (返回文本, “对不起”, , 假) ≠ -1)

网络状态.标题 ＝ “账号填写资料有误”

返回 ()

.如果真结束

.如果真 (倒找文本 (返回文本, “网页无法访问”, , 假) ≠ -1)

网络状态.标题 ＝ “检查网络是否正常”

返回 ()

.如果真结束

.如果真 (倒找文本 (返回文本, “用户名已存在”, , 假) ≠ -1)

网络状态.标题 ＝ “账号已存在请更换”

返回 ()