主题：关于信息文字加图片上传的问题，求指教！

Dim nms5 = New String() {"劳务供需","不动产供需","二手供需",..........}

Dim hasxxgxfl As Boolean

For Each nm As String In nms5

    If e.PostValues.ContainsKey(nm) Then '生成错误提示页

        hasxxgxfl = True

        Exit For

    End If

Next

If hasxxgxfl  = False

    With wb.AddMsgPage("","msgpage","您的信息上传未成功", "内容分类不能为空!")

        .icon = "Warn" '改变图标

        ' .AddButton("btn1","返回","reset").Attribute = ""

        .AddButton("btn1","返回").Attribute = ""

    End With

    e.WriteString(wb.Build)

    Return "" '必须返回

End If