下述代码插入页面正常，但是插入的页面显示在“插入页面”按钮下面
问：如何才能让插入页面，显示在“插入页面”按钮上面，这样，当页面再次到底页面底部，就可以再点击按钮加载了
Dim e As RequestEventArgs = args(0) '首页
Select Case e.Path
Case "index.htm"
Dim wb As New weui
With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.Addpage("bt1","首页","./images/a.png")
.AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")
.AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
End With
For i As Integer = 1 To 4
With wb.AddArticle("bt1","ar" & i)
.AddImage("./images/00" & i & ".jpg")
.Attribute = "style='padding:0.5em;'"
End With
wb.AddForm("bt1","form" & i,"details.htm")
With wb.AddInputGroup("form" & i,"ipg" & i)
.AddInput("xm" & i,"年龄","text")
.AddInput("pw" & i,"城市","text")
End With
With wb.AddButtonGroup("form" & i,"btg" & i,False)
.Add("btn1" & i, "查看TA的资料", "submit")
End With
Next
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的 页面
With wb.AddButtonGroup("bt1","btg0", True)
.Add("btns", "插入页面").Attri-bute= "on-click= 'tongji()'"
End With
wb.AppendHTML("<scri-pt src='./li-b/ajax-form_tongji.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End Select
js代码：
fun-ction tong-ji(){
v-ar re-sult = sub-mitAjaxForm('form1','',false);
docu-ment.get-ElementById("p1").inner-HTML=re-sult;
}
此主题相关图片如下：qq图片2019991111111.png
[此贴子已经被作者于2017/4/4 23:34:48编辑过]
加好友 
发短信
Post By：2017/4/4 23:12:00 [只看该作者]
