Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "fclist"
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>", True)
Dim drs As List(Of DataRow) = DataTables("房源").SQLSelect("", 8, "[_Identify]")
With ExWeUI.WebUI.AddExInfiniteScroll("pr01", "pullcallback", 0, 8) 'drs(drs.Count - 1)("_Identify"))
Dim wb2 As New weui '用于生成默认列表
With wb2.AddPanelGroup("", "pg1", "")
For Each dr As DataRow In drs
.Add("pn1" & dr("_Identify"), "日期: " & Format(dr("日期"), "yy年MM月dd日") & " 金额: " & dr("租售金"), "租期: " & dr("租期") & ", 付款方式: " & dr("付款方式") & ", 户型: " & dr("户型"), "./images/button.png") '超链接
' .Add("pn1" & dr("_Identify"), dr("类型") & dr("园区名") & dr("租售金") "& dr("租期") & ", " 付款方式: " & dr("付款方式") & ", 发布: " & Format(dr("日期"), "yy年MM月dd日" , ". / images / button.png") '超链接
Next
End With
.Content = wb2.BuildHtml("pg1") '设置默认显示的列表
wb.InsertHTML(.BuildHtml)
End With
wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml)
wb.AppendHTML(" < script > initExWeUI(); < / script > ")
e.WriteString(wb.Build)
这个是HttpRequest
Dim sb As New StringBuilder '
sb.AppendLine("<meta name='viewport' c>")
Dim wb As New WeUI
wb.title = "xxxxxx"
Select Case e.Path
Case "getExRadioGrou.htm"
Functions.Execute("getExRadioGrou", e)
Case "fclist.htm"
Functions.Execute("fclist", e)
End Select
e.WriteString(wb.Build)
e.WriteString(sb.ToString)
加好友 
发短信
Post By：2023/12/6 10:34:00 [只看该作者]
