客户端 ‘企业微信通知内容
Dim s As String
s=s & "立项编号: " & r("立项编号") & "</br>"
s=s & "项目名称: " & r("项目名称") & "</br>"
s=s & "备 注: " & fsnr
Dim jo As New JObject
jo("title") = sy '通知标题
jo("description") = s '通知内容
jo("url") = Http_Server & "wxtbtz.htm?_identify=" & r("_identify").Tostring '微信通知点开的连接
以上代码打开经色链接无效
服务端
Dim wb As New weui
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "sel ect * from {JY_投标立项} where 1=2"
Dim dt As DataTable = cmd.ExecuteReader()
Dim dr As DataRow = dt.SQLFind("[_Identify]=" & r("_identify").Tostring)
If dr IsNot Nothing Then
wb.AddForm("","form1","wxtbtz.htm?_Identify=" & r("_identify").Tostring)
With wb.AddInputGroup("form1","ipg0","项目名称")
With .AddTextArea("bz",2)
.Placeholder = dr("项目名称")
.Readonly = True '文本框只读
End With
End With
With wb.AddInputGroup("form1","ipg1","投标立项明细")
With .AddInput("立项编号","立项编号","Text")
.value = dr("立项编号")
.Readonly = True '文本框只读
End With
With .AddInput("区域","区域","Text")
.value = dr("区域")
.Readonly = True '文本框只读
End With
End With
Else
With wb.AddMsgPage("","msgpage","查询失败", "此投标立项可能已经被删除!") '提示用户此投标立项不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
e.WriteString(wb.Build) '生成网页
如何将r("_identify").Tostring传递到服务端读取数据,现在打开手机端的通知内容是空白
[此贴子已经被作者于2020/5/29 13:21:34编辑过]