Foxtable(狐表)用户栏目专家坐堂 → [求助]请教这个提示 怎么回事


  共有1976人关注过本帖树形打印复制链接

主题:[求助]请教这个提示 怎么回事

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 14:34:00 [显示全部帖子]

如果是get方式,如果有中文,注意编码 ResponseEncoding

 

http://www.foxtable.com/mobilehelp/scr/0022.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 14:35:00 [显示全部帖子]

 加密解密的字符串是有要求的,如果字符串的长度不符合,解密失败会报错。你可以加上try catch

 

http://www.foxtable.com/webhelp/scr/2070.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 14:57:00 [显示全部帖子]

 比如 httpRequest事件 设置 e.ResponseEncoding = "GB2313"

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 16:02:00 [显示全部帖子]

 foxtable的get方法是有点问题,你要自己转

 

 

Dim file As String = "文件.txt"
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")  
Dim def As Encoding = Encoding.Default
Bytes = def.GetBytes(file)
Bytes = Encoding.Convert(def, utf, Bytes)  
file = def.GetString(Bytes)  
Output.Show(file)

 

----------------------

 

Dim file As String = "鏂囦欢.txt"
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")  
Dim def As Encoding = Encoding.Default
Bytes = utf.GetBytes(file)
Bytes = Encoding.Convert(utf, def, Bytes)
file = utf.GetString(Bytes)  
Output.Show(file)


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 16:17:00 [显示全部帖子]

以下是引用18523982317在2017/3/23 15:46:00的发言:

另外,求色大大帮我写各css,我想让wb.AddInputGroup("form1","ipg1","登录"),登录的这个条条背景变下颜色,字体变下颜色,和加粗,这个真写不来。。。。

 

登录那里没有背景颜色,它显示的是整个body的背景颜色。

 

如果要设置就这样

 

wb.AppendHTML("<style>.weui_cells_title{background-color: red;font-size: 1em;line-height: 3}</style>")


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 17:00:00 [显示全部帖子]

变通处理,参考

 

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        wb.AppendHTML("<style>#abc{background-color: red;font-size: 1em;line-height: 3}</style>")
        With wb.AddInputGroup("form1","ipg1","</div><div id=""abc""  class=""weui_cells_title"">登录")
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        With wb.AddInputGroup("form1","ipg2","登录")
            .AddInput("xm1","户名","text")
            .AddInput("pw1","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 17:18:00 [显示全部帖子]

这个?

 

.AddButton("btn1","返回").Attribute = "onclick='history.back()'"


 回到顶部