Dim wb As New weui

Dim vals As String

Dim cmd111 As New S QLCommand

cmd111.Conne cti \'记得设置数据源名称

cmd111.Comm andText = "Sele ct * From {表彰}"

Dim dt As DataTable = cmd111.ExecuteReader

If Functions.Execute("yanzheng",e) = 1 \'获取验证不能使用异步函数,必须等待并获取验证结果

    If e.PostValues.Count = 0 Then

        wb.AddPageTitle("","ph1","表彰登记")

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

        wb.AddTopTips("","toptip1","请输入单位名称和支部名称!")

        With wb.AddInputGroup("form1","ipg1","内容信息")

            .AddInput("单位名称","单位名称*","text").Placeholder =e.Cookies("单位名称")

            .AddSelect("表彰类别","表彰类别*","|个人表彰|集体表彰" ).Attribute = "oncha nge=\'xianshi()\'"

            .AddInput("获奖名称","获奖名称","text")

            .AddInput("授奖单位名称","授奖单位","text")

            .AddInput("获奖时间","获奖时间","date")

            .AddInput("登记时间","登记时间","date")

        End With

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

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

            .Add("btn2", "取消更新", "submit").FormAction = "default.htm"

        End With

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

    Else

        With wb.AddMsgPage("","msgpage","添加学习内容成功", "好好学习,天天向上") \'生成成功提示页

            .AddButton("btn1","继续添加","addbiaozhang.htm")

            .AddButton("btn11","取消添加","default.htm")

        End With

        wb.AppendHTML("<script>" & vars("test") & "</script>")

        e.WriteString(wb.Build)

    End If

End If

<script>function xianshi(){

   var gj=document.getElementById("表彰类别").value;

if(gj=="个人表彰")

 {

 alert("提示信息!"); 

 document.getElementById("姓名").value = "";

 document.getElementById("性别").value = "";

document.getElementById("所在部门").value = "";

 document.getElementById("所任职务").value = "";

 document.getELementById("姓名").disabled=true;

 document.getELementById("性别").disabled=true;

document.getELementById("所在部门").disabled=true;

 document.getELementById("所任职务").disabled=true;}

else

 {alert("集体表彰"); 

 document.getElementById("部门名称").value = 0;

 document.getELementById("部门名称").disabled=true;}

}</script>

上述页面运行时，选择个人表彰或集体表彰之后页面并未新增姓名 性别  所在部门  所任职务 或部门名称的显示

此主题相关图片如下：12121.gif