Dim strDateAdd strDateAdd = date(d-m-Y,strtotime("-3 day")) If objSelect.Fields("d_post").Value >= strDateAdd Then w = Response.write()//img Else End If
<% strDateAdd = DateAdd("d",3,Date()) If objSelect.Fields("d_post").Value >= strDateAdd Then w = "<img src='../icon/new.gif'>" Else w = "b" End If %>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง