Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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个自定义函数,因为还有一个用于生成订单编号的函数。
喜欢啊