<% Option Explicit %> <html> <head> <title></title> <meta http-equiv="refresh" content="1;url=time.asp"> </head> <body> <% Dim Conn,strSQL,objExec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "Driver={SQL Server};Server=localhost;Database=account;UID=sa;PWD=;" strSQL = "UPDATE TBL_ACCOUNT SET " strSQL = strSQL&"fld_time =????" strSQL = strSQL&"WHERE FLD_ONLINE =1 " Set objExec = Conn.Execute(strSQL) If Err.Number = 0 Then Response.write("Update time.") Else Response.write("Error Save ["&strSQL&"] ("&Err.Description&")") End IF Conn.Close() Set objExec = Nothing Set Conn = Nothing %> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง