主题：服务端老一段时间自己报错

项目事件

AfterOpenProject

HttpServer.Prefixes.Add("http://*:8808/")

HttpServer.WebPath = "c:\wbweb"  '指定静态文件存储位置

HttpServer.Start()

HttpRequest

Dim Verified As Boolean

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

    '实际开发的时候,请改为根据用户表验证身份

    Dim username As String  = e.PostValues("username")

    Dim password As String  = e.PostValues("password")

    If username = "张三" AndAlso password = "888" Then

        Verified  = True

    End If

End If

If Verified = False Then

    e.AppendCookie("Error","用户身份验证失败!") '通过Cookie返回错误信息.

    Return

End If

Select Case e.Path

    Case "DataServer.htm"

        e.AsDataServer("wbsy")  '将一个本地数据源公开为Web数据源

End Select

计划管理

表事件

窗口表事件

窗口与控件事件

服务管理_Button1_Click

HttpServer.Prefixes.Add("http://*:8808/")

HttpServer.WebPath = "c:\wbweb"  '指定静态文件存储位置

HttpServer.Start()

服务管理_Button3_Click

HttpServer.Close()

e.Form.Controls("Button1").Enabled = True

自定义函数

全局代码

菜单事件

功能区1_功能组1_标准按钮1_Click

Forms("服务管理").Open()