<% Option Explicit %> <html> <body> <% Dim Conn,strSQL,objRec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , "" strSQL = "SELECT * FROM user " Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> <table width="286" border="1"> <tr> <th width="81"> <div align="center"><img src="loginadmin/images/i6.gif" width="53" height="23"></div></th> <th width="354" valign="middle" ><img src="loginadmin/images/i1.gif" width="76" height="23"></th> <th width="283" valign="middle" ><img src="loginadmin/images/i2.gif" width="71" height="23"></th> <th width="91"><img src="loginadmin/images/i3.gif" width="46" height="23" /></th> <th width="81"><img src="loginadmin/images/i4.gif" width="25" height="23"></th> <th width="84"><img src="loginadmin/images/i5.gif" width="33" height="23"></th> </tr> <% Dim i Dim BgColor While Not objRec.EOF If i Mod 1 = 0 Then BgColor="#CCCCCC" Else BgColor="#CC00CC" End IF %> <tr bgcolor="<%=BgColor%>"> <td><div align="center"><%=objRec.Fields("UserID").Value%></div></td> <td> <%=objRec.Fields("UserName").Value%></td> <td> <%=objRec.Fields("Password").Value%></td> <td><a href="useredit.asp?CusID=<%=objRec.Fields("UserID").Value%>"><img src="editdata/b/edit1.gif" alt="แก้ไข" width="33" height="32" border="0"></a></td> <td><a href="deleteuser.asp?CusID=<%=objRec.Fields("UserID").Value%>"><img src="editdata/b/delete1.gif" alt="ลบ" width="33" height="32" border="0"></a></td> <td><a href="adduser.asp"><img src="editdata/b/add.gif" alt="เพิ่มผู้ใช้" width="33" height="32" border="0"></a></td> </tr> <% objRec.MoveNext Wend %> </table> </body> </html>
i = i + 1 objRec.MoveNext Wend
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
Load balance : Server 03
