Sele ct Case e.path
    Case "zcyh.htm"  \'注册页面
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","zcyh.htm")
            With wb.AddInputGroup("form1","ipg1","注册用户信息")
                .AddInput("员工编号","员工编号","text")
                .AddInput("员工姓名","员工姓名","text")
                .AddInput("xpassword","新密码","password")
                .AddInput("qrpassword","确认密码","password")
            End With
            \' Verified = False
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btnok","确定注册信息","submit")
                \'   .Add("btnok","返回主页","","default.htm")
            End With
            e.WriteString(wb.Build) \'生成网页
        Else
            Dim ddr As DataRow = DataTables("用户表").AddNew()
             Dim inms() As String = {"员工编号","员工姓名","qrpassword"} \'输入框名称数组
            Dim cnms() As String = {"员工编号","姓名","password"} \'列名数组,注意列名和输入框必须一一对应,位置不能错乱
            For i As Integer = 0 To inms.Length -1
                ddr(cnms(i)) = e.PostValues(Inms(i))
            Next
            \'If xpassword <> qrpassword  ’新密码与确认密码是否相同

           老师： 这里如何给出提示信息，不要刷新页面，返回到刚才的注册页面。
            \'Return
            \'End If
                     ddr.save
            \'Verified = False
            With wb.AddMsgPage("","msgpage","注册用户成功", "报餐系统") \'生成成功提示页
                .AddButton("btn1","返回登陆页面","logon.htm")
            End With
            e.WriteString(wb.Build)
        End If

 参考

http://www.foxtable.com/mobilehelp/scr/0104.htm