以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  page页面html  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192678)
--  作者：ycs5801
--  发布时间：2024/7/11 14:30:00
--  page页面html
Dim e As Object = args(0)
Dim wb As New weui

wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>", True) 
wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>", True)


With wb.AddTabBar("", "tb1", 0) 
    .AddPage("page1", "欢迎选课").Attribute = "style=\'height:100%\'" \'这个style必须设置，不然无法返回页面
    .AddPage("page2", "个人信息")

End With
wb.AddForm("page1", "form1", "select.htm")

With wb.AddButtonGroup("form1", "btn", False)
    With .Add("btn1", "团课", "button") \'自定义按钮
        .Attribute = """
    End With   
    With .Add("btn2", "精品课", "button")
        .FormAction = ""
        .Attribute = """
    End With
    With .Add("btn3", "私教课", "button")
        .FormAction = ""
        .Attribute = """
    End With 
End With


\'wb.InsertHTML("form1", "<h5 style=\'margin-top: 0px;line-height: 40px;font-size:14px;font-weight:300\'>&emsp;排课日期</h5>") \'增加用户登录Lable
\'*********************************以下为日历控件*****************************
Dim s As String = FileSys.ReadAllText(ProjectPath & "web\\lib\\yuwen.txt")
wb.InsertHTML("form1", s)
\'*********************************以上为日历控件*****************************
wb.AppendHTML("<div id=\'p1\' style=\'margin:0.5em\'></div>") \'插入一个div,用于显示返回的课程表

  


wb.AppendHTML("<script src=\'./lib/anniu.js\'></script>") \'引入脚本文件
wb.AppendHTML("<script>autoclick()</script>") \'自动运行js函数
wb.AppendHTML("<script>initExWeUI();</script>") 
e.WriteString(wb.Build)

怎样将黄色部分的“p1”加入到page1中？
--  作者：有点蓝
--  发布时间：2024/7/11 14:32:00
--  
http://www.foxtable.com/mobilehelp/topics/0097.htm

wb.InsertHTML("page1","<div id=\'p1\' style=\'margin:0.5em\'></div>")