Foxtable(狐表)用户栏目专家坐堂 → 使用框架设计网页,weui的属性在哪里设置?


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

主题:使用框架设计网页,weui的属性在哪里设置?

帅哥,在线噢!
ycwk
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1221 积分:8499 威望:0 精华:0 注册:2016/2/2 21:52:00
使用框架设计网页,weui的属性在哪里设置?  发帖心情 Post By:2017/3/9 15:11:00 [只看该作者]

比如: WeUIPath

我按照帮助设置了httprequest的代码
http://www.foxtable.com/mobilehelp/scr/0011.htm

并把weui的3个文件放置在  D:\web\weui  路径下,

用电脑的浏览器访问: http://127.0.0.1:80/addnew.htm   显示    HTTP Error 404. The requested resource is not found.   

使用的是微信案例中的服务端代码,  增加了“动态生成网页” 的一段代码


不知道是什么问题。
[此贴子已经被作者于2017/3/9 15:13:42编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2017/3/9 15:15:00 [只看该作者]

没有开启服务

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/9 15:24:00 [只看该作者]


 回到顶部
帅哥,在线噢!
ycwk
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1221 积分:8499 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2017/3/9 15:34:00 [只看该作者]

确实开启服务了,只不过有时候点击"开启服务"按钮不起作用,非要在命令窗口运行一下命令。郁闷!  也是用管理员身份运行的。

现在开启了,显示"sucess",但查找代码,整个服务端代码里面都 没有e.writestring("sucess")

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/9 15:37:00 [只看该作者]

 

请按照帮助文档步骤做。或者你单独弄一个项目去测试。

 

 


 回到顶部
帅哥,在线噢!
ycwk
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1221 积分:8499 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2017/3/9 18:25:00 [只看该作者]

更新成第三版 foxtable ,下载了3.7 14:00更新的微信案例, 结果打开到处报错 (例如:点击"接收规则"  报错如下:  e是private,因此它在上下文中不可访问  ,错误代码 e.cancel=true)   ,是不是连数据库也要更新?  数据库添加了太多配置,实在不想更新。   

好吧,删了bin文件夹,重启好点了




现在这版foxtable 打不开3.7  14:00之前更新的微信案例中的客户端了。  这个问题是怎么回事?



[此贴子已经被作者于2017/3/9 18:32:54编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/9 18:47:00 [只看该作者]

备份好你的数据库。

 

下载案例,恢复案例的数据库,然后打开案例。这样不可能出问题。

 

然后再还原你的数据库看信不信,如果不行,那就拷贝你原来的数据粘贴进去。


 回到顶部
帅哥,在线噢!
ycwk
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1221 积分:8499 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2017/3/9 21:13:00 [只看该作者]

建议下次更新案例的时候给个更新说明可以么?
为什么我这次更新foxtable以后,打不开之前的案例客户端了?
顺便说一句,这个案例虽然还有很多问题,但真的很精彩!
[此贴子已经被作者于2017/3/9 21:14:11编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/9 21:26:00 [只看该作者]

 

打不开客户端的话,提示什么错误?

 


 回到顶部
帅哥,在线噢!
ycwk
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1221 积分:8499 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2017/3/10 19:47:00 [只看该作者]

单独弄一个项目,代码如帮助, 可以正常弹出网页


但在微信案例中,httprequest 写成如下代码,就死活弹不出(微信服务号中的菜单,已用接口设置好,触发view菜单,只能打开  显示一个success 的网页,不知何故)

try

    Select Case e.host
        Case "192.168.1.153","127.0.0.1","ycyysf.viphk.ngrok.org"
            Dim dr As DataRow
            Dim url As String
            Dim wechatserv As WeChat.WeChatPublicNo
            If e.Path > "" Then
                url = "http://" & e.host & "/" & e.Path.replace("\","/").replace("'","''").replace("""","""""") & "/"

                wechatserv = Functions.Execute("WeChat_GetServerByUrl",url) '查询是否有此地址的微信公众号
            End If
            If wechatserv IsNot Nothing Then '说明是微信接口回调消息

                wechatserv.ProcessMessage(e,"WeChat_ProcessRequestMsg") '处理消息并获取返回值
                'Functions.Execute("LogText","回复=" & weRet)
            Else
                '通用事件头
                '如果网页路径定义了中间目录,如"ordertest/logon.htm" ,则下面的fl实际就是"d:\web\ordertest\weui\weui.me.js"
                '因此你需要把WeUI框架三个文件复制到"d:\web\ordertest\weui"目录下
                Dim fl As String = "d:\web\" & e.path
                If filesys.FileExists(fl)
                    Dim idx As Integer = fl.LastIndexOf(".")
                    Dim ext As String  = fl.SubString(idx)
                    Select Case ext
                        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
                            e.WriteFile(fl)
                            Return '这里必须返回
                    End Select
                End If
            
                Select Case e.Path
 Case "addnew.htm"
        Dim wb As New WeUI '定义一个基于weui框架的网页生成器
        wb.AddForm("","form1","addnew.htm")
        With wb.AddInputGroup("form1","ipg1","新增订单")
            .AddSelect("cp","产品","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy","雇员","text")
            .AddInput("kh","客户","text")
            .AddInput("dj","单价","number")
            .AddInput("zk","折扣","number")
            .AddInput("sl","数量","number")
            .AddInput("rq","日期","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","确定")
        End With
        e.WriteString(wb.Build) '生成网页

                    Case "gettoken" '做为AccessToken中控服务
                        Dim atoken As WeChat.AccessToken = WeChat.WeChatAccessTokenController.GetServiceAccessToken(e.PlainText)
                        e.WriteString(atoken.ToJson()) '返回access_token的JSON数据
                    Case "scanlogon" '做为AccessToken中控服务
                        Functions.Execute("Http_ScanLogon" ,e)
                    Case Else
                        If e.Path.StartsWith("ordertest\") Then '公众号订单测试地址前缀都统一使用这个
                            Functions.Execute("Order_HttpRequest",e)
                        ElseIf e.Path.StartsWith("review\") Then '企业号订单审核地址前缀都统一使用这个
                            Functions.Execute("Order_HttpReview",e)
                        End If
                End Select      'e.path 的配对
            End If
    End Select     'e.host的配对
    '记录接收的消息,方便分析
    Dim str As new StringBuilder
    'str.AppendLine("host=" & e.host)
    str.AppendLine("path=" & e.Path)
    str.AppendLine("HttpMethod=" & e.Request.HttpMethod)
    'str.AppendLine("poststring=" & e.PlainText)
    'str.AppendLine("ip=" & e.Request.RemoteEndPoint().Address.ToString())
    For Each key As String In e.Values.Keys
        str.AppendLine(key & "=" & e.Values(key))
    Next
    Functions.Execute("logText",str.ToString)
catch ex As Exception
    Functions.Execute("LogText",ex)
    e.WriteString("")
End Try


 回到顶部
总数 17 1 2 下一页