易语言简单的登录注册实现源码

.版本 2
.支持库 EThread
.支持库 spec
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 server, HttpServer
.程序集变量 许可, 整数型

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

许可 ＝ 创建进入许可证 ()
启动线程 (&子程序1, , )

.子程序 子程序1
.局部变量 serverConfig, ServerConfig
.局部变量 loggerConfig, LoggerConfig
.局部变量 controllerConfig, ControllerConfig

程序_延时 (1000)
serverConfig.setAll (80, 30)
loggerConfig.setAll (假, 真, , 编辑框1)
controllerConfig.addMethod (“/reg”, &注册)
controllerConfig.addMethod (“/login”, &登录)
server.start (serverConfig, controllerConfig, , loggerConfig)

.子程序 注册, 文本型, , /reg
.参数 paramMultiLine, 文本型
.局部变量 paramEntity, Object
.局部变量 requestLine, 文本型
.局部变量 requestPointer, 整数型
.局部变量 pointerBack, 整数型
.局部变量 request, HttpRequest
.局部变量 response, 字节集
.局部变量 responsePointer, 整数型
.局部变量 responseLength, 整数型
.局部变量 methodResult, 文本型
.局部变量 u, 文本型
.局部变量 p, 文本型
.局部变量 x, 整数型
.局部变量 返回文本, 文本型

requestLine ＝ 文本_取指定变量文本行 (paramMultiLine, 1)
requestPointer ＝ 到整数 (requestLine)
pointerBack ＝ 指针转移 (requestPointer, 取变量地址 (request))
paramMultiLine ＝ 子文本替换 (paramMultiLine, requestLine ＋ #换行符, , , , 真)
paramEntity.parseByMultiLine (paramMultiLine)
' 请在下面填写代码，上面的不能动
' 获取k=v参数的方式：   paramEntity.get("username")
' 获取json数据：  paramEntity.get("json")
' 获取cookies：  request.cookies
' 获取请求协议头： request.headers.get("协议头名字")
u ＝ paramEntity.get (“u”)
p ＝ paramEntity.get (“p”)
.判断开始 (超级列表框1.查找表项 (u, , , 0) ＞ -1)
    返回文本 ＝ “用户名儿已存在”
.默认
    进入许可区 (许可)
    x ＝ 超级列表框1.插入表项 (, , , , , )
    退出许可区 (许可)
    超级列表框1.置标题 (x, 0, u)
    超级列表框1.置标题 (x, 1, p)
    返回文本 ＝ “注册成功”
.判断结束
' response ＝ server.getImageResponse (200, “OK”, {  })
response ＝ server.getJsonResponse (200, “OK”, 返回文本, #HttpServerEncoding_UTF8)
指针还原 (requestPointer, 取变量地址 (request), pointerBack)
responseLength ＝ 取字节集长度 (response)
responsePointer ＝ 申请内存 (responseLength, 真)
methodResult ＝ 到文本 (responsePointer) ＋ “-” ＋ 到文本 (responseLength)
写到内存 (response, responsePointer, responseLength)
返回 (methodResult)

.子程序 登录, 文本型, , /login
.参数 paramMultiLine, 文本型
.局部变量 paramEntity, Object
.局部变量 requestLine, 文本型
.局部变量 requestPointer, 整数型
.局部变量 pointerBack, 整数型
.局部变量 request, HttpRequest
.局部变量 response, 字节集
.局部变量 responsePointer, 整数型
.局部变量 responseLength, 整数型
.局部变量 methodResult, 文本型
.局部变量 u, 文本型
.局部变量 p, 文本型
.局部变量 x, 整数型
.局部变量 返回文本, 文本型

requestLine ＝ 文本_取指定变量文本行 (paramMultiLine, 1)
requestPointer ＝ 到整数 (requestLine)
pointerBack ＝ 指针转移 (requestPointer, 取变量地址 (request))
paramMultiLine ＝ 子文本替换 (paramMultiLine, requestLine ＋ #换行符, , , , 真)
paramEntity.parseByMultiLine (paramMultiLine)
' 请在下面填写代码，上面的不能动
' 获取k=v参数的方式：   paramEntity.get("username")
' 获取json数据：  paramEntity.get("json")
' 获取cookies：  request.cookies
' 获取请求协议头： request.headers.get("协议头名字")
u ＝ paramEntity.get (“u”)
p ＝ paramEntity.get (“p”)
x ＝ 超级列表框1.查找表项 (u, , , 0)
.判断开始 (x ＝ -1)
    返回文本 ＝ “用户名儿不存在”
.判断 (超级列表框1.取标题 (x, 1) ＝ p)
    返回文本 ＝ “登录成功”
.默认
    返回文本 ＝ “密码不对”
.判断结束
' response ＝ server.getImageResponse (200, “OK”, {  })
response ＝ server.getJsonResponse (200, “OK”, 返回文本, #HttpServerEncoding_UTF8)
指针还原 (requestPointer, 取变量地址 (request), pointerBack)
responseLength ＝ 取字节集长度 (response)
responsePointer ＝ 申请内存 (responseLength, 真)
methodResult ＝ 到文本 (responsePointer) ＋ “-” ＋ 到文本 (responseLength)
写到内存 (response, responsePointer, responseLength)
返回 (methodResult)

.子程序 空白controller, 文本型, , /demo
.参数 paramMultiLine, 文本型
.局部变量 paramEntity, Object
.局部变量 requestLine, 文本型
.局部变量 requestPointer, 整数型
.局部变量 pointerBack, 整数型
.局部变量 request, HttpRequest
.局部变量 response, 字节集
.局部变量 responsePointer, 整数型
.局部变量 responseLength, 整数型
.局部变量 methodResult, 文本型

requestLine ＝ 文本_取指定变量文本行 (paramMultiLine, 1)
requestPointer ＝ 到整数 (requestLine)
pointerBack ＝ 指针转移 (requestPointer, 取变量地址 (request))
paramMultiLine ＝ 子文本替换 (paramMultiLine, requestLine ＋ #换行符, , , , 真)
paramEntity.parseByMultiLine (paramMultiLine)
' 请在此处填写代码
' 获取k=v参数的方式：   paramEntity.get("username")
' 获取json数据：  paramEntity.get("json")
' response ＝ server.getImageResponse (200, “OK”, {  })
response ＝ defaultServer.getJsonResponse (200, “OK”, “请修改此处”, #HttpServerEncoding_UTF8)
指针还原 (requestPointer, 取变量地址 (request), pointerBack)
responseLength ＝ 取字节集长度 (response)
responsePointer ＝ 申请内存 (responseLength, 真)
methodResult ＝ 到文本 (responsePointer) ＋ “-” ＋ 到文本 (responseLength)
写到内存 (response, responsePointer, responseLength)
返回 (methodResult)

.子程序 __启动窗口_将被销毁

删除进入许可证 (许可)

@含沙射影