最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
考试系统之填空题-实现方法
时间:2022-07-02 12:09:10 编辑:袖梨 来源:一聚教程网
做一个考试系统,客户要求要有填空题,实现的过程中可谓费尽周折,在这里说一说实现的过程。
1、出题的时候,将需要填空的部分用固定长度的下划线表示,保存到数据库中,字段名字为stnr
2、取出stnr,用分割函数以固定长度的下划线为分隔符,将除填空部分以外的字符串搞到一个数组里,然后循环取出这个数组里每一个值并上赋给字符串str,再用table.innerHtml=str,这样就将考题输出到表格里了,填空的部分被替换成文本框
---------------------xx.aspx.vb-----------------
Private Sub Create()
Dim str As String
str = dv.Item(0).Item("stnr").ToString.Trim
Dim a() As String
a = Split(str, "_____", -1, CompareMethod.Text)
Dim i As Int16
Dim str1 As String
For i = 0 To a.Length - 2
If dvDab.Count > 0 Then
Dim strDab As String
strDab = dvDab.Item(0).Item("da").ToString.Trim
Dim s() As String
s = Split(strDab, "|", -1, CompareMethod.Text)
1、出题的时候,将需要填空的部分用固定长度的下划线表示,保存到数据库中,字段名字为stnr
2、取出stnr,用分割函数以固定长度的下划线为分隔符,将除填空部分以外的字符串搞到一个数组里,然后循环取出这个数组里每一个值并上赋给字符串str,再用table.innerHtml=str,这样就将考题输出到表格里了,填空的部分被替换成文本框
---------------------xx.aspx.vb-----------------
Private Sub Create()
Dim str As String
str = dv.Item(0).Item("stnr").ToString.Trim
Dim a() As String
a = Split(str, "_____", -1, CompareMethod.Text)
Dim i As Int16
Dim str1 As String
For i = 0 To a.Length - 2
If dvDab.Count > 0 Then
Dim strDab As String
strDab = dvDab.Item(0).Item("da").ToString.Trim
Dim s() As String
s = Split(strDab, "|", -1, CompareMethod.Text)
相关文章
- 反义词 04-28
- 二货囧事,笑搞的很出彩 04-28
- 胖子你又来逗大家笑 04-28
- 父子逗段,搞笑的很呐! 04-28
- 年过的开心不?看笑段就知道了 04-28
- 嘿嘿,这些人让大家很无语哟! 04-28