第一段代码
Case webaddress
bbbh=webaddress.replace("bb_","")
e.AppendCookie("bbbh",bbbh)
wb = New WeUI
wb.AddForm("","form1","fc_table")
filter="se/lect * from {bscode} where code='bb_" & bbbh & "'"
cmd.commandtext=filter
lsdt=cmd.ExecuteReader()
Dim s As String=decrypttext(lsdt.dataRows(0)("web"),key1,key2)
Functions.Add("test",s)
Functions.Complie
Functions.Execute("test")
Functions.Remove("test")
With wb.AddButtonGroup("form1","btg1",False)
If e.cookies("terminal")="手机"
.Add("btn0","首页").attribute=""
Else
.Add("btn0", "首页","","/default")
End If
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
If pause="是"
e.Handled = True '通知系统异步函数执行完毕,可以关闭信道
End If
下面是第二段代码
Case webaddress
bbbh=webaddress.replace("bb_","")
e.AppendCookie("bbbh",bbbh)
wb = New WeUI
wb.AddForm("","form1","fc_table")
With wb.AddInputGroup("form1","ipg1","筛选条件")
.AddInput("startdate","开始日期","date")
.AddInput("enddate","结束时间","date")
.AddInput("单位名称1","单位名称","text")
.AddInput("合同编号1","合同编号","text")
End With
With wb.AddCheckGroup("form1","偏好","分组统计")
' .Add("小区名称","小区名称")
.Add("单位名称","单位名称")
.Add("合同编号","合同编号")
End With
With wb.AddButtonGroup("form1","btg1",False)
If e.cookies("terminal")="手机"
.Add("btn0","首页").attribute=""
Else
.Add("btn0", "首页","","/default")
End If
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
If pause="是"
e.Handled = True '通知系统异步函数执行完毕,可以关闭信道
End If
本来第一段代码执行的效果同第二段代码，现在第一段代码不执行了，第二段代码才会执行。
加好友 
发短信
Post By：2020/10/20 13:59:00 [显示全部帖子]
