- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 点击标题跳转网页出现错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170879)
-- 发布时间：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，看示例三说明