Dim fl As String = "d:\web\" & e.path
Dim path As String = "foxtableAppTest"
msgbox(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)
e.Resp '设置网页编码为gb2312
Return '这里必须返回
End Select
End If
msgbox(e.path)
If e.path.contains("_table")=False
webaddress=e.path
End If
Select Case e.Path
Case "detail_del"
msgbox(e.path)
Functions.Execute("detail_del",e)
End Select