.版本 2
.支持库 e2ee
.支持库 spec
.支持库 internet
.程序集 窗口程序集_启动窗口
.程序集变量 网站, 网站服务器
.子程序 __启动窗口_创建完毕
网站.初始化 (取运行目录 ())
' 网站.订阅后置全局函数 (&houzhi, )
' 网站.订阅全局函数 (&quanjuhanshu, )
' 网站.订阅全局函数 (&quanjuhanshu, #全局函数_静态文件)
' 网站.订阅全局函数 (&a404, #全局函数_状态页_404)
' 网站.订阅视图函数 (&indexController, “index”, , )
' 网站.订阅视图函数 (&searchController, “/s”, , )
' 网站.订阅视图函数 (&loginController, “/login”, , )
网站.订阅视图函数 (&upload, “/upload”, , )
网站.订阅视图函数 (&uploadc, “/uploadc”, , )
网站.订阅视图函数 (&session, “/setsession”, , )
网站.订阅视图函数 (&jiazhi, “/jianzhi”, , )
网站.订阅视图函数 (&chunquliebiao, “/liebiao”, , )
网站.订阅视图函数 (&wangzhanmoban, “/moban”, “moban.esp”, )
网站.订阅视图函数 (&alluser, “/alluser”, “alluser.esp”, )
网站.启动 (, 假)
' 打开指定网址 (“http://127.0.0.1:8080”)
.子程序 alluser, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
.局部变量 用户表, 存取列表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
创建用户 (用户表, “ddd”, “bbb”)
创建用户 (用户表, “ddd11”, “bbb”)
模板数据.置值 (“用户表”, 用户表)
返回 (响应.渲染 (模板数据, , ))
.子程序 创建用户
.参数 用户表, 存取列表, 参考
.参数 用户名, 文本型
.参数 密码, 文本型
.局部变量 用户, 存取键值表
用户.创建 (“用户名”, 用户名, “密码”, 密码)
用户表.添加值 (用户)
.子程序 wangzhanmoban, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
.局部变量 cunquliebiao, 存取列表
.局部变量 jianzhibiao, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
jianzhibiao.创建 (“1532”, 4564, 541635, 5, 41, 6541, 56, 41, 35, 41)
cunquliebiao.创建 (“ddd”, 541653, 561, 654, 654, 13, 54)
模板数据.置值 (“jianzhibiao”, jianzhibiao)
模板数据.置值 (“cunquliebiao”, cunquliebiao)
返回 (响应.渲染 (模板数据, , ))
.子程序 chunquliebiao, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
.局部变量 cunquliebiao, 存取列表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
cunquliebiao.创建 (“ddd”, 541653, 561, 654, 654, 13, 54)
响应.写出文本 (cunquliebiao.到JSON (假, , ))
返回 (响应.渲染 (模板数据, , ))
.子程序 jiazhi, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
.局部变量 jianzhibiao, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
' 调试输出 (jianzhibiao.到JSON (假, , ))
jianzhibiao.创建 (“test”, 51, “dsa”, “sdfsdf”)
jianzhibiao.置值 (“test”, “test”)
响应.写出文本 (jianzhibiao.到JSON (假, , ))
返回 (真)
.子程序 session, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
请求.置Session值 (“test”, “test”)
调试输出 (请求.取Session值 (“test”))
返回 (响应.渲染 (模板数据, , ))
.子程序 uploadc, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
调试输出 (到文本 (请求.取上传文件信息 (“file”).取字节集 (“filename”)))
写到文件 (到文本 (请求.取上传文件信息 (“file”).取字节集 (“filename”)), 请求.取上传文件信息 (“file”).取字节集 (“file”))
返回 (真)
.子程序 upload, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
响应.发送文件 (“/upload.html”)
响应.写出文本 (“ddddd”)
返回 (真)
.子程序 quanjuhanshu, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
请求.属性表 ().置值 (“title”, “1”)
输出调试文本 (请求.属性表 ().取文本 (“title”))
返回 (真)
.子程序 a404, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
响应.写出文本 (“<script>alert('ddddd')</script>”)
返回 (真)
.子程序 houzhi, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
' 响应.写出文本 (“ddddd”)
返回 (真)
.子程序 loginController, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 模板数据, 存取键值表
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
用户名 ＝ 请求.取参数 (“username”, )
密码 ＝ 请求.取参数 (“password”, )
.如果 (用户名 ＝ “123” 且 密码 ＝ “123”)
响应.写出文本 (“登陆成功”)
.否则
响应.写出文本 (“登陆失败”)
.如果结束
返回 (真)
.子程序 searchController, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
.局部变量 关键字, 文本型
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
关键字 ＝ 请求.取参数 (“wd”, )
响应.写出数据 (HTTP读文件 (“https://www.sogou.com/web?query=” ＋ 关键字))
返回 (真)
.子程序 indexController, 逻辑型
.参数 请求对象地址, 整数型
.参数 响应对象地址, 整数型
.局部变量 请求, 服务器请求
.局部变量 响应, 服务器响应
取回请求对象 (请求对象地址, 响应对象地址, 请求, 响应)
' // TODO: 业务处理逻辑
返回 (真)