01.<html>
02.<head>
03.<title>ThaiCreate.Com ASP & Oracle Tutorial</title>
04.</head>
05.<body>
06.<script language="JavaScript">
07. function onDelete()
08. {
09. if(confirm(
10. {
11. return true;
12. }
13. else
14. {
15. return false;
16. }
17. }
18.</script>
19.<form name="frmMain" action="AspOracleMultiDeleteRecord.asp" method="post" OnSubmit="return onDelete();">
20.<%
21. Dim Conn,strSQL,objRec
22. Set Conn = Server.Createobject("ADODB.Connection")
23. Conn.Open "Driver={Oracle in OraHome92};DBQ=TCDB;UID=myuser;PWD=mypassword;"
24. strSQL = "SELECT * FROM customer "
25. Set objRec = Server.CreateObject("ADODB.Recordset")
26. objRec.Open strSQL, Conn, 1,3
27.%>
28.<table width="600" border="1">
29. <tr>
30. <th width="91"> <div align="center">CustomerID </div></th>
31. <th width="98"> <div align="center">Name </div></th>
32. <th width="198"> <div align="center">Email </div></th>
33. <th width="97"> <div align="center">CountryCode </div></th>
34. <th width="59"> <div align="center">Budget </div></th>
35. <th width="71"> <div align="center">Used </div></th>
36. <th width="30"> <div align="center">Delete </div></th>
37. </tr>
38.<%
39. While Not objRec.EOF
40.%>
41. <tr>
42. <td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
43. <td><%=objRec.Fields("Name").Value%></td>
44. <td><%=objRec.Fields("Email").Value%></td>
45. <td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
46. <td align="right"><%=objRec.Fields("Budget").Value%></td>
47. <td align="right"><%=objRec.Fields("Used").Value%></td>
48. <td align="center"><input type="checkbox" name="chkDel" value="<%=objRec.Fields("CustomerID").Value%>"></td>
49. </tr>
50.<%
51. objRec.MoveNext
52. Wend
53.%>
54.</table>
55.<%
56. objRec.Close()
57. Conn.Close()
58. Set objRec = Nothing
59. Set Conn = Nothing
60.%>
61.<input type="submit" name="btnDelete" value="Delete">
62.</form>
63.</body>
64.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
