กำหนดการรับสมัครสอบ ของสถาบันต่างๆ
|
สถาบัน |
หลักสูตร ที่เปิดสอบ |
วันที่รับสมัคร |
วันที่สอบ |
รายละเอียดเพิ่มเติม |
<%
'----------------------------------------------------------------------------
' 1.ประกาศตัวแปร
Dim page, rowCount, i, ans, sWhere, sSearch
'----------------------------------------------------------------------------
' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet
varUniversity = ""
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/determineRegis.mdb")
sql="select * from TableDetermine order by RegisUniversity ASC"
'If ans="2" Or ans="3" Then sql="select * from TableDetermine" & 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
%>
|
<%
'Response.write rs("RegisUniversity")
varUniversityNew = rs("RegisUniversity")
if varUniversityNew <> varUniversity then
Response.write rs("RegisUniversity")
end if
%>
|
<%=rs("RegisMajor")%> |
เปิดรับ <%=rs("DateStart")%>
ปิดรับ <%=rs("DateEnd")%>
|
<%=rs("DateQuiz")%> |
<%=rs("RegisDetail")%> |
<%
varUniversity = rs("RegisUniversity")
rowCount = rowCount + 1
rs.MoveNext
Loop
End If
%>
แสดงหน้า
<%
Call ShowPageNum(rs.PageCount, Page, "determineRegisUni.asp", ans)
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
[เรียงลำดับจาก รายการล่าสุด] [เรียงลำดับ แยกตามมหาวิทยาลัย]
|