Case "default.htm" '首页
wb.AddPageTitle("","pageheader","工资查询系统","金者软件开发")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("年龄","年龄","number")
.AddInput("日期","日期","date")
.AddSelect("级别","级别","普通会员|高级会员|VIP会员")
.AddSwitch("停权","停权")
End With
With wb.AddGrid("","g1")
.Add("c1","增加订单", "./images/105.png").Attribute = ""
.Add("c2","客户管理", "./images/120.png", "http://www.foxtable.com")
.Add("c3","销售统计", "./images/121.png").Attribute = ""
.Add("c4","修改密码", "./images/130.png","Update.htm") '.Attribute = "" ' javascript:alert(""./images/121.png"")'"
.Add("c5","Progress", "./images/123.png", "http://www.foxtable.com")
.Add("c12","退出", "./images/147.png", "exit.htm") '退出登录
End With
e.WriteString(wb.Build)
经过测试上面这段程序,只显示下面Gird的内容。
把 e.WriteString(wb.Build)移到中间部份时就什么也不显示了!