thaiall logomy background
coding : casereg. groupadv.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : groupadv.asp. ID : 2904
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim connect, rs, sql, outrec, aid
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\casereg.mdb"))
sql = "select first(student.advid) as aid, first(atname) as aname,"
sql = sql + "count(idstd) as cnt from student,advisor "
sql = sql + "where student.advid = advisor.advid group by student.advid"
set rs = connect.execute(sql)
response.write("<body><form action=groupadv.asp method=post>")
response.write("<select name=gp size=5>")
rs.movefirst
do while not rs.eof
  outrec = rs("aid")&" "&rs("aname")&" have advisee : "&rs("cnt")&"<br>"
  response.write("<option value="&rs("aid")&">"&outrec)
  rs.movenext
loop
response.write("</select><input type=submit name=action value=select></form>")
if request.form("action") = "select" then
  gpid = request.form("gp")
  sql = "select * from student where advid="&gpid &" order by idstd"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  totrs = rs.recordcount
  rs.movefirst
  for i = 1 to totrs
    response.write(i&". "&rs("idstd")&" "&rs("stname")&"<br>")
    rs.movenext
  next
end if
connect.close
set rs = nothing
set connect = nothing
%>
จำนวน : 34 บรรทัด
าษาเฮชทีเอ็มแอล (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)
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
rspsocial
Thaiall.com