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)
加好友 
发短信
Post By：2018/2/25 21:32:00 [只看该作者]
此主题相关图片如下：h1qto41p@jtti_{pydw~$o.png
