<% '*** By Weerachai Nukitram ***' '*** http://www.ThaiCreate.Com ***' Option Explicit %> <html> <head> <title>ThaiCreate.Com Multiple Column</title> </head> <body> <div align="center"> <% Dim Conn,strSQL,objRec,intRows Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , "" Response.Write("<table border='0' cellspacing='1' cellpadding='1'><tr>") strSQL = "SELECT * FROM gallery " Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 intRows = 0 While Not objRec.EOF intRows = intRows + 1 Response.Write("<td>") %> <table width="91" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="center"><a href="gallery/<%=objRec.Fields("Picture").Value%>" target="_blank"><img src="gallery/<%=objRec.Fields("Thumbnails").Value%>" width="70" height="53" border="0"></a></div></td> </tr> <tr> <td><div align="center"><%=objRec.Fields("GalleryName").Value%></div></td> </tr> </table> <% Response.Write("</td>") If intRows Mod 2 = 0 Then Response.Write("</tr>") Else Response.Write("<td>") End IF objRec.MoveNext Wend Response.Write("</tr></table>") objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </div> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
Load balance : Server 03
Load balance : Server 03
