LIST.htm代码中怎么写代码?(见附件)能让数据循环显示在网页的TABLE的行中。
HttpRequest事件
Sel ect Case e.Path
Case "list.htm"
e.AsyncExecute = True
Functions.AsyncExecute("GetData", e)
End S elect
getdata自定义函数Dim e As RequestEventArgs = Args(0)
Dim cmd As New SQLCommand
cmd.C
cmd.Command Text = "sel ect * from test"
Dim dt As DataTable = cmd.ExecuteReader
Dim ja As New JArray
Dim i As Integer
For Each dr As DataRow In dt.DataRows
ja.Add(New JObject)
ja(i)("uid") = (i + 1).ToString
ja(i)("UseName") = dr("UseName").ToString
ja(i)("Email") = dr("Email").ToString
ja(i)("Name") = dr("Name").ToString
ja(i)("CreateTime") = dr("CreateTime").ToString
i = i + 1
Next
e.WriteString(CompressJson(ja))
e.Handled = True