Dim e As RequestEventArgs = args(0)
Dim wb As New weui
'Dim sb As New StringBuilder
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>", True)
Dim jo As JObject = JObject.Parse(e.PlainText) '解析JSON数据
Dim openid As String = jo("openid").ToString()
Dim kcmc As String = jo("kcmc").ToString()
Dim kclb As String = jo("kclb").ToString()
Dim skls As String = jo("skls").ToString()
Dim sksd As String = jo("sksd").ToString()
Dim skrq As String = jo("skrq").ToString()
。。。
。。。
某个函数的开头是这样，总是会偶尔跳出错误，提示不能为空，请问应该怎样加一个判断语句，避免传值过来为空？
if
e.PlainText > "" Dim jo As JObject = JObject.Parse(e.PlainText) '解析JSON数据