<% Dim strSQL,objExec Set ConnDBF = Server.CreateObject("ADODB.connection") ConnStr= "Driver=Microsoft Visual Foxpro Driver; " + _ "UID=;SourceType=DBC;SourceDB=C:\Data.DBC" ConnDBF.Open ConnStr ,1,3 strSQL = "" strSQL = strSQL &"INSERT INTO employee " strSQL = strSQL &"(SM_Name,SM_SName) " strSQL = strSQL &"VALUES " strSQL = strSQL &"('"&Request.Form("txtSM_CODEs")&"','"Request.Form("txtSM_Name")&"', '"&Request.Form("txtSM_SName")&"') " Set objExec = ConnDBF.Execute(strSQL) If Err.Number = 0 Then Response.write("Save Done.") Else Response.write("Error Save ["&strSQL&"] ("&Err.Description&")") End If ConnDBF.Close() Set objExec = Nothing Set ConnDBF = Nothing %>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง