易语⾔实现服务器登录注册，易语⾔简单的登录注册实现源码.版本 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参数的⽅式：  ("username")
' 获取json数据：  ("json")
' 获取cookies：  kies
' 获取请求协议头： ("协议头名字")
u ＝ (“u”)
p ＝ (“p”)
.判断开始 (超级列表框1.查表项 (u, , , 0) ＞ -1)
返回⽂本 ＝ “⽤户名⼉已存在”
.默认
进⼊许可区 (许可)
x ＝ 超级列表框1.插⼊表项 (, , , , , )
退出许可区 (许可)
超级列表框1.置标题 (x, 0, u)
超级列表框1.置标题 (x, 1, p)
返回⽂本 ＝ “注册成功”
.
判断结束
' response ＝ ImageResponse (200, “OK”, {  })
response ＝ JsonResponse (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参数的⽅式：  ("username")
' 获取json数据：  ("json")
' 获取cookies：  kies
' 获取请求协议头： ("协议头名字")
u ＝ (“u”)
p ＝ (“p”)
x ＝ 超级列表框1.查表项 (u, , , 0)
.判断开始 (x ＝ -1)
返回⽂本 ＝ “⽤户名⼉不存在”
.判断 (超级列表框1.取标题 (x, 1) ＝ p)
返回⽂本 ＝ “登录成功”
.默认
返回⽂本 ＝ “密码不对”
.判断结束
' response ＝ ImageResponse (200, “OK”, {  })
response ＝ JsonResponse (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参数的⽅式：  ("username")
' 获取json数据：  ("json")
' response ＝ ImageResponse (200, “OK”, {  })
response ＝ JsonResponse (200, “OK”, “请修改此处”, #HttpServerEncoding_UTF8)指针还原 (requestPointer, 取变量地址 (request), pointerBack)
responseLength ＝ 取字节集长度 (response)
responsePointer ＝ 申请内存 (responseLength, 真)
methodResult ＝ 到⽂本 (responsePointer) ＋ “-” ＋ 到⽂本 (responseLength)
写到内存 (response, responsePointer, responseLength)
返回 (methodResult)
.⼦程序 __启动窗⼝_将被销毁
删除进⼊许可证 (许可)
@含沙射影
⽂件下载
解压密码：
来源：三叶资源⽹，欢迎分享，：iisanye，(三叶资源⽹⑤：21414575)