基于panel做页面到底部自动加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1.移动文档sendAjaxTextget，如果返回的是二维数组，JSON.parse（）如何处理result？

2.对文档网页部分做了调整，有几个问题，麻烦看看

为防止官方系统屏蔽，代码也贴在附件记事本内

function getUser(){
    var result = sendAjaxText("getUser","accept.htm","",false);
    var user=JSON.parse(result);
    result="姓名:" + user.name + "<br/>" + "年龄:" + user.age
    document.getElementById("p1").innerHTML=result;
}

Select Case e.Path

Case "test.htm"

Dim wb As New weui

wb.AddForm("","form1","test.htm")

With wb.AddButtonGroup("form1","btg1",True) '垂直排列

.Add("btn1", "getUser","button").Attri-bute="on-click='get-User()'"

.Add("btn2", "getDate","button").Attri-bute="on-click='get-Date()'"

End With

wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

e.WriteString(wb.Build) '生成网页

Case "accept.htm"

Select e.PlainText

Case "getUser" '发送jason数据------这里有修改，还请看看，问题写在下面了

Dim username As String = e.cookie("UserName") '从cookie取用户名

Dim count As String = 0 '定义发送次数,为每次发送3个人做准备(测试时,只发3个人)

If e.Cookies.ContainsKey("jiezhi") Then '如果cookie有数量,从cookie获得截至目前发送数量

count = e.Cookie("jiezhi")

End If

Dim drs As List(of DataRow) = DataTables("订单").sqlSelect("[用户名] = 'username'","购买日期 DESC") '从订单表找,个人订单集合

Dim bary(1,2)As String '定义返回的二维数组

For i As Integer = 0 To 1 '二维数组的第0维

For j As Integer = 0 To 2 '二维数组的第1维

For Each dr As DataRow In drs '将集合内的每一行的"姓名"\"年龄"列,赋值给二维数组

count = count + 1

If j=0 Then

bary(i,j)= dr(count).cols("姓名")

End If

If j=1 Then

bary(i,j) = dr(count).cols("年龄")

End If

If (count Mod 3)=0 AndAlso i=1 AndAlso j=2 Then

e.AppendCookie("jiezhi",count,30) '将截至目前发送数量,保存到cookie,设置当离开网页时,删除cookie,问:如果不设置时间,用户离开时本页,今日其他页面,是否cookie即失效?

break '终止执行怎么写?

End If

' Dim s1(1,2) As String = {{"张三","20"},{"李四","25"},{"王二","21"}} '本行为问问题专设:二维数组在foxtable里,可以粉色部分这样表达?

e.WriteString(bary(1,2))

Case "getDate" '发送纯文本 ---这里没有修改

e.Writestring(CUDate(Date.Today))

End Select

下载信息 [文件大小：下载次数： ]
点击浏览该文件:90hhttyu.txt

[此贴子已经被作者于2017/3/29 22:31:44编辑过]

主题：基于panel做页面到底部自动加载