thaiall logomy background
coding : updatemdb. controlrec.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : controlrec.asp. ID : 2509
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim connect, rs, sql, ctr,recaddr, recnum, totrs
ctr = request.querystring("ctr")
recnum = request.querystring("recnum")
if (len(recnum) < 1) then recnum = 0 
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\tempdb.mdb"))
sql = "select * from tempfile"
set rs = connect.execute(sql)
totrs = 0
rs.movefirst
do while not rs.eof
  totrs = totrs + 1
  rs.movenext
loop
rs.movefirst
if totrs > 0 then
  select case ctr
  case "first"
    recnum = 0
  case "prev"
    if recnum = 0 then 
      recnum = totrs - 1
    else
      recnum = recnum - 1
    end if
  case "next" 
    tnext = totrs - 1
    if int(recnum) >= int(tnext) and recnum <> "0" then             
      recnum = 0
    else
      recnum = recnum + 1
    end if
  case "last"
    recnum = totrs - 1
  end select
  rs.move recnum 
  response.write("<body>"& recnum + 1 &" / "& totrs &"<br>")  
  response.write("<a href=controlrec.asp?ctr=first&recnum="&recnum&">first</a> - ")
  response.write("<a href=controlrec.asp?ctr=prev&recnum="&recnum&">prev</a> - ")
  response.write("<a href=controlrec.asp?ctr=next&recnum="&recnum&">next</a> - ")
  response.write("<a href=controlrec.asp?ctr=last&recnum="&recnum&">last</a><hr> - ")  
  response.write(rs("tmpch")&"<br>")
  response.write(rs("tmpnum")&"<br>")
  response.write(rs("tmpdate")&"<br>")
else
  response.write("Record not found")
end if  
connect.close
set rs = nothing
set connect = nothing
%>
จำนวน : 53 บรรทัด
าษาเฮชทีเอ็มแอล (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) สำหรับพัฒนาเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้กับ ตัวแปลภาษา ทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปเอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com