开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 资源交易 › 任务交易 › [预览版本]基于VB6开发你的WEB/API服务器
返回列表 发新帖
查看: 164|回复: 2

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

[复制链接]
邓伟 发表于 2024-10-14 11:37:58 | 显示全部楼层 |阅读模式
本帖最后由 邓伟 于 2024-10-14 12:28 编辑

'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

  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

  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 版本图预览----------------------------


1728810447098.png
实现了无限层级的嵌套json构建.png
实现了无限层级的嵌套json构建2.png

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


vbman静态服务器示例.jpg

3毫秒.jpg
------------------------------------hello world-------------------------


vbman动态webapi.jpg


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

评分

1

查看全部评分

ASP币如何冲？请看这里
回复

使用道具 举报

xuanxiao 发表于 2024-10-14 11:41:18 | 显示全部楼层
必须支持，VB和ASP都是一家人
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

一往情僧 发表于 2024-10-14 13:59:02 | 显示全部楼层
必须支持，VB和ASP都是一家人
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号