以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击标题跳转网页出现错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170879)

--  作者:sunion0769
--  发布时间:2021/8/10 12:41:00
--  点击标题跳转网页出现错误
在mmindex.htm先生成的这样的标题列表,然后点击标题跳转到对应生成的内容界面mmcontent.htm;
代码在本地127.0.01测试时可以正常打开mmindex.htm和mmcontent.htm。
但用手机测试时,打开mmindex.htm页面没有问题(如图一),
但点击标题想进入浏览mmcontent.htm时,在云服务器上出现了弹出窗口错误(图二)


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


   Case "mmindex.htm"
      Dim dt As List(of DataRow)  = DataTables("新闻通知").SQLSelect("",3000,"发布时间 desc ")   \'-------------------文章排序     
        With wb.AddListGroup("", "lsg1","")
            .Add("ls71","", "", "mmindex.htm", "./images/bt.jpg")
        End With
    
        With wb.AddPanelGroup("","pg912","")    
            Dim tb As Table = Tables("新闻通知")
            For i As Integer = 0 To tb.Rows.Count - 1  
         
                Dim URL As String = "mmcontent.htm?bz=" & UrlEncode(dt(i)("新闻标题"))
                With wb.AddArticle("","ar3" & i & "")
                    .AddTitle("h1","<a href=\'"& URL & "\'>" & dt(i)("新闻标题") &")    \'----------------省略标题
                    .AddImage("./images/Publish/Project/Attachments/" & dt(i)("文章照片") & "")               
                    .AddContent("" & dt(i)("发布时间") & "")
                End With
            Next
        End With
        e.WriteString(wb.Build) \'生成网页


    Case "mmcontent.htm"
        Dim dma As DataRow = DataTables("新闻通知").Find("新闻标题 = \'" & e.getvalues("bz")  & "\'" )   
        With wb.AddListGroup("", "lsg1","")
            .Add("ls1", "" & e.getvalues("bz") & ”")
            .Add("ls2", "" & dma("发布时间") & "")
        End With
        e.WriteString(wb.Build) \'生成网页


出现以下错误提示:

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


[此贴子已经被作者于2021/8/10 12:50:47编辑过]

--  作者:有点蓝
--  发布时间:2021/8/10 13:37:00
--  
没有加判断:http://www.foxtable.com/webhelp/topics/0396.htm,看示例三说明