Dim e As RequestEventArgs = args(0)
DataTables("网页表").load()
Dim wb As New weui
Select e.path
Case "sccj.htm" '赛场侧记
If e.PostValues.count = 0 Then
'wb.AddPageTitle("","pageheader","JACK桥牌文库","开发者: 楼兰")
wb.AddPageTitle("","pageheader","JACK桥牌文库")
wb.AddForm("","form1","test3.htm")
With wb.AddInputGroup("form1","ipg1","取值测试")
.AddInput("zzbh","编号","text")
End With
Tables("网页表").Filter = "[分类] = '赛场侧记'"
With wb.AddPanelGroup("","pg1","赛场侧记")
Dim n As Integer = 0
For Each r As Row In Tables("网页表").Rows
Dim pname As String = "p" & cstr(n)
Dim zbt As String = r("主标题")
Dim jj As String = r("简介")
Dim wymc As String = r("网页名称")
Dim tpmc As String = r("图片名称")
Dim hz As String = r("徽章")
Dim bh As String = r("编号")
Dim tjfs As String = r("添加方式")
If tjfs = "自助生成" Then
' With.Add(pname,zbt,jj,"./images/" & tpmc) ',"./zzwy.htm") '这是好的
With.Add(bh,zbt,jj,"./images/" & tpmc,"./test3.htm") '跳转到一个动态网页
.Badge = hz '
.Attribute = " & bh & "')""" '好不容易才取到这个值!这里是onclick代码,测试没问题,能将提取到的值写入本页文本框
End With
Else
.Add(bh,zbt,jj,"./images/" & tpmc,"./" & wymc).Badge = hz '跳转到网页名称固定的网页
End If
n = n + 1
Next
End With
Else
End If
End Select
wb.AppendHTML("<script src='./lib/ds.js'></script>") '引入脚本文件
wb.AddForm("","form2","fszt.htm")
With wb.AddButtonGroup("form2","btg1",True)
.Add("btn2","返回首页","","./default.htm")
End With
e.WriteString(wb.Build)
js代码如下:
function ds(a){
zzbh.value = a;
}
[此贴子已经被作者于2019/9/16 13:21:38编辑过]