利用服务器组件做简单的WEB应用源码

利用易 自带的 服务器 组件 就可以做一些简单的WEB应用!

如: 连接数据库,实现注册,修改,.....

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

服务器1.端口 ＝ 808


.子程序 _服务器1_数据到达
.局部变量 客户, 文本型
.局部变量 数据, 文本型
.局部变量 数组内容, 文本型, , "0"

数据 ＝ 到文本 (服务器1.取回数据 ())

输出调试文本 (数据)  ' '在浏览器中 访问http://127.0.0.1:808  时,就会能调试出来 http 协议的一些东西

.如果真 (取文本左边 (数据, 3) ＝ “GET”)
    客户 ＝ 服务器1.取回客户 ()

    数组内容 ＝ 分割文本 (数据, “/?”, )

    .如果 (取数组成员数 (数组内容) ≥ 3)
        ' 输出调试文本 (数组内容 [1], 数组内容 [2], 数组内容 [3])
        ' '下面是 自定义的协议....
        .判断开始 (数组内容 [3] ＝ “reg”)
            注册账号 (数组内容 [2])

            服务器1.发送数据 (客户, #header ＋ “acc=” ＋ 数组内容 [2] ＋ “code=” ＋ 数组内容 [3], )

        .判断 (数组内容 [3] ＝ “mod”)
            修改账号 (数组内容 [2])

            服务器1.发送数据 (客户, #header ＋ “acc=” ＋ 数组内容 [2] ＋ “code=” ＋ 数组内容 [3], )
        .判断 (数组内容 [3] ＝ “other”)
            其他处理 (数组内容 [2])

            服务器1.发送数据 (客户, #header ＋ “acc=” ＋ 数组内容 [2] ＋ “code=” ＋ 数组内容 [3], )
        .默认

        .判断结束

    .否则

        服务器1.发送数据 (客户, #header ＋ #网页, )  ' ' 当返回有 http协议头的 内容时,浏览器中就会显示
    .如果结束

.如果真结束
服务器1.断开客户 (客户)


.子程序 注册账号
.参数 acc, 文本型

输出调试文本 (acc, “reg”)


.子程序 修改账号
.参数 acc, 文本型

输出调试文本 (acc, “mod”)


.子程序 其他处理
.参数 acc, 文本型

输出调试文本 (acc, “other”)

@zmfree