易语言Http开发框架.zip

# EhttpServer 易语言Http开发框架 易语言MVC开发框架 感谢{ 《卓越网维小邓》提供的HP易语言静态库。 《kn剑齿虎》SQL生成库。 《kyozy》提供的HashTable与sqlite3模块。 } HTTP层基于HPsocket5.3.4实现。 静态编译需要用到VS2010 链接器(20180925) 链接: https://pan.baidu.com/s/1fsxtjFhnAD8GaTHt1ZpXmQ 提取码: aqym 例子简单实现前段与后台。 自动路由规则。 控制器 Route.AddRoute (“/”, ControllerIndex.SumFunAddres (4), 取变量数据地址 (ControllerIndex)) Route.AddRoute (“/index/story”, ControllerIndex.SumFunAddres (5), 取变量数据地址 (ControllerIndex)) Route.AddRoute (“/index/update”, ControllerIndex.SumFunAddres (6), 取变量数据地址 (ControllerIndex)) Route.AddRoute (“/user/index”, ControllerLogin.SumFunAddres (4), 取变量数据地址 (ControllerLogin)) Route.AddRoute (“/user/login”, ControllerLogin.SumFunAddres (5), 取变量数据地址 (ControllerLogin)) Route.AddRoute (“/admin/main”, ControllerUser.SumFunAddres (4), 取变量数据地址 (ControllerUser)) Route.AddRoute (“/admin/index”, ControllerUser.SumFunAddres (5), 取变量数据地址 (ControllerUser)) Route.AddRoute (“/admin/logout”, ControllerUser.SumFunAddres (6), 取变量数据地址 (ControllerUser)) Route.AddRoute (“/admin/news/index”, ControllerNews.SumFunAddres (4), 取变量数据地址 (ControllerNews)) Route.AddRoute (“/admin/news/add”, ControllerNews.SumFunAddres (5), 取变量数据地址 (ControllerNews)) Route.AddRoute (“/admin/news/addnews”, ControllerNews.SumFunAddres (6), 取变量数据地址 (ControllerNews)) Route.AddRoute (“/admin/news/delnews”, ControllerNews.SumFunAddres (7), 取变量数据地址 (ControllerNews)) 注册路由，并且计算出对应地址。并且实现自动调用 每个控制器中第一方法必须是SumFunAddres并且必须公开。第二个参数是方法序号，用于计算控制器内存地址。 序号计算方法{ _初始化:0 _销毁:1 SumFunAddres:2 Prepare：3 } 所以你的控制器从4开始算。 一个简单的登陆例子 Http 为参考类型，是控制器请求与响应的中间件，里边实现一些基础数据传递。 Prepare (Http) 如果 (This.IsPost ()) User ＝ This.Post (“user”) Pass ＝ This.Post (“pass”) User_id ＝ SqlLite3.Wx_User ().Login (User, Pass) 如果 (User_id ≠ 0) SessionId ＝ Session.SessionCreate (User_id, User, Http.Request.ClientIp) This.SetCookie (SessionId) This.Success (“登陆成功”, “/admin/main”) This.Error (“用户名或者密码错误”, “/user/index”) 否则 This.Error (“用户名或者密码错误”, “/user/index”) 以上为基础逻辑控制 Http.Response.Body ＝ 到字节集 (This.GetTemplateContent ()) 比较关键.将模版内容设置到BODY体中。 This.GetHerder (Http.Response.Herder) 设置Herder头 Http.Response.StateCode ＝ 200 以上为响应体与响应头 视图层支持基础的模版功能 变量分配，模版展示。 M层 只实现了一些基础的SQL语句生成。 例如插入 news.Create_time ＝ Times.Time () SQLAction.data (“news_title”).val_Str (news.News_title) SQLAction.data (“news_content”).val_Str (news.News_title) SQLAction.data (“create_time”).val_Int32 (news.Create_time) SQL ＝ SQLAction.Insert (“wx_news”) 返回 (SQLlite.执行SQL (SQL)) 删除 SQLAction.Model (“wx_news”) SQL ＝ SQLAction.where (“news_id = ” ＋ 到文本 (News_ID)).Delete () 返回 (SQLlite.执行SQL (SQL)) 另外还支持设置静态目录，SESSION管理，MIME类型自识别等等。 以前挺喜欢易语言单文件的原代码格式，现在接触语言多了越发多文件的好处实在太多了，比如易语言的“自定义数据类型”如果定义类型过多话，找起来非常麻烦，非常建议老吴给“自定义数据类型”也加个文件夹管理功能吧，做好类型分类，这样做会好很多的。 有过MVC开发经验的简单看看就能看懂我的结构。 易语言缺少很多现代语言的特性，例如反射、动态类等等，连基本的类都是伪类。为了动态调用类遇到了很多坑。比如调用类的时候要带上本对象，然后还得手动初始化局部变量，如果这两件事没做会遇到各种崩溃，之前参考其他易友写的方法，就是各种的崩溃，直到反编译了易语言调用方法。 以上开发的只是初步实现，离可以上线还缺少很多东西，例如SQL注入，Session安全，等等。 做一些简单小网站暂时够用，只要你觉得不嫌麻烦。 调用类方法的过程。 pushad mov ecx,dword ptr ss:[ebp+10] push ecx mov eax,dword ptr ss:[ebp+8] push eax eax,dword ptr ss:[esp] eax,dword ptr ds:[eax] eax,dword ptr ds:[eax] mov ecx,dword ptr ss:[ebp+c] call ecx popad