以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  html标签求教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139139)

--  作者:lxhmax
--  发布时间:2019/8/6 17:06:00
--  html标签求教
老师,我想问下这个链接标签<a> 怎么才能按照需求包含内容


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190806165909.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190806170454.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190806170304.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/8/6 17:20:00
--  
appendhtml改为使用inserthtml
--  作者:lxhmax
--  发布时间:2019/8/6 17:27:00
--  
要改哪部分?我试了下怎么都改不对
--  作者:有点蓝
--  发布时间:2019/8/6 17:36:00
--  
除了第一第二个appendhtml(参数有true的),其它的appendhtml全部改掉
--  作者:lxhmax
--  发布时间:2019/8/6 17:40:00
--  
执行之后还是这样~~

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190806173903.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/8/6 20:09:00
--  
完整代码放入txt文件发上来
--  作者:lxhmax
--  发布时间:2019/8/7 9:59:00
--  
麻烦老师看下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (2).txt


--  作者:有点蓝
--  发布时间:2019/8/7 10:07:00
--  
a标签不成对

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) \'生成网页

--  作者:lxhmax
--  发布时间:2019/8/7 10:17:00
--  
不好意思老师,这个是我测试忘记删掉的标签,我就是尝试着标签放哪里才行,麻烦老师帮我看下,我是想第一个绿色跟最后一个红色标签是成对的,中间那个绿色不要的,
--  作者:有点蓝
--  发布时间:2019/8/7 10:48:00
--  
上传了可以测试的实例测试一下