ตัวอย่างแนวข้อสอบ สดๆ ร้อนๆ ค่ะ
|
|
<%
'----------------------------------------------------------------------------
' 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
%>
<%=rs("QuizSubject")%> <%=rs("QuizDate")%> |
<%=rs("QuizExampleNote")%>
|
<%
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
%>
|