thaiall logomy background
coding : tb.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : tb.asp. ID : 4211
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<! version 2.25July46 by burin rujjanapan from yonok.ac.th>
<%
dim connect, rs, sql, tots, i, j, k, l, nextl, max
set connect = server.createobject("ADODB.Connection")
%><!--#include file="connectinfo.asp"--><!--#include file="header.asp"--><%
if len(request.querystring("tumbon")) > 2 and len(request.querystring("menu")) = 3 then
  sql = "select * from tb where tbid = '" & request.querystring("tumbon") &"' order by tbid"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount  
  if tots > 0 then
    i = 1  
	max = rs("linenews")
    response.write("<table width=100% border=0 cellpadding=1 cellspacing=1")
	response.write("><td width=200 valign=top bgcolor=black align=center><table border=0 cellpadding=1 cellspacing=1 bgcolor=black width=200>")
    do while not rs.eof and i < 16
      response.write("<tr><td bgcolor=#ffffdd align=center><font size=4>")
	  response.write("<a href=tb.asp?tumbon=" &request.querystring("tumbon") &"&menu=m00>"&rs("name")&"</a>")
      if len(rs("url"))>0 then
        response.write(" [<a href='"& rs("url")&"' style=TEXT-DECORATION:none;>web</a>]")
      end if
      response.write("</font></td></tr>")      
      for j = 1 to 20
        if j < 10 then
           l = "m0" & j
           k = rs("m0"& j)		
        else
           l = "m" & j
           k = rs("m"& j)		           
        end if
        if not isnull(k) and len(k) > 2  then
          response.write("<tr><td>")
		  keeptmp = "tb.asp?tumbon="&request.querystring("tumbon")& "&menu="&l
%>
<applet code="fphover.class" codebase="" width="200" height="20">
<param name="text" value="<%= k %>">
<param name="color" value="#000000">
<param name="hovercolor" value="#0000ff">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="url" value="<%= keeptmp %>" valuetype="ref">
<param name="target" value="_top">
<param name="bgcolor" value="#FFFFFF">
</applet>		  
<%
          response.write("</td></tr>")
        end if
        if l = request.querystring("menu") then
          nextl = k
        end if
	  next
      rs.movenext
      i = i + 1
    loop    
    response.write("</table></td><td valign=top>")
    response.write("<center><font size=6>" & nextl &"</font></center><hr color=blue>")
	if (request.querystring("menu") = "m00") then
      sql = "select * from tb where tbid = '" & request.querystring("tumbon") &"'"
	else
	  sql = "select * from tbm where tbid = '" & request.querystring("tumbon") &"' and m ='" &request.querystring("menu")&"'"
	end if
    set rs = server.createobject("ADODB.recordset")
    rs.open sql,connect,1,3
    tots = rs.recordcount
    if tots > 0 then
	  if (request.querystring("menu") = "m00") then
	    response.write(rs("m00"))
	  else
	    response.write(rs("mdesc"))
	  end if
    else
      response.write("<br>ยังไม่มีข้อมูลในฐานข้อมูล")
    end if    
    if max > 0 and request.querystring("menu") = "m00" then
	  response.write("<div id=m1 style='position:absolute; left:430px; top:70px; width:330px; z-index:1;'>")
	  response.write("<table width=100% border=0><tr bgcolor=#808080><td align=center>ข่าวประกาศ</td></tr>")
      connectnews
      sql = "select * from news where owner = '"& request.querystring("tumbon") &"'order by nid desc"
      displaynewsintb
	  response.write("</table></div>")
	end if
	response.write("</td></table>")    	
  else 
    response.write("<br>ยังไม่มีข้อมูลในฐานข้อมูล")
  end if
  connect.close
  set rs = nothing
  set connect = nothing
else 
  response.write("<br>การเรียกใช้งานไม่ถูกต้อง<br>")
  response.write("ตัวอย่างที่ถูกต้อง <a href=tb.asp?tumbon=a00&menu=m00>tb.asp?tumbon=a00&menu=m00</a>")  
end if
%>
<!--#include file="footer.asp"-->
</body></html>

<%
sub connectnews
  connect.close
  %><!--#include file="connectnews.asp"--><% 
end sub

sub displaynewsintb
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots > 0 then    
    i = 1  
    do while not rs.eof and i <= max
      response.write("<tr bgcolor=#dddddd><td>"&rs("showdate") & " :: <a href=displaynews.asp?niddtl="&rs("nid")&">")  
      response.write(rs("nshort")&"</a></td></tr>")
      rs.movenext
      i = i + 1
    loop
  else
    response.write("<br>ยังไม่มีข้อมูลในฐานข้อมูล")
  end if
end sub
%>
จำนวน : 119 บรรทัด
าษาเฮชทีเอ็มแอล (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) และใช้ในงานได้หลายประเภท ทั้งใช้ในการประมวลผลผ่านคอมมานด์ไลน์ หรือเป็นเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้โค้ดให้กับตัวแปลภาษา เพื่อทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปข้อความ เอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้ จุดที่แตกต่างกับภาษาอื่น คือ การรวบรวมจุดเด่นของแต่ละภาษามารวมเข้าด้วยกัน
อสคิวแอล (SQL = Structured Query Language) คือ ภาษาสอบถามข้อมูล หรือภาษาจัดการข้อมูลอย่างมีโครงสร้าง มีการพัฒนาภาษาคอมพิวเตอร์ และโปรแกรมฐานข้อมูลที่รองรับมากมาย เพราะจัดการข้อมูลได้ง่าย เช่น MySQL, MariaDB, MsSQL, PostgreSQL หรือ MS Access เป็นต้น สำหรับโปรแกรมฐานข้อมูลที่ได้รับความนิยมคือ MySQL หรือ MariaDB เป็น Open Source ที่ใช้งานได้ทั้งใน Linux และ Windows
วัสดีชาวโลก (Hello World) คือ ผลลัพธ์ครั้งแรกที่นักพัฒนาโปรแกรมนิยมเลือกใช้แสดงผลในโปรแกรมแรกที่เขียนขึ้นเพื่อทดสอบการทำงาน ข้อความนี้ทำให้นึกถึงมนุษย์ต่างดาวที่มาเยือนโลกและกล่าวกับมนุษย์เมื่อพบกันครั้งแรกในภาพยนตร์
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com