在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编辑过]
加好友 
发短信
Post By：2021/8/10 12:41:00 [只看该作者]
