<html> <head> <title>ThaiCreate.Com ASP & MySQL Tutorial</title> </head> <body> <script language="JavaScript"> function onDelete() { if(confirm('Do you want to delete ?')==true) { return true; } else { return false; } } </script> <form name="frmMain" action="AspMySQLMultiDeleteRecord.asp" method="post" OnSubmit="return onDelete();"> <% Dim Conn,strSQL,objRec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _ "pwd=root;database=mydatabase;option=16384;" strSQL = "SELECT * FROM customer " Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> <table width="600" border="1"> <tr> <th width="91"> <div align="center">CustomerID </div></th> <th width="98"> <div align="center">Name </div></th> <th width="198"> <div align="center">Email </div></th> <th width="97"> <div align="center">CountryCode </div></th> <th width="59"> <div align="center">Budget </div></th> <th width="71"> <div align="center">Used </div></th> <th width="30"> <div align="center">Delete </div></th> </tr> <% While Not objRec.EOF %> <tr> <td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td> <td><%=objRec.Fields("Name").Value%></td> <td><%=objRec.Fields("Email").Value%></td> <td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td> <td align="right"><%=objRec.Fields("Budget").Value%></td> <td align="right"><%=objRec.Fields("Used").Value%></td> <td align="center"><input type="checkbox" name="chkDel" value="<%=objRec.Fields("CustomerID").Value%>"></td> </tr> <% objRec.MoveNext Wend %> </table> <% objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> <input type="submit" name="btnDelete" value="Delete"> </form> </body> </html>
<html> <head> <title>ThaiCreate.Com ASP & MySQL Tutorial</title> </head> <body> <% Dim Conn,strSQL,objExec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _ "pwd=root;database=mydatabase;option=16384;" For Each chkVol in Request.Form("chkDel") strSQL = "" strSQL = strSQL&"DELETE FROM customer " strSQL = strSQL&"WHERE CustomerID = '"&chkVol&"' " Set objExec = Conn.Execute(strSQL) Next Response.write("Record Deleted.") Conn.Close() Set objExec = Nothing Set Conn = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 03
