'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 & "人次考勤记录更新成功")
加好友 
发短信
Post By：2021/5/8 10:04:00 [只看该作者]
