Foxtable(狐表)用户栏目专家坐堂 → 在foxtable中如何引用其它的框架,jquery


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

主题:在foxtable中如何引用其它的框架,jquery

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


加好友 发短信
等级:六尾狐 帖子:1228 积分:8561 威望:0 精华:0 注册:2016/2/2 21:52:00
在foxtable中如何引用其它的框架,jquery  发帖心情 Post By:2017/3/19 9:28:00 [只看该作者]

我套用了一个其它的网站的UI,放在D:\web\xdf, 框架显示都没有问题,不知道是否可以用它的框架显示类似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) '生成网页
End Select



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


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

如果我放弃weui 框架,而使用jquery框架, 貌似页面内的元素都不能动态生成了,只能使用静态的html页面,那提交到数据库的代码该如何写?能否给个例子?

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


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

是要在javascript 的脚本中,增加提交到操作数据库的代码吗? 能给个示例吗?

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


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

http://www.foxtable.com/mobilehelp/scr/0026.htm   用这个示例? 

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


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

新建了一个test.htm 页面,点击按钮,把数据提交到test1.htm     
在httprequest事件中,写如下代码:   
为什么弹出undefined的页面?  好像没有数据提交?e.plaintext为空
 Case "xdf\test1.htm"     
msgbox(e.PlainText)     '点击按钮后,可以弹出,但内容为空,不知何故
Dim sb As New StringBuilder
        sb.AppendLine("通过GET方式提交的数据:<br/><br/>")
        For Each key As String In e.GetValues.Keys
            sb.AppendLine(key & ":" & e.GetValues(key) & "<br/>")
        Next
        sb.AppendLine("<br/><br/>通过POST方式提交的数据:<br/><br/>")
        For Each key As String In e.PostValues.Keys
            sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)


下面是test.htm 的代码
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta name="viewport" c />
<title>测试</title>
<link rel="stylesheet" href="ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.css" />
<link rel="stylesheet" href="../img/main.css" />
<script src="ajax/libs/jquery/1.7.1/jquery.min.js"></script>
<script src="ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.js"></script>
<script src="scripts/main.js"></script>
</head>
<body>



<body>

<div data-role="page">
  <div data-role="content">
    <form action='test1.htm' enctype='multipart/form-data' method='post' id='form1' name='form1'>
      <p>
        <label for="fname">产品:</label>
        <input type="text" name="fname1" id="cp">
      </p>
      <p>
        <label for="fname">客户:</label>
        <input type="text" name="fname2" id="kh">
      </p>
      <p>
        <label for="fname">雇员:</label>
        <input type="text" name="fname3" id="gy">
        <input type="submit" data-inline="true" value="提交">
      </p>
    </form>
  </div>
</div>

</body>
</html>

[此贴子已经被作者于2017/3/19 16:38:48编辑过]

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


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

能回答一下吗?

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


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

跪求指导

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


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

 把你的js文件,都放到web文件夹下。

 

 然后页面引用对应的js即可。


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


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

e.PlainText 空白的问题,你的事form的提交,直接用 e.xxxValues 获取提交的数据。

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


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

引用了 WeUI 框架,由于该框架配色,排版不符合整体风格,能不能在附加一些jquery 的样式?   我试了下, 有些是可以的,有些不行? 比如:

这样是可以的。
Dim wb As New weui    
wb.AppendHTML("<link rel='stylesheet' href='xdf/ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.css'/>",True)     '引入样式文件,参数True表示添加到head区
        wb.AppendHTML("<link rel='stylesheet' href='xdf/img/main.css'/>",True)             '引入样式文伯
        wb.AppendHTML("<script src='xdf/ajax/libs/jquery/1.7.1/jquery.min.js'></script>",True)       '引入jquery
        wb.AppendHTML("<script src='xdf/ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.js'></script>",True)     '引入jquery
        wb.AppendHTML("<script src='xdf/scripts/main.js'></script>",True)      '引入jquery
wb.AppendHTML("<div data-theme='g' data-role='header' data-position='fixed'><h1>服务满意度调查</h1></div>")      '页眉
wb.AppendHTML("<div data-theme='g' data-role='footer' data-position='fixed'><h3>咨询电话:****</h3></div>")    '页脚


但下面的wb.appendHTML代码无法生效
If e.PostValues.Count = 0 Then '生成增加调查表网页
    wb.AddForm("","form1","SatisSurvey.htm")

     With wb.AddRadioGroup("form1","q1","应用软件功能是否满足业务需要?")
  wb.AppendHTML("<fieldset data-role='controlgroup' data-Type='horizontal'>")     '不起效果

                .Add("a1","是").Value="是"      '第一个"是" 是界面输入提示, 第二个"是"是往数据库存的值
                .Add("a2","否").Value="否"
   wb.AppendHTML("</fieldset>")            
    End With
   



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