ตัวอย่างแนวข้อสอบ สดๆ ร้อนๆ ค่ะ


<% '---------------------------------------------------------------------------- ' 1.ประกาศตัวแปร Dim page, rowCount, i, ans, sWhere, sSearch '---------------------------------------------------------------------------- ' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet page = Trim(Request.QueryString("page")) If page = "" Then page = 1 sSearch = Trim(Request.Form("search")) ans = Trim(Request.QueryString("ans")) If sSearch = "" Then If IsNumeric(ans) Then If ans=1 Then sWhere = " where nanswer>=1" If ans=0 Then sWhere = " where nanswer=0" If ans=2 Then sWhere = " order by id DESC, RegisUniversity DESC" If ans=3 Then sWhere = " order by id DESC, RegisUniversity DESC" Else sWhere = "" End If Else sWhere = " where qtopic like '%"& sSearch &"%' Or qnote like '%"& sSearch &"%'" End If '----------------------------------------------------------------- ' 3.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล Set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("backoffice/db/QuizExample.mdb") sql="select * from QuizExample order by QuizExampleID DESC" 'If ans="2" Or ans="3" Then sql="select * from QuizExample" & sWhere Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic ' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า rs.PageSize = 10 rs.Open sql,conn If Not rs.EOF Then ' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน rs.AbsolutePage = CInt(page) rowCount = 0 Do While Not rs.EOF And rowCount < rs.PageSize %> <% rowCount = rowCount + 1 rs.MoveNext Loop End If %> [เรียงลำดับจากรายการล่าสุด] แสดงหน้า <% Call ShowPageNum(rs.PageCount, Page, "QuizExample.asp", ans) rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>
   
<%=rs("QuizSubject")%> 
<%=rs("QuizDate")%>
<%=rs("QuizExampleNote")%>