主题：[求助]网页生版数据更新进度的设计

2、通过"var result = sendAjaxJSON(jays, "kqupdateok.htm", "", false);",

3、交给B网页进行后台数据的更新修改。并返回执行的结果。

由于量稍大一些，想在A网页产生一个进度条指示，通过研究显示上传进度文档，  http://www.foxtable.com/mobilehelp/topics/0139.htm

'B网页代码

Dim e As RequestEventArgs = args(0)

Dim sb As New StringBuilder

Dim cstxt As String

Dim zsi As Integer = 0

For Each ja As JToken In JArray.Parse(e.PlainText)

    

    Dim jfbh As  String  = ja("jfbh").ToString()'缴费编号

    Dim dmls As String = e.Cookies("Username")  '点名老师

    Dim dmlsbh As String = e.Cookies("Userzhanghao") '点名老师编号

    Dim xybh As String = ja("xybh").ToString() '学员编号

    Dim fxbh As String = ja("fxbh").ToString() '分校编号

    Dim xyxm As String = ja("xyxm").ToString() '学员姓名

    Dim sbkc As String = ja("sbkc").ToString() '所报课程

    Dim drsksj As String= ja("drsksj").ToString() '单人上课时间

    

    If jfbh <> "" Then

        Dim kcssks As Integer

        Dim cmd9 As New SQLCommand

        cmd9.CSe  lect 实上课时 From {报名缴费} Where 缴费编号='" & jfbh & "'"

        kcssks = cmd9.ExecuteScalar()

        

        Dim cmd2 As New SQLCommand

        cmd2.C

        cmd2.CommandText = "UP  DATE {报名缴费} SE T [实上课时] = ISNULL(实上课时,0) + 1,[剩余课时] = ISNULL(应上课时,0) - ISNULL(实上课时,0) - ISNULL(请假课时,0) - 1 WH ERE 缴费编号='" & jfbh & "' and 课程状态='已开课' And 剩余课时 > 0"

        Dim cgi As Integer = cmd2.ExecuteNonQuery()

        If cgi > 0 Then

            Dim cmd As new SQLCommand

            cmd.Connection Name = ""

            cmd.CommandText = "In sert Into 学员课时记录表 (缴费编号,分校编号,学员编号,所报学科,上课时间,点名时间,任课教师,任课教师编号,点名教师,点名教师编号,单科节次,备注) Values(?,?,?,?,?,?,?,?,?,?,?,?)"

            cmd.Parameters.Add("@缴费编号",jfbh)

            cmd.Parameters.Add("@分校编号",fxbh)

            cmd.Parameters.Add("@学员编号",xybh)

            cmd.Parameters.Add("@所报学科",sbkc)

            cmd.Parameters.Add("@上课时间",drsksj)

            cmd.Parameters.Add("@点名时间",Date.now)

            cmd.Parameters.Add("@任课教师",dmls)

            cmd.Parameters.Add("@任课教师编号",dmlsbh)

            cmd.Parameters.Add("@点名教师",dmls)

            cmd.Parameters.Add("@点名教师编号",dmlsbh)

            cmd.Parameters.Add("@单科节次",kcssks + 1)

            cmd.Parameters.Add("@备注","web点名")

            cmd.ExecuteNonQuery()

        End If

        zsi = zsi + 1

    End If    

Next

e.WriteString("共有" & zsi & "人次考勤记录更新成功")