用网络数据库实现统计在线人数

.如果 (节点个数 ＝ 0) ' 表示没有记录，现在我们用SQL增加一个记录，并记录当前在线
SQL ＝ “INSERT INTO 在线统计(人数) VALUES (” ＋ #引号 ＋ “1” ＋ #引号 ＋ “)” ' 增加一个记录人数为1
返回结果 ＝ 远程执行SQL接口 (#id, SQL, #accesskey)
.如果真 (取文本左边 (返回结果, 2) ＝ “NO”)
调试输出 (“增加失败”, “原因：” ＋ 取文本右边 (返回结果, 取文本长度 (返回结果) － 2))
.如果真结束
.如果真 (取文本左边 (返回结果, 2) ＝ “OK”)
调试输出 (“增加成功”)
.如果真结束

.否则
在线人数 ＝ xml.取属性值文本 (“xml/@2/@” ＋ 到文本 (节点个数), “c1”, )
在线人数 ＝ 子文本替换 (在线人数, “'”, “”, , , 真)
在线人数 ＝ 到文本 (到整数 (在线人数) ＋ 1) ' 增加一个人在线
调试输出 (在线人数)
SQL ＝ “UPDATE 在线统计 SET 人数=” ＋ #引号 ＋ 在线人数 ＋ #引号 ＋ “ WHERE id=1” ' 更新到数据库
返回结果 ＝ 远程执行SQL接口 (#id, SQL, #accesskey)
调试输出 (返回结果)
.如果真 (取文本左边 (返回结果, 2) ＝ “NO”)
调试输出 (“更新失败”, “原因：” ＋ 取文本右边 (返回结果, 取文本长度 (返回结果) － 2))
.如果真结束
.如果真 (取文本左边 (返回结果, 2) ＝ “OK”)
调试输出 (“更新成功”)