thaiall logomy background
coding : casereg. listpage.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : listpage.asp. ID : 2903
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim connect, rs, sql, ctr,recaddr, pagenum, totrs, gotopg, pg
pg = request.form("pg")
ctr = request.form("ctr")
pagenum = request.form("pagenum")
if pg = "" then pg = 1
if request.form("ctr") = "" then ctr = "first"
if request.form("pagenum") = "" then pagenum = 1
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\casereg.mdb"))
sql = "select * from student order by idstd"
set rs = server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
totrs = rs.recordcount
if totrs > 0 then
  select case ctr
  case "first"
    pagenum = 1
  case "previous"
    if pagenum = 1 then 
      pagenum = totrs
    else
      pagenum = pagenum - 1
    end if
  case "next" 
    tnext = totrs
    if int(pagenum) >= int(tnext) then             
      pagenum = 1
    else
      pagenum = pagenum + 1
    end if
  case "last"
    pagenum = totrs \ pg
    rest = totrs mod pg
    if rest > 0 then
      pagenum = pagenum + 1
    end if
  end select
  calgoto = int(pg) * (int(pagenum) - 1)
  if pagenum = 1 or calgoto > totrs then
    gotopg = 0
  else
    gotopg = calgoto
  end if
  rs.move gotopg
  n = gotopg + 1
  response.write(" Current: "& pagenum &" / "& totrs &_
  " Start record: "& n &"<br>")   
  for i = 1 to pg 
    if not rs.eof then  
      response.write(n&". "&rs("idstd")&" - "&rs("stname")&" - "&_
	  rs("stsurn")&" - "&rs("advid")&" - "&rs("major")&"<br>")  
      rs.movenext
    end if   
    n = n + 1
  next
else
  response.write("Record not found")
end if  
connect.close
set rs = nothing
set connect = nothing
response.write("<hr><form action=listpage.asp method=post>" &_
"Rec/Page: <input name=pg value="& pg & ">" &_
"Page no: "& pagenum & "<input type=hidden name=pagenum value="& pagenum &"><br>" &_
"<input type=submit name=ctr value=first>" &_
"<input type=submit name=ctr value=previous>" &_
"<input type=submit name=ctr value=next>" &_
"<input type=submit name=ctr value=last></form>")
%>
จำนวน : 71 บรรทัด
าษาเฮชทีเอ็มแอล (HTML = HyperText Markup Language) คือ ภาษาคอมพิวเตอร์ที่ออกแบบมาเพื่อใช้ในการสร้างเว็บเพจที่เรียกดูผ่านทางเว็บเบราว์เซอร์ (Web Browser) เริ่มพัฒนาโดย ทิม เบอร์เนอรส์ ลี (Tim Berners Lee) ในปัจจุบัน HTML ล่าสุดคือ รุ่น 5 เป็นมาตรฐานหนึ่งของ ISO ซึ่งจัดการโดย World Wide Web Consortium (W3C) ในปัจจุบัน ทาง W3C ผลักดัน รูปแบบของ HTML แบบใหม่ ที่เรียกว่า XHTML รุ่นแรกคือ 1.0 (ม.ค.2543) ซึ่งมีโครงสร้างเป็นแบบ XML (eXtensible Markup Language)
าษาพีเอชพี (PHP Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้กับ ตัวแปลภาษา ทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปเอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้
าษาไพทอน (Python Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาแอพพลิเคชั่นโดยไม่ยึดติดกับแพลตฟอร์ม (Platform) และใช้ในงานได้หลายประเภท ทั้งใช้ในการประมวลผลผ่านคอมมานด์ไลน์ หรือเป็นเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้โค้ดให้กับตัวแปลภาษา เพื่อทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปข้อความ เอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้ จุดที่แตกต่างกับภาษาอื่น คือ การรวบรวมจุดเด่นของแต่ละภาษามารวมเข้าด้วยกัน
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com