以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  返回的页面不能响应事件?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117612)
--  作者：zhy400137
--  发布时间：2018/4/16 11:11:00
--  返回的页面不能响应事件?
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.count = 0 Then
    wb.AppendHTML("<link rel=\'stylesheet\' href=\'./lib/selected.css\'/>",True)
    wb.AddForm("","form1","goodslist.htm")
    With wb.AddInputGroup("form1","ipg1","问卷内容")
        .AddSelect("部门名称","部门名称","KA|KB|KC")
        .AddInput("提交时间","提交时间","date")
        .AddSelect("系列分类","系列分类","DIY系列|转运系列|祈福系列")
        With .AddInput("isform1","","hidden")
            .Value = "isform1"
            .Readonly= True
        End With
    End With
    With wb.AddButtonGroup("form1","btg1",True)
        .Add("btn1", "确定", "button").Attribute= ""
    End With
    wb.AppendHTML("<div id=\'goodslist\' style=\'margin:0.5em\'></div>") \'插入一个div,用于显示服务器返回的页面
    wb.AppendHTML("<script src=\'./lib/photolistreturn.js\'></script>") \'引入脚本文件
    wb.AppendHTML("<script src=\'./lib/selected.js\'></script>") \'引入脚本文件
    e.WriteString(wb.Build) \'生成网页
ElseIf e.PostValues.ContainsKey("isform1") Then
    If e.PostValues.ContainsKey("部门名称") AndAlso e.PostValues.ContainsKey("提交时间") AndAlso e.PostValues.ContainsKey("系列分类") Then
        Dim cmd As New SQLCommand
        cmd.ConnectionName = DataSource \'记得设置数据源名称
        cmd.CommandText = "Sele ct * Fr om {图片列表} where 系列分类=\'" & e.PostValues("系列分类") & "\'"
        Dim dt As DataTable = cmd.ExecuteReader
        If dt.DataRows.count>0 Then
            wb.AddForm("","form2","goodslist.htm")
            With wb.AddInputGroup("form2","ipg1","图片列表")
                With .AddUploader("up1","",True)
                    .AllowAdd = False \'关闭文件上传功能
                    For Each dr As DataRow In dt.DataRows
                        .AddImage("./images/" & dr("文件夹名称") & "/" & dr("图片名称"))
                    Next
                    .Attribute = ""
                End With
            End With
        End If
    Else
        wb.InsertHTML("请按输入部门名称,提交时间,系列分类!")
    End If
    e.WriteString(wb.Build)
End If

像这样返回插入DIV的页面不能影响事件?写个简单的onclick也不行,自己写的JQUERY也不行
--  作者：zhy400137
--  发布时间：2018/4/16 11:11:00
--  
Attribute = ""
--  作者：有点甜
--  发布时间：2018/4/16 11:15:00
--  

1、要发onclick等内容，记得用斜体，不然显示不出来；

 

2、没看懂你代码意思，详细说明你要做什么功能。