<% Dim Conn Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("xxxxxxx.mdb"),"" , "" %>
<% Option Explicit %> <html> <head> <title>textilebook</title> </head> <body> <!--#include file="db1.asp"--> <% Dim strSQL,objRec strSQL = "SELECT * FROM xxxxxx" Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> <table width="1089" border="1" align="center" bordercolor="#FF6600"> <tr> <th width="136"> <div align="center" class="style2">ลำดับหนังสือ</div></th> <th width="365"> <div align="center" class="style2">ชื่อหนังสือ</div></th> <th width="262"> <div align="center" class="style2">ชื่อผู้แต่ง</div></th> <th width="298"> <div align="center" class="style2"><p>คำสำคัญ</p> </div></th> </tr> <% While Not objRec.EOF %> <tr> <td><div align="center"><%=objRec.Fields("idbook").Value%></div></td> <td><%=objRec.Fields("Title").Value%></td> <td><%=objRec.Fields("Authorname").Value%></td> <td><div align=""><%=objRec.Fields("keyword").Value%></div></td> </tr> <% objRec.MoveNext Wend %> </table> <% objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
Load balance : Server 03
