<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP & SQL Server Tutorial</title> </head> <body> <form action="ASPSQLServerEditRecordSave.asp?CusID=<%=Request.QueryString("CusID")%>" name="frmEdit" method="post"> <% Dim Conn,strSQL,objRec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;UID=sa;PWD=;" strSQL = "SELECT * FROM customer WHERE CustomerID = '"&Session("CusID")&"' " Set objRec = Conn.Execute(strSQL) If objRec.EOF Then Response.write("Not found CustomerID="&Request.QueryString("CusID")) Else %> <table width="600" border="1"> <tr> <th width="91"> <div align="center">CustomerID </div></th> <th width="160"> <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="70"> <div align="center">Budget </div></th> <th width="70"> <div align="center">Used </div></th> </tr> <tr> <td><div align="center"><input type="text" name="txtCustomerID" size="5" value="<%=objRec.Fields("CustomerID")%>"></div></td> <td><input type="text" name="txtName" size="20" value="<%=objRec.Fields("Name")%>"></td> <td><input type="text" name="txtEmail" size="20" value="<%=objRec.Fields("Email")%>"></td> <td><div align="center"><input type="text" name="txtCountryCode" size="2" value="<%=objRec.Fields("CountryCode")%>"></div></td> <td align="right"><input type="text" name="txtBudget" size="5" value="<%=objRec.Fields("Budget")%>"></td> <td align="right"><input type="text" name="txtUsed" size="5" value="<%=objRec.Fields("Used")%>"></td> </tr> </table> <input type="submit" name="submit" value="submit"> <% End IF objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </form> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง