| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 页面不执行第二步 红色部分及以下不执行 麻烦老师们看看是哪里有问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150671) |
| -- 作者：李孝春 -- 发布时间：2020/6/4 11:56:00 -- 页面不执行第二步 红色部分及以下不执行 麻烦老师们看看是哪里有问题 页面不执行第二步 红色部分及以下不执行 麻烦老师们看看是哪里有问题 Dim e As RequestEventArgs = args(0) Dim wb As New weui Dim PageNumber As Integer = e.Ge tValues("page") Dim PrimaryKey As Integer = e.Get Values("key") Dim PageURL = "getxuexiList.htm? page=" & Pag eNumber & "&key=" & PrimaryKey Dim dr As DataRow = DataTables("学习内容列表").SQL Find("[_Identify]=" & PrimaryKey) Dim st As New Date(1970,1,1,8,0,0) Dim d As Date = cdate("2020-02-01") Dim t As Long = (Date.Now - st).TotalSeconds() Dim bianhao As String= Date.Today & "(" & t & ")" If e.PostValues.Count = 0 Then \'生成编辑页面 If dr IsNot Nothing Then wb.AddPageTitle("","ph1","在线学习系统","瓮安县检察院【党建综合系统】") wb.AddForm("","form1","getxuexilist.htm?key=" & PrimaryKey & "&page=" & PageNumber) With wb.AddInputGroup("form1","ipg1","课程信息【" & e.Cookies("姓名") & "】开始学习时间:" & Date.Now()) .AddInput("学习编号","学习编号","text").Value = dt22("学习编号") .AddInput("学习要求","学习要求","Text").Value="做好自学笔记,以备检查!" With wb.AddInputGroup("form1","ipg2","学习内容") With .AddTextArea("bz",15) .Readonly=True .Value= dt22("内容") End With End With \'.AddInput("单位名称","单位名称","text").Value = dr("单位名称") .AddHiddenValue("开始时间",Date.Now()) End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With wb.AppendHTML("<scr ipt src=\'./lib/ajaxform.js\'></script>",True) wb.AppendHTML("<scri pt>document.getEleme ntById(\'btn1\').disabled=true;document.getElemen tById(\'btn1\').style.backgroundColor = \'#b2b2b2\';var cnt = 60;setTimeout(countDown,1000);</script>") e.WriteString(wb.Build) \'生成网页 End If MessageBox.Show(1) Else MessageBox.Show(2) Dim tp As TimeSpan Dim kaishi As Date=e.PostValues("开始时间") Dim jieshu As Date=Date.now tp = jieshu-kaishi MessageBox.Show(tp.TotalMinutes) \'真正的时段型数据要转换为秒数,才能存入时段列 Dim cmd1 As New SQLCo mmand cmd1.Connec tio nName = "智慧党建" cmd1.Comman dText = "Inse rt In to 在线学习记录 (内容,学习时间,开始时间,学习人员,学习编号,学习时长) Values(?,?,?,?,?,?)" cmd1.Parameters.Add("@内容", dr("内容")) cmd1.Parameters.Add("@学习时间", Date.Now()) cmd1.Parameters.Add("@开始时间", kaishi) cmd1.Parameters.Add("@学习人员", e.Cookies("姓名")) cmd1.Parameters.Add("@学习编号", bianhao) cmd1.Parameters.Add("@学习时长", tp.TotalMinutes) cmd1.ExecuteNonQuery Dim cmd2 As New SQLCom mand cmd2.Connect ion Name = "智慧党建" cmd2.Comm andText = "UPDA TE {学习内容列表} SET 学习标志 = \'true\' WHERE 学习人员 = \'" & e.Coo kies("姓名") & "\'" cmd2.ExecuteNonQuery() With wb.AddButtonGroup("form1","btg1",True) \'生成成功提示页 .Add("btn1","继续学习","button","getxuexiList.htm?page=" & PageNumber ) End With e.WriteString(wb.Build) End If
[此贴子已经被作者于2020/6/4 11:56:33编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/6/4 12:08:00 -- MessageBox.Show(1)有没有弹出吗？点击确定了没有？ Dim t As Long = (Date.Now - st).TotalSeconds() Dim bianhao As String= Date.Today & "(" & t & ")" MessageBox.Show(e.PostValues.Count ) If e.PostValues.Count = 0 Then \'生成编辑页面 |
| -- 作者：李孝春 -- 发布时间：2020/6/4 12:30:00 -- 回复：（有点蓝）MessageBox.Show(1)有没有弹出吗？点... 老师： Messag eBox.Show(e.PostValues.Count) 弹出为0Messag eBox.Show(1) 弹出为1 Message Box.Show(2)不弹出 继后的代码也不运行 以下内容是专门发给有点蓝浏览 [此贴子已经被作者于2020/6/4 12:34:13编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/6/4 14:00:00 -- Messag eBox.Show(e.PostValues.Count) 弹出为0 -- 说明没有提交数据啊，第一次进来肯定Show(2)不弹出的，点击按钮提交数据才能弹出 |
| -- 作者：李孝春 -- 发布时间：2020/6/4 14:33:00 -- 回复：（有点蓝）Messag eBox.Show(e.PostValues.Coun... 就是当学习完毕 点结束并返回 也不运行并弹出 2 这个提示！ |
| -- 作者：有点蓝 -- 发布时间：2020/6/4 14:44:00 -- 只有点击确定按钮才会弹出 2 |
| -- 作者：李孝春 -- 发布时间：2020/6/4 14:50:00 -- 回复：（有点蓝）只有点击确定按钮才会弹出 2 当确定按钮倒计时完毕之后 我点击确定 就是不提交 不弹出 |
| -- 作者：有点蓝 -- 发布时间：2020/6/4 14:58:00 -- wb.AddForm("","form1","getxuexilist.htm?key=" & PrimaryKey & "&page=" & PageNumber) 改为 wb.AddForm("","form1","getxuexi.htm?key=" & PrimaryKey & "&page=" & PageNumber) |