HttpRequest事件代码

我计划所有任务都用自定义函数来完成，所以HttpRequest事件代码很简单：

Select Case e.Path
    Case "list.htm"
        Functions.Execute("List",e) '分页显示
    Case "edit.htm"
        If e.PostValues.Count > 0 Then
            Functions.Execute("Save",e) '保存表单数据
        End If
        Functions.Execute("Edit",e) '生成订单编辑页面
End Select

由于edit.htm承担了太多的任务，为避免单个函数代码过长，我们用两个函数处理edit.htm，Save函数负责保存表单数据，Eidt函数负责生成网页。

接下来我们分别介绍这3个自定义函数，实际上有4个自定义函数，因为还有一个用于生成订单编号的函数。