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
Vars.Add("bmmc",Gettype(String))
Select Case e.Path
Case "test.htm",""
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","")
.AddInput("申请部门","申请部门","text").Attribute ="on-change=""submitAjaxFileds('test2.htm','','申请部门',false);"""
.AddInput("我的部门","我的部门","text").Value= Vars("bmmc")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Case "test2.htm"
Vars("bmmc") = e.PostValues("申请部门")
MessageBox.Show(Vars("bmmc"))
e.WriteString(Vars("bmmc"))
End Select
[此贴子已经被作者于2017/6/8 23:57:56编辑过]