.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _服务器1_数据到达
.局部变量 返回的内容, 文本型
.局部变量 数据长度, 整数型
.局部变量 response, 字节集
.局部变量 客户, 文本型
.局部变量 客户请求数据, 文本型
客户 ＝ 服务器1.取回客户 ()
客户请求数据 ＝ 到文本 (服务器1.取回数据 ())
调试输出 (客户请求数据)
' 这里是客户端收到的数据，无论是get还是post，收到的参数啥的自己解析。然后对应的进入处理程序该怎么处理该怎么拓展随便你。
' 然后把处理完的结果返回给客户
返回的内容 ＝ “请求成功...”
数据长度 ＝ 取字节集长度 (到字节集 (返回的内容))
response ＝ 到字节集 (“HTTP/1.1 200 OK” ＋ #换行符 ＋ “Content-Type: text/html; charset=gbk” ＋ #换行符 ＋ “Content-Length: ” ＋ 到文本 (数据长度) ＋ #换行符 ＋ #换行符 ＋ 返回的内容)
服务器1.发送数据 (客户, response, )
服务器1.断开客户 (客户)