主题：已添加了具有相同键的项(httpserver)

这是 filter.htm页面

For Each kh As String In dr("khlist").Split("|")
    '插入一些隐藏段落,用于存储各个国家的汽车品牌
    Dim fdr As DataRow =DataTables("档案").Find("名称='" & kh & "'")
    If fdr IsNot Nothing Then
        wb.InsertHTML("<p hidden id='" & kh & "'>" & fdr("编码") & "</p>")
    End If
Next
wb.AppendHTML("<script src='./lib/Wkh.js'></script>") '引入脚本文件

按动态列表项目之二的例子，在主页与filter.htm，来回切换进入filter.htm出现已添加了具有相同键的项