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 "test.htm"

        Dim wb As New weui

        wb.AddForm("","form1","test.htm")

        With wb.AddInputGroup("form1","ipg1","自动输入")

            With .AddInput("客户编号","客户编号","")

                .Attribute = "" \'调用js函数

            End With

            .AddInput("客户姓名","客户姓名","text")

        End With

        With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "确定", "submit")

        End With

        wb.AppendHTML("<script src=\'./lib/ajaxform1.js\'></script>") \'引入脚本文件

        e.WriteString(wb.Build) \'生成网页

    Case "getCodes.htm" \'根据输入的省和县,获取区号有邮编

        Dim dr As DataRow = DataTables("行政区域").Find("客户编号=\'" & e.values("客户编号") & "\'")

        If dr IsNot Nothing Then

             e.WriteString(dr("客户姓名") & "|" & dr("邮编"))

          End If

End Select

可以实现输入客户编号自动填写客户姓名的要求，就是谷歌浏览器有个错误提醒