以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] WEUI 解析出来的HTML都变成小写了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123192)

--  作者:goodhawk
--  发布时间:2018/8/9 16:52:00
--  [求助] WEUI 解析出来的HTML都变成小写了
我写的 post 的code 为,其中 ticketNumber,loginName 的N为大写, 

    Case "addorder.htm"
        \' Dim wb As New weui
        wb.AddForm("","form1","http://XXX/api/v2/order/dispatcher_order")
        With wb.AddInputGroup("form1","ipg1","同步订单")
            .AddInput("ticketNumber","车次","text")
            .AddInput("loginName","同步账号","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With

到HTML上呈现的时候, 全部变成小写了, 导致了这个信息提交到请求地址, 变成不认识了, 

这个该咋弄呢?

--  作者:有点甜
--  发布时间:2018/8/9 17:08:00
--  
Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        wb.AddForm("","form1","http://XXX/api/v2/order/dispatcher_order")
        With wb.AddInputGroup("form1","ipg1","同步订单")
            .AddInput("ticketNumber","车次","text")
            .AddInput("loginName","同步账号","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build.replace("ticketnumber", "ticketNumber").replace("loginname", "loginName"))
End Select