[预览版本]基于VB6开发你的WEB/API服务器

'VBMAN 提供一个 dll com组件对象, 让你的 exe 程序几句话就拥有 web 服务器
( 后期支持运行 vbs / JScript 脚本程序 )
'本示例使用 VBMAN 开发框架进行演示, 主要用于快速WEB服务器开发, 框架包含
'       HTTP服务器对象
'       HTTP客户端对象
'       数据库对象
'       JSON对象
'       等等各种配套设施, 后期将加入 TCP / WEBSOCKET / SSE / MQTT 等物联网对象
'以下是HTTP主服务器实例, 可以配置各种WEB参数和对象
'       路由对象
'       中间件 & 异步回调
'       数据库配置 & 日志配置

1. Dim HttpServer As New VBMAN.cHttpServer
   
2. 
   
3. Private Sub Form_Load()
   
4.     With HttpServer
   
5.         '配置数据库链接，支持acces/mysql/sqlserver，配置后全局可用
   
6.         .Database.Connect Access, "rtxdb.mdb"
   
7.         '按需要注册业务类对象实例，也叫控制器，
   
8.         .Router.Reg "Users", New bUsers
   
9.         .Router.Reg "Station", New bStation
   
10.         '如果开启自动路由, 则可以不需要手动定义路由, 默认关闭自动路由
    
11.         '        .Router.AutoRoute = True
    
12.         '浏览器直接使用 /类名称/函数名称 就可以访问, 比如
    
13.         '       http://127.0.0.1/users/list
    
14.         '新增路由映射
    
15.         '       参数1, 是路由名称 , 可任意定义, 用于匹配浏览器访问的地址路径
    
16.         '       参数2, 是路由对象, 由  类名称@函数  组成, 参数1匹配成功则执行该函数
    
17.         .Router.Add "/api/users/listview.php", "Users@List"
    
18.         .Router.Add "/api/station/resource", "Station@Resource"
    
19.         '启动Http服务器, 参数1是端口号, 参数2不为空则启用静态目录, 支持相对路径
    
20.         .Start 8080
    
21.         '以上代码中, 除了 Start 8080 之外的都属于配置项
    
22.         '如果你的配置很多, 比如要定义几十个路由地址, 建议是新建一个模块文件,
    
23.         '比如 Config.bas 然后在里面写个 InitHttpServer(Svr as cHttpServer) 函数
    
24.     End With
    
25. End Sub
    

复制代码

几句话启动之后, 就可以执行你的业务代码了,,

1. '这里就是一个个的实际业务函数了,全部都包含一个 ctx 上下文对象
   
2. '该对象包含了各种web开发所需的配套对象
   
3. '       数据库对象,
   
4. '       输入请求对象
   
5. '       输出返回对象
   
6. '       日志对象
   
7. '       Session & Cookies
   
8. 
   
9. Public Sub List(ctx As cHttpServerContext)
   
10.     With ctx
    
11.         Dim p As Long: p = .Request.QueryString("page")
    
12.         If .Db.Sql("select * from SYS_User").Page(p, 10).Fetch() = True Then
    
13.             .Response.Json .Db.Row
    
14.         Else
    
15.             .Response.State500 ctx.Db.LastErr
    
16.         End If
    
17.     End With
    
18. End Sub
    

复制代码

----------------------------------demo 版本图预览----------------------------

-------------------------------------静态服务器---------------------

------------------------------------hello world-------------------------

demo版本近期做完就发布到这里

必须支持，VB和ASP都是一家人

必须支持，VB和ASP都是一家人