主题：狐表结合easyui实现后台数据的增删改查和导入导出

HttpRequest事件代码

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

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
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个自定义函数，因为还有一个用于生成订单编号的函数。