使用ASP.NET / Linq进行在线测试

Question

进行在线测试。

我有3张桌子

1. 问题
2. 学科
3. 话题

我做了一个存储过程，它返回25条随机记录。 我想将其存储在内存中，然后使用AJAX一次显示1个问题。 我不想访问数据库25次，因为有很多用户，我尝试将结果存储在viewstate中，但随后无法将其回退。 如果我用

Dim qus = from viewstate("questions") 

它有效，但是当我一次检索1条记录时它不起作用。

码：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.IsPostBack Then
        ViewState.Add("QuestionNo", 0)
        Dim qus = From q In PML.PM_SelectRandomQuestionFM Select q
        viewstate.add("questions",qus)
        LoadQuestion(0)
    End If
End Sub



Private Sub LoadQuestion(ByVal i As Integer)
    Dim QuestionNo As Integer = CType(ViewState("QuestionNo"), Integer) + 1

    Try
        If QuestionNo <= 25 Then

            Dim qus = viewstate("questions")

            Me._subjectTopic.Text = String.Format("<b>Subject:</b> {0} -- <b>Topic:</b> {1}", qus(i).subjectName, qus(i).TopicName)
            Me._question.Text = " " & qus(i).Question
            Me._answer1.Text = " " & qus(i).Answer1
            Me._answer2.Text = " " & qus(i).Answer2
            Me._answer3.Text = " " & qus(i).Answer3
            Me._answer4.Text = " " & qus(i).Answer4
            Me._questionNo.Text = String.Format("Question No. {0} / 25", QuestionNo)
            ViewState.Add("QuestionNo", QuestionNo)
        Else
            Server.Transfer("freeMemberResult.aspx")
        End If

    Catch ex As Exception
        Throw New System.Exception(ex.ToString)
    End Try
End Sub

我尝试将对象投射到

Dim qus = CType(ViewState("questions"), IQueryable(Of PM_SelectRandomQuestionFMResult)) 

但是我得到这个错误

System.Linq.Enumerable + WhereSelectEnumerableIterator`2

如果我的在线测试方法有误，请帮助或有其他方法可以做到。

问候

Answer 1

您是否尝试过仅使用Session来维持状态？ 是否有禁止您执行此操作的要求？

Dim qus = CType(Me.Session("questions"), IQueryable(Of PM_SelectRandomQuestionFMResult))

Answer 2

IMO，您对此进行了过度设计。 为什么搞砸了试图将数据保存在内存中？ 为什么不将每个问题都写入div，然后隐藏除“当前问题”之外的所有问题div。

实施起来容易得多，而且您不必通过几次AJAX调用就可以访问服务器。这也使保存状态（先前回答的问题等）变得非常容易。