Function IDArrlist() As Integer '先根据表TestInfo中的CourseType和Type项目索引出试题的Id号码，组成一个以逗号为分隔符的字符串 db.DbConn.Open() db.DbCmd.CommandText = "select id from testinfo where CourseType=@kecheng and type=@leixing" db.DbCmd.Parameters.Add("@kecheng", KcName.SelectedValue) db.DbCmd.Parameters.Add("@leixing", Type.SelectedValue) Dim dr As SqlClient.SqlDataReader = db.DbCmd.ExecuteReader ltID.Text = "" While dr.Read ltID.Text += dr(0) & "," End While Session.Add("ID", ltID.Text) db.DbConn.Close()
'******开始调用相关函数****
'ChuLiStr() '*********结束************* Dim StrId As String = Session("id") Dim Num As Integer = 2
Dim str() As String = StrId.Replace("(", "").Replace(")", "").Split(",") Dim ArrNum As Integer = str.Length Select Case Type.SelectedValue Case "选择" Session("xz") = "" LtXiaoTi.Text += "《选择题》" & "<br>" Case "判断" Session("pd") = "" LtXiaoTi.Text += "《判断题》" & "<br>" Case "填空" Session("tk") = "" LtXiaoTi.Text += "《填空题》" & "<br>" End Select For Num = 1 To CInt(txtNUm.Text) Dim i As Integer = CInt(Int((ArrNum - 1 + 1) * Rnd() + 1))
db.DbConn.Close() db.DbConn.Open()
db.DbCmd.CommandText = "select * from testinfo where id=" & str(i)
Dim SdrDr As SqlClient.SqlDataReader = db.DbCmd.ExecuteReader
While SdrDr.Read
Select Case Type.SelectedValue Case "选择"
LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>" Session.Add("xz", LtXiaoTi.Text) Case "判断"
LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>" Session.Add("pd", LtXiaoTi.Text) Case "填空"
LtXiaoTi.Text += "【" & SdrDr(0) & "】、" & SdrDr(1) & "<br>" Session.Add("tk", LtXiaoTi.Text) End Select
End While 'Response.Write("这是下标" & i & "值" & str(i)) Next End Function
