Web网络服务器的制作方法

数据 ＝ 到文本 (服务器.取回数据 ())
.如果 (取回网址 (数据) ＝ “”)
服务器.发送数据 (当前客户, 到字节集 (提示错误), )
.否则
服务器.发送数据 (当前客户, 读入文件 (取回网址 (数据)), )
.如果结束
服务器.断开客户 (当前客户)
数据 ＝ 全文本替换 (数据, “: ”, “=”)
写到文件 (取运行目录 () ＋ “\ServerTemp.ini”, 到字节集 (“[a]” ＋ #换行符 ＋ “Main=” ＋ 数据))
.如果真 (_启动窗口.选择框5.选中)
显示输出 ＝ 显示输出 ＋ #换行符 ＋ “浏览器具体命令:” ＋ 读配置项 (取运行目录 () ＋ “\ServerTemp.ini”, “a”, “Main”, “”)
.如果真结束
.如果真 (_启动窗口.选择框3.选中)
显示输出 ＝ 显示输出 ＋ #换行符 ＋ “连接时间:” ＋ 时间到文本 (取现行时间 (), #全部转换)
.如果真结束
.如果真 (_启动窗口.选择框2.选中)
显示输出 ＝ 显示输出 ＋ #换行符 ＋ “客户信息:” ＋ 当前客户
.如果真结束
.如果真 (_启动窗口.选择框1.选中)
显示输出 ＝ 显示输出 ＋ #换行符 ＋ “客户系统语言:” ＋ 读配置项 (取运行目录 () ＋ “\ServerTemp.ini”, “a”, “Accept-Language”, “”)
.如果真结束
.如果真 (_启动窗口.选择框4.选中)
显示输出 ＝ 显示输出 ＋ #换行符 ＋ “客户浏览器类型:” ＋ 读配置项 (取运行目录 () ＋ “\ServerTemp.ini”, “a”, “User-Agent”, “”)
.如果真结束
.如果真 (_启动窗口.选择框6.选中)
显示输出 ＝ 显示输出 ＋ #换行符 ＋ “客户请求接收数据类型:” ＋ 读配置项 (取运行目录 () ＋ “\ServerTemp.ini”, “a”, “Accept”, “”)