- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]类似bbs论坛页面显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114899)
-- 发布时间：2018/2/25 21:32:00
-- [求助]类似bbs论坛页面显示
想用weui做一个类似BBS论坛的网页，简单实现了。
代码如下：
Dim e As RequestEventArgs = Args(0)
Dim sb As New StringBuilder
Dim wb As New weui
Dim listid As String
If e.GetValues.ContainsKey("listid") Then
listid= e.GetValues("listid")
End If
If Listid<>"" Then
Dim fdr As DataRow=DataTables("C_INFO_COMMUNICATE").SQLFind("IS_ACTIVE=\'1\' and INFO_ID=\'"& listid &"\'")
If fdr Is Nothing Then
With wb.AddMsgPage("","msgpage","参数错误,返回消息首页!", "认真 仔细 务实!") \'生成成功提示页
.icon = "Warn" \'改变图标
.AddButton("btn1","返回","/BBS.htm")
End With
e.WriteString(wb.Build)
Return ""
End If
wb.AddPageTitle("","ph1","畅谈吧", Functions.Execute("getSYSDICINFO",fdr("PUBLISH_TYPE")) ) \'"当前账号:" + Openid )
With wb.AddArticle("","ar1")
\' .AddContent("<img src="+ fdr("PicUrl") + " />")
.AddContent(fdr("PUBLISH_CONTENT"))
End With
Dim fdx As DataRow= DataTables("C_INFO_COMMUNICATE_COMMENT").SQLFind(" IS_ACTIVE=\'1\' and INFO_ID=\'"& listid &"\' ")
If fdx IsNot Nothing Then
With wb.AddPanelGroup("", "lsg3", "回复记录")
\'Dim h1 As Integer =1
For Each dr As DataRow In DataTables("C_INFO_COMMUNICATE_COMMENT").SQLSelect(" IS_ACTIVE=\'1\' and INFO_ID=\'"& listid &"\' ", , "UPDATE_TIME Desc")
With .Add("lx" & dr("COMMENT_ID") ,"",dr("COMMENT_CONTENT")) \',"","/BBS.htm?comid=" & dr("COMMENT_ID"))
.AddFoot("回复日期:"+dr("CREATE_TIME").SubString(0,4)+"年"+dr("CREATE_TIME").SubString(4,2)+"月"+dr("CREATE_TIME").SubString(6,2)+"日")
End With
Next
End With
End If
Else
wb.AddPageTitle("","ph1","畅谈吧", "") \'"当前账号:" + Openid )
Dim fdx As DataRow= DataTables("C_INFO_COMMUNICATE").SQLFind(" IS_ACTIVE=\'1\' ")
If fdx IsNot Nothing Then
With wb.AddPanelGroup("", "lsg3", "消息记录")
\'Dim h1 As Integer =1
For Each dr As DataRow In DataTables("C_INFO_COMMUNICATE").SQLSelect("is_active=\'1\' ", , "UPDATE_TIME Desc")
With .Add("lx" & dr("INFO_ID") ,Functions.Execute("getSYSDICINFO",dr("PUBLISH_TYPE")),dr("PUBLISH_CONTENT"),"" ,"/BBS.htm?listid=" & dr("INFO_ID"))
.AddFoot("发布日期:"+dr("CREATE_TIME").SubString(0,4)+"年"+dr("CREATE_TIME").SubString(4,2)+"月"+dr("CREATE_TIME").SubString(6,2)+"日")
End With
Next
End With
End If
End If
e.WriteString(wb.Build)
Functions.Execute("txtProgress","登录网页:" +e.path)
界面如下：
此主题相关图片如下：h1qto41p@jtti_{pydw~$o.png
回复界面：
此主题相关图片如下：qq截图20180225212959.png
几个不够满意的地方，希望大神指点指点：
1、PanelGroup，每个panel显示内容行数（或字数）好像有限制，只能显示2行，超过就只显示...，有什么办法显示全部内容？
2、回帖页面，如果有人对回帖进行回复，该怎么美观的显示？有没有好的办法？
[此贴子已经被作者于2018/2/25 21:57:51编辑过]
-- 发布时间：2018/2/25 21:39:00
--
我把weui_media_desc里的“;-webkit-line-clamp:2“删除后，可以完全显示了
-- 发布时间：2018/2/26 0:27:00
--
自带的weui的框架比较简陋，建议学习一下mui，或者jqueryMobile等都可以。
如果要显示妥当，你需要在原来框架的基础上进行css样式的修改的。