专家坐堂-点击标题跳转网页出现错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 点击标题跳转网页出现错误

在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

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编辑过]