Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim url As String = Vars("ip")
Dim s1 As String
wb.AppendHTML("<link rel='stylesheet' href='./weui/index.css'/>",True)
wb.AppendHTML("<link rel='stylesheet' href='./weui/m-common.css'/>",True)
wb.InsertHTML("<div id='filter-result' sap-modid='001' autoexpo='true'>")
For i As Integer = 0 To Tables("房产信息").Rows.Count - 1
Dim r As Row = Tables("房产信息").Rows(i)
Dim s As Integer = s + i
wb.InsertHTML("<div class='house-wrap'><a class='house pr hor-view' href='" & url & "fyxx.htm?id=" & r("房产编号") & "' name='House_HomePage_List_" & s & "' sap-expo='true'> ")
wb.InsertHTML("<div class='house-info'><p class='house-name line-clamp-1'>" & r("小区名称") & " " & r("楼层") & "</p>")
wb.InsertHTML("<div class='wbox hor-view'>")
wb.InsertHTML("<div class='bottom-txt'>" & r("户型名称") & "</div>")
wb.InsertHTML("<div class='bottom-txt'>" & r("面积") & "㎡</div>")
wb.InsertHTML("<div class='bottom-txt'>" & r("装修") & "</div>")
wb.InsertHTML("<div class='bottom-txt'>" & r("朝向") & "</div>")
wb.InsertHTML("</a></div>")
wb.InsertHTML("<div class='wbox hor-view'>")
wb.InsertHTML("<div class='bottom-txt'>" & r("发布中介") & "</div>")
wb.InsertHTML("<div class='bottom-txt'>" & r("发布经理") & "</div>")
wb.InsertHTML("<div class='bottom-txt'><span> <a href='tel:" & r("发布电话") & "'>" & r("发布电话") & "</a></span></div>")
wb.InsertHTML("<div class='bottom-txt'>" & r("发布时间") & "</div>")
wb.InsertHTML("</div>")
wb.InsertHTML("<div class='house-total'> <span class='price-number'>" & r("售价") & "</span>万</div>")
wb.InsertHTML("<div class='area-txt'>" & r("单价") & "元/平</div>")
wb.InsertHTML("</div>")
If r("特色服务") <> "" Then '如果列不为空
wb.InsertHTML("<div class='hlogo'>")
Dim nms() As String = r("特色服务").Split(",") '将列内容拆分成数组
For Each nm As String In nms '遍历参与加工此产品的每个工号
wb.InsertHTML("<div class='house-tag'>" & nm & "</div>")
Next
wb.InsertHTML("</div>")
End If
wb.InsertHTML("</a></div>")
Next
wb.InsertHTML("</div>")
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2019/8/6 17:06:00 [只看该作者]
此主题相关图片如下：微信图片_20190806165909.png
