1、login加入头文件,或者直接加在httprequest事件
Dim e As RequestEventArgs = args(0)
Dim path As String = "foxtableAppTest"
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",".txt"
e.WriteFile(fl)
Return "" '这里必须返回
End Select
End If
2、web文件夹下,必须放入foxtableAppTest文件夹,不然无法调用扫一扫
3、在你ajaxform.js文件夹中,加入代码alert(result0)弹出值看看
4、在你getCodes0.htm加入msgbox弹出值,看是否进入
5、我测试完全没有问题啊,请认认真真测试一次