主题：XXXXX发送短信

以下是4楼提到的文档内容，问题在下面红色处

1、服务端项目的HttpRequest事件代码:

Select Case e.Path
    Case "AddNew.htm"
        Dim nms() As String = {"产品","客户手机","数量","单价","日期"}
        For  Each nm As String In nms 
            If e.PostValues.ContainsKey(nm) = False Then 
                e.AppendCookie("error","请输入" & nm) 
                Return
            End If
        Next
        Dim dr As DataRow = DataTables("订单").AddNew()
        For  Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
        dr.Save()
        e.WriteString(dr("_Identify")) '返回主键列的值给客户端
        dr.Remove() '移除此行
End Select

2、客户端项目可以通过以下代码增加订单，并获得新增订单的主键：

Dim hc As New HttpClient("http://127.0.0.1/AddNew.htm")
hc.FormData.Add("产品","PD01")
hc.FormData.Add("客户手机","CS01")
hc.FormData.Add("数量","100")
hc.FormData.Add("单价","98")
hc.FormData.Add("日期",Date.Today)
Dim ret As String = hc.getData()  ’客户端模拟表单的信息提交到服务端，假设在服务端验证手机符合要求，hc.getData()接收返回到服务端返回的手机号，然后将下面if语句，改为如果ret不为空，在if语句内，调用第3方接口发短信，是这样的思路？
If hc.rCookies.ContainsKey("error") Then
    MessageBox.Show(hc.rCookies("error"), "提示", MessageBoxButtons.OK ,MessageBoxIcon.Warning)
Else
    MessageBox.Show("增加行成功,新增行的主键为:" & ret)
End If