- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 页面文章代码部分可以实现手机自适应和电脑自适应 点击详情 之后进入文章页面后 显示的内容在电脑端可以自适应 但是在手机端就不能了 麻烦老师帮忙调整一下 看看是否可以实现在手机端实现自适应呢 谢谢！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171497)
-- 发布时间：2021/9/1 10:37:00
-- 页面文章代码部分可以实现手机自适应和电脑自适应 点击详情 之后进入文章页面后 显示的内容在电脑端可以自适应 但是在手机端就不能了 麻烦老师帮忙调整一下 看看是否可以实现在手机端实现自适应呢 谢谢！
当前页面效果如下：
此主题相关图片如下：14.gif
页面文章代码部分可以实现手机自适应和电脑自适应
点击详情 之后进入文章页面后 显示的内容在电脑端可以自适应 但是在手机端就不能了
麻烦老师帮忙调整一下 看看是否可以实现在手机端实现自适应呢 谢谢！
页面文章列表代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim biaoti As String
Dim laiyuan As String
Dim neirong As String
Dim shijian As String
With wb.AddPanelGroup("","pg1","图文组合列表")
For Each dr As DataRow In DataTables("文章列表").DataRows
For Each dc As DataCol In DataTables("文章列表").DataCols
Output.Show(dc.Name)
If dc.name="文章标题"
biaoti=dr("文章标题")
End If
If dc.name="文章内容"
neirong=dr("文章内容") 此处怎么设定内容只显示50个字符，多余的用……代替
End If
Next
With .Add("pn2",biaoti,shijian,"") \'带子链接
.AddFoot(dr("文章内容"))
.AddFoot("点击详情","wenzhang.htm?biaoti=" & biaoti)
End With
Next
End With
e.WriteString(wb.Build) \'生成网页
点击详情后进入文章内容页面
文章内容页面代码如下： 怎么实现页面内容的自适应，比如手机端根据屏幕自动调整页面内容宽度
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddForm("","form1","wenzhang.htm")
Dim sb As new StringBuilder
For Each key As String In e.GetValues.Keys
Dim dr As DataRow = DataTables("文章列表").Find("文章标题= \'" & e.GetValues(key) & "\'")
sb.appendLine("<head>")
sb.AppendLine("<meta name=\'viewport\' c>")
sb.appendLine("</head>")
sb.Appendline("<pre><h3>" & dr("文章内容") & "</h3></pre>"）
sb.AppendLine("<p></p>")
sb.AppendLine("</br>")
wb.InsertHTML("form1",sb.ToString)
next
e.WriteString(wb.Build) \'生成网页
-- 发布时间：2021/9/1 10:51:00
--
If dc.name="文章内容"
dim s as string = dr("文章内容")
if s.length > 50
neirong=s.substring(0,47) & "..." 此处怎么设定内容只显示50个字符，多余的用……代替
end if
End If
-- 发布时间：2021/9/1 10:52:00
--
https://www.baidu.com/baidu?word=css+%E8%87%AA%E9%80%82%E5%BA%94
-- 发布时间：2021/9/1 11:43:00
-- 回复：（有点蓝）https://www.baidu.com/baidu?word=c...
页面代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddForm("","form1","wenzhang.htm")
Dim sb As new StringBuilder
For Each key As String In e.GetValues.Keys
Dim dr As DataRow = DataTables("文章列表").Find("文章标题= \'" & e.GetValues(key) & "\'")
sb.appendLine("<head>")
sb.AppendLine("<link rel=\'style sheet\' href=\'/wenzhangcss.css\'/>") \'引入css文件
sb.AppendLine("<meta name=\'viewport\' c>")
sb.appendLine("</head>")
sb.Appendline("<pre><h3>" & dr("文章内容") & "</h3></pre>"）
sb.AppendLine("<p></p>")
sb.AppendLine("</br>")
wb.InsertHTML("form1",sb.ToString)
next
e.WriteString(wb.Build) \'生成网页
以下内容是专门发给有点蓝浏览
学习了css 对于上述页面代码操作 还是没有找到灵感 麻烦老师指导下 可否帮忙写一段css 谢谢！
[此贴子已经被作者于2021/9/1 11:48:45编辑过]
-- 发布时间：2021/9/1 11:58:00
--
学会使用关键字搜索：https://www.baidu.com/baidu?word=css+pre+%E8%87%AA%E5%8A%A8%E6%8D%A2%E8%A1%8C
sb.Appendline("<h3><pre style=‘white-space: pre-wrap;word-wrap: break-word;’>" & dr("文章内容") & "</pre></h3>"）