<% PageSize=50 'กำหนดการแสดงผลต่อ 1 หน้า if Request.QueryString("PageNo")="" then PageNo=1 else PageNo=Request.QueryString("PageNo") end if %> <meta http-equiv="Content-Type" content="text/html; charset=windows-874"><title>PageDiv</title> การแบ่งหน้าของฐานข้อมูล <hr> <% ConnString = "PROVIDER=SQLOLEDB;DATA SOURCE=10.3.57.102;INITIAL CATALOG=Ecom;USER ID=sa;PASSWORD=password;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnString SQL="Select * from ecomuse where TIN<>' ' order by TIN ASC" Set Rs=Server.CreateObject("Adodb.RecordSet") Rs.Open SQL, Conn, 3,1 Rs.PageSize=PageSize PageCount=Rs.PageCount Rs.AbsolutePage=PageNo nID=1 Do while not Rs.Eof and nID<=PageSize %> <% =Rs("tin") %> : <% =Rs("name") %><BR> <% nID=nID+1 Rs.MoveNext Loop Rs.Close Conn.Close %> <hr> การระบุหมายเลขหน้า <hr> | <% For i=1 to PageCount %> <a href="PageDIV.asp?PageNo=<% =i %>"><% =i %></A> | <% next %>
SQL="Select DISTINCT * from ecomuse where TIN<>' ' order by TIN ASC"
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง