使用 ASP.NET / Linq 进行在线测试
题
正在进行在线测试。
我有3张桌子
- 问题
- 主题
- 话题
我制作了一个存储过程,它返回 25 条随机记录。我想将其存储在内存中,然后使用 AJAX 一次显示 1 个问题。我不想访问数据库 25 次,因为有很多用户,我尝试将结果存储在视图状态中,但后来我无法将其转换回来。如果我使用
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
如果我进行在线测试的方法错误,请帮助或者是否有其他方法可以做到这一点。
问候
解决方案
IMO,你对此过度设计了。为什么要把数据保存在内存中呢?为什么不将每个问题写入一个 div,然后隐藏除“当前问题”之外的所有问题 div。
实现起来更容易,并且您不需要通过多个 AJAX 调用来访问服务器,这也使得保存状态(之前回答的问题等)变得非常非常容易。
其他提示
您是否尝试过仅使用 Session 来维护状态?是否存在禁止您这样做的要求?
Dim qus = CType(Me.Session("questions"), IQueryable(Of PM_SelectRandomQuestionFMResult))
不隶属于 StackOverflow