การสร้าง Table แบบ dynamic

การสร้าง Table แบบ dynamic





<%
Option Explicit
Dim row,numTD
Dim iLoop,kLoop

CONST allData = 19 'จำนวนข้อมูล
CONST column = 2  'จำนวน หลัก
row = 0
numTD = 0

If allData mod column > 0 Then
row = (allData/column)+1
Else
row = allData/column
End if

Response.Write ""

For iLoop = 1 To row
Response.Write "
"
For kLoop = 1 To column
numTD = numTD+1

Response.Write "
"
Next
Response.Write "
"
Next

Response.Write "
"
 
If numTD > allData Then
Response.wRite " "
Else
Response.Write numTD
End if

Response.Write "
"
 
%>

 


 


ฝากติดตามผลงานด้านล่างด้วยครับ
--------------------------
► Website : https://www.siamfocus.com/
► LINE@ : https://line.me/ti/p/@siamfocus.com
► Facebook : https://www.facebook.com/fanpage.siamfocus
► Twitter : https://twitter.com/siamfocus
► Google+ : https://plus.google.com/+TAAMSiAMFOCUS
► Instagram : https://www.instagram.com/iamtaam
--------------------------










บทความ แนะนำ

ทำเว็บหน้าเดียว

ทำเว็บหน้าเดียว

ช่วงอาทิตย์ที่ผ่านมา มีผู้ที่สนใจทำเว็บได้โทรเข้ามาสอบถามมากมาย โดย 60% ที่โทรมา มักจะเริ่มต้นด้วยคำ...

ลงทุนอะไรดี

ลงทุนอะไรดี

คำถามที่ว่า ลงทุนทำอะไรดี เป็นคำถามของคน 2 แบบ แบบแรก คือต้องการมีรายได้เพิ่มขึ้น  อีกแบบ...

การสร้าง Facebook App

การสร้าง Facebook App

การสร้าง Facebook App โดยโจทย์วันนี้สร้างไว้สำหรับใช้ ในการใช้ Facebook ตรวจสอบตัวตนนะครับ เช่นไว้ใช...




หมวดหมู่บทความ