ขอแสดงความยินดี กับนักศึกษาที่สอบผ่าน...
ขอแสดงความยินดีกับนักศึกษาทุกท่านของทางสถาบันฯ ที่ผ่านคะแนนสอบข้อเขียนของ มหาวิทยาลัย สถานศึกษา และสถาบันต่างๆ ด้วยนะค่ะ
อาธิเช่น
จุฬาลงกรณ์มหาวิยาลัย
มหาวิทยาลัยธรรมศาสตร์
สถาบันบัณฑิตพัฒนบริหารศาสตร์(นิด้า)
มหาวิทยาลัยมหิดล
มหาวิทยาลัยเชียงใหม่
มหาวิทยาลัยเกษตรศาสตร์
มหาวิทยาลัยขอนแก่น
มหาวิทยาลัยสงขลานครินทร์
มหาวิทยาลัยศรีนครินทรวิโรฒ
มหาวิทยาลัยศิลปากร มหาวิทยาลัยศรีปทุม
และอื่นๆ
รายชื่อ ด้านล่างค่ะ
รายชื่อนักศึกษาของสถาบันฯ ที่สอบผ่านคะแนนข้อเขียน ของสถาบันต่างๆ
<%
tableSelect = "goodSTD"
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("backoffice/db/contentHTML.mdb")
Sql="Select * from "& tableSelect &""
Set rs =Server.CreateObject("ADODB.Recordset")
rs.open Sql,Conn,1,3
If Not rs.EOF Then
Response.write rs("contentDetail")
end if
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
|
|
<%
'----------------------------------------------------------------------------
' 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 nanswer DESC, qnumber DESC"
If ans=3 Then sWhere = " order by nanswer, qnumber DESC"
Else
sWhere = ""
End If
Else
sWhere = " where qtopic like '%"& sSearch &"%' Or qnote like '%"& sSearch &"%'"
End If
'-----------------------------------------------------------------
' 3.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล
'Call ConnectDB()
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("backoffice/db/commentSTD.mdb")
sql="select * from questions" & sWhere & " order by QNumber DESC"
If ans="2" Or ans="3" Then sql="select * from questions" & sWhere
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า
rs.PageSize = 11
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("QTopic")%>...
<%=rs("QNote")%>...
<%=rs("QName")%>...
|
">
" style="border: 3px double #0096DC" width="150" height="150">
|
<%
rowCount = rowCount + 1
rs.MoveNext
Loop
End If
%>
หน้า
<%
Call ShowPageNum(rs.PageCount, Page, "commentbySTD.asp", ans)
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
'Call DisconnectDB()
%>
|
|
|
|