[求助]PageFooter中添加备案信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]PageFooter中添加备案信息

共有3139人关注过本帖树形打印复制链接主题：[求助]PageFooter中添加备案信息

洮沙

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：804 积分：6891 威望：0 精华：0 注册：2017/8/31 12:07:00

[求助]PageFooter中添加备案信息 发帖心情

Post By：2021/11/25 10:33:00 [只看该作者]

老师你好，我计划在页面底部添加备案信息，效果如下：

图片点击可在新窗口打开查看此主题相关图片如下：2021112510315412869.jpg

以下是电脑端原网站静态页面代码，自己没有能力（搞了一早上没有眉目）转换成FB代码，请老师帮忙看看，谢谢！

<section class="copyright">
 <a href="https://beian.miit.gov.cn/" target="_blank"> 陇ICP备20002373号-1 </a><img src="images/beian.png" height="16" width="15" alt="image" ><a href="http://www.beian.gov.cn/portal/registerSystemInfo?recordcode=62112402000060" target="_blank"> 甘公网安备 62112402000060号</a>
 <img src="images/QQ.png" height="16" width="16" alt="image" >  422675857  <img src="images/email.png" height="16" width="16" alt="image" >  ts1978@qq.com  <img src="images/tel.png" height="16" width="16" alt="image" >  09304523050
 版权所有：洮沙小站（ts1978.com）
</section>

[此贴子已经被作者于2021/11/27 11:11:43编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/25 10:38:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/topics/0097.htm

wb.InsertHTML("把上面的代码放进来这里，一个双引号改为2个双引号即可：http://www.foxtable.com/webhelp/topics/0211.htm")

洮沙

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：804 积分：6891 威望：0 精华：0 注册：2017/8/31 12:07:00

Post By：2021/11/25 10:48:00 [只看该作者]

蓝老师，我试了一下，报错，麻烦你写个样子，谢谢！

是这个样子吗？

With wb.AddPageFooter("","pf1","" & bqxx & "")
 Dim bq As String = "<a href="https://beian.miit.gov.cn/" target="_blank"> 陇ICP备20002373号-1 </a><img src="images/beian.png" height="16" width="15" alt="image" ><a href="http://www.beian.gov.cn/portal/registerSystemInfo?recordcode=62112402000060" target="_blank"> 甘公网安备 62112402000060号</a>
 <img src="images/QQ.png" height="16" width="16" alt="image" >  422675857  <img src="images/email.png" height="16" width="16" alt="image" >  ts1978@qq.com  <img src="images/tel.png" height="16" width="16" alt="image" >  09304523050
 版权所有:洮沙小站(ts1978.com) "
 .Attribute = "style='position: static;'"
 .AddLink("回首页","home.htm")
 wb.InsertHTML("" & bq & "")
End With

此主题相关图片如下：微信截图_20211125104850.png

[此贴子已经被作者于2021/11/25 10:49:21编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/25 10:59:00 [只看该作者]

如果字符串中本身包括双引号，那么用每两个双引号表示一个双引号。
将下面的代码复制到命令窗口执行：

Dim s1 As String = "利马是有名的""无雨之都"""
Output.Show(s1)

你会发现s1的值为：利马是有名的"无雨之都"

Dim bq As String = "<span style=""fon..............

洮沙

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：804 积分：6891 威望：0 精华：0 注册：2017/8/31 12:07:00

Post By：2021/11/25 11:58:00 [只看该作者]

蓝版，能够显示正常了，代码如下：

Dim bq1 As String
bq1 = "<a href=""https://beian.miit.gov.cn/"" target=""_blank""> 陇ICP备20002373号-1 </a><img src=""images/beian.png"" height=""16"" width=""15"" alt=""image"" ><a href=""http://www.beian.gov.cn/portal/registerSystemInfo?recordcode=62112402000060"" target=""_blank""> 甘公网安备 62112402000060号</a>"
Dim bq2 As String
bq2 = " <img src=""images/QQ.png"" height=""16"" width=""16"" alt=""image"" >  422675857  <img src=""images/email.png"" height=""16"" width=""16"" alt=""image"" >  ts1978@qq.com  <img src=""images/tel.png"" height=""16"" width=""16"" alt=""image"" >  09304523050"
Dim bq3 As String
bq3 = "版权所有:谦通会计(gsqtkj.com) "
With wb.AddPageFooter("","pf1","" & bq3 & "")
 .AddLink("回首页","home.htm")
 wb.InsertHTML("" & bq1 & "")
 wb.InsertHTML("" & bq2 & "")
End With

显示效果如下：

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