主题：请教，用JS获取的值，如何写入全局变量？

在WEUI中，我想在点击panel列表后，获取某个列表的ID值。通过onclick，我能用js获取到Panel列表的ID，请问，如何将这个ID值写入全局变量中？页面没有提交按钮和postvalues，事实上，我模拟做了一个文本框作为POST，能够将JS值写入这个文本框，却仍然在将这个值写入全局变量的时候，屡试不成。请教大侠指导。

 

或者简单说，panel列表的onclick事件，如何将panel的ID值写入foxtable中的public全局变量？请大侠指导。

目的是想去读取panel后台数据表中该对应行的其他字段信息。

 

页面上不想出现submit的按钮之类，点击panel的时候，还要跳转页面，页面是一个统一的读写表数据的页面。请问，如何将点击Panel的时候，取得的id值，传递到跳转页面中去？

我再看看数据提交部分的帮助吧。基础太差，边干边学中，比较艰难。很多帮助文档看过很多遍，却不会用，只有一点一点摸索，用过后才能学会。感谢蓝版。

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;
}

但是在这个页面提取不到任何值。原因是上个post页面没有提交功能吧。怎么办呢？

Dim e As RequestEventArgs = args(0)
'Dim wb As New weui
Select e.path
    Case "test3.htm"
        'wb.InsertHTML("接收到的数据有:<br/>")
        'e.Values(keys(0))
        Dim sb As New StringBuilder
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e.Values.Keys
            sb.AppendLine(key & ":" & e.Values(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)
End Select
'e.WriteString(wb.Build) '生成网页

 

 

 

跳转的网页，是一个读取后台数据信息的网页。如果跳转的网页带那个编号的话——我只想写那一个网页的代码啊——那如何才能只写一个统一的网页生成代码呢？

test3函数该如何些？

HttpRequest事件代码又该如何些？

感觉会很复杂。

请教一下思路。

啊？我看见地址栏里带了这个bh，地址变成了test3.htm53_这个53就是编号。并且网页是空白，好像test函数或者HttpRequest事件代码没有起作用似的。

 

额嗯，修改了一下跳转字符串，传递过来了。谢谢！