หนึ่งความคิดเห็นของนักศึกษา [คลิ๊กที่รูป ดูผลสอบ]

ขอแสดงความยินดี
กับนักศึกษาที่สอบผ่าน...

ขอแสดงความยินดีกับนักศึกษาทุกท่านของทางสถาบันฯ ที่ผ่านคะแนนสอบข้อเขียนของ มหาวิทยาลัย สถานศึกษา และสถาบันต่างๆ ด้วยนะค่ะ
 

อาธิเช่น
จุฬาลงกรณ์มหาวิยาลัย
มหาวิทยาลัยธรรมศาสตร์
สถาบันบัณฑิตพัฒนบริหารศาสตร์(นิด้า)
มหาวิทยาลัยมหิดล
มหาวิทยาลัยเชียงใหม่
มหาวิทยาลัยเกษตรศาสตร์
มหาวิทยาลัยขอนแก่น
มหาวิทยาลัยสงขลานครินทร์
มหาวิทยาลัยศรีนครินทรวิโรฒ
มหาวิทยาลัยศิลปากร มหาวิทยาลัยศรีปทุม
และอื่นๆ
  


รายชื่อ ด้านล่างค่ะ  


รายชื่อนักศึกษาของสถาบันฯ ที่สอบผ่านคะแนนข้อเขียน ของสถาบันต่างๆ

<% 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 %> <% rowCount = rowCount + 1 rs.MoveNext Loop End If %>
"--><%=RS("QTopic")%>...

<%=rs("QNote")%>...

<%=rs("QName")%>...

"> " style="border: 3px double #0096DC" width="150" height="150">

หน้า <% Call ShowPageNum(rs.PageCount, Page, "commentbySTD.asp", ans) rs.Close conn.Close Set rs = Nothing Set conn = Nothing 'Call DisconnectDB() %>