<% Option Explicit %> <html> <head> </head> <body> <% 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 account_num " Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> <table width="600" border="1"> <tr> <th width="91"> <div align="center">Pass_income </div></th> <th width="98"> </th> </tr> <% While Not objRec.EOF %> <tr> <form action="Add.asp?ID_=<%=objRec("ID")%>" method="post" id="frm<%=objRec("ID")%>" name="frn<%=objRec("ID")%>"> <td><input name="txtPass_income" type="text" value="<%=objRec.Fields("Pass_income").Value%>"></td> <td><input name="submit" type="submit" value="Submit" /></td> </form> </tr> <% objRec.MoveNext Wend %> </table> <% objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </body> </html>
<% Option Explicit %> <html> <head> </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;" strSQL = "" strSQL = strSQL &"INSERT INTO income " strSQL = strSQL &"(ID,Pass_income) " strSQL = strSQL &"VALUES " strSQL = strSQL &"("&Request("ID_")&", '"&Request.Form("txtPass_income")&"') " Set objExec = Conn.Execute(strSQL) If Err.Number = 0 Then Response.write("Save Done.") Else Response.write("Error Save ["&strSQL&"] ("&Err.Description&")") End If Conn.Close() Set objExec = Nothing Set Conn = Nothing %> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
