主题：[求助]并发30多正常么？

weui异步网页，压力测试只有30多，正常么？

有什么办法优化？

开启了三个服务端口，用了nginx负载均衡，还是只有30多并发，怎么办？

页面代码就这么简单：

Dim e As RequestEventArgs = Args(0)
Dim wb As New weui
wb.AppendHTML("<script src='https://g.alicdn.com/gdt/jsapi/1.9.6/index.js'></script>",True)
wb.AppendHTML("<script src='./ding/getAuthCode.js'></script>")

If e.PostValues.Count = 0 Then
    With wb.AddMsgPage("","msgpage","校验浙政钉接入", "未接收到POST数据" ) '生成成功提示页
        .icon = "success" '改变图标
    End With
Else
    With wb.AddMsgPage("","msgpage","校验浙政钉接入", "接收到POST数据" ) '生成成功提示页
        .icon = "success" '改变图标
    End With

    For Each key As String In e.PostValues.Keys
        wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
    Next
End If

e.WriteString(wb.Build)
e.Handled = True

忘了说了，前面有个校验代码：

 

Dim e As RequestEventArgs = Args(0)
Dim t As Date = Date.Now

If Functions.Execute("Http_GetFiles",e) Then '如果是请求静态资源,直接返回中止
   Return ""
End If

'校验host
Select Case e.host
    Case "127.0.0.1"
       
    Case "ding.XXXX.cn"
        If e.request.userAgent.ToLower().contains("taurusapp")=False Then  '校验专有钉钉
            Dim wb As New WeUI
            With wb.AddMsgPage("","msgpage","页面发生错误!", "请在浙政钉打开" ) '生成成功提示页
                .icon = "Warn" '改变图标
            End With
            e.WriteString(wb.Build)
            Return ""
        End If

        If zzdPathList.ToLower().contains(e.path.ToLower())=False  Then '校验钉钉打开页面清单
            Dim wb As New WeUI
            With wb.AddMsgPage("","msgpage","页面发生错误!", "钉钉页面不存在" ) '生成成功提示页
                .icon = "Warn" '改变图标
            End With
            e.WriteString(wb.Build)
            Return ""
        End If
    Case Else
        Dim wb As New WeUI
        With wb.AddMsgPage("","msgpage","页面发生错误!", "域名不存在" ) '生成成功提示页
            .icon = "Warn" '改变图标
        End With
        e.WriteString(wb.Build)
        Return ""
End Select

 

Functions.AsyncExecute("ddIndex_htm",e)  '楼上页面代码

网络环境倒是也有可能

阿里云nginx转发到内网，内网搭建foxtable服务

单页面响应时间大概是100ms

至于并发测试是使用阿里的测试服务pts测试的

 

目前有多个系统页面在一个服务中，我打算搭建一个单纯测试的服务，再测试一下