- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- html标签求教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139139)
-- 发布时间：2019/8/6 17:06:00
-- html标签求教
老师，我想问下这个链接标签<a> 怎么才能按照需求包含内容
此主题相关图片如下：微信图片_20190806165909.png
此主题相关图片如下：微信截图_20190806170454.png
此主题相关图片如下：微信截图_20190806170304.png
-- 发布时间：2019/8/6 17:20:00
--
appendhtml改为使用inserthtml
-- 发布时间：2019/8/6 17:27:00
--
要改哪部分？我试了下怎么都改不对
-- 发布时间：2019/8/6 17:36:00
--
除了第一第二个appendhtml（参数有true的），其它的appendhtml全部改掉
-- 发布时间：2019/8/6 17:40:00
--
执行之后还是这样~~
此主题相关图片如下：微信截图_20190806173903.png
-- 发布时间：2019/8/6 20:09:00
--
完整代码放入txt文件发上来
-- 发布时间：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) \'生成网页
-- 发布时间：2019/8/7 10:17:00
--
不好意思老师，这个是我测试忘记删掉的标签，我就是尝试着标签放哪里才行，麻烦老师帮我看下，我是想第一个绿色跟最后一个红色标签是成对的，中间那个绿色不要的，
-- 发布时间：2019/8/7 10:48:00
--
上传了可以测试的实例测试一下