>n %>()," ") ngaygui=chuanngay(today(0)) homnay = ngaygui & " " & today(1) & " " & today(2) End Function Function checkNotice(username) dim rsF,dangnhaplancuoi,tinnhan, thongbao thongbao = "" dangnhaplancuoi = GetValue("tblThanhVien","dangnhaplancuoi","tendangnhap='"&username&"'") tinnhan = count_max("tblTinNhan","id","(nguoinhan='"&username&"' or nguoinhan='"&all&"') and ngaygui>#"&dangnhaplancuoi&"#") if tinnhan>0 then thongbao = thongbao & "Co " &tinnhan& " tin nhan moi tu Admin Shop\r\n" session("tinnhan")=tinnhan end if checkNotice = thongbao End Function Function FormatDescription(txtDescription) dim txtDes,pos txtDes = txtDescription if txtDes<>"" then txtDes=replace(txtDes,vbCrLf,"") txtDes=replace(txtDes,"""","") txtDes=replace(txtDes," "," ") txtDes=replace(txtDes," "," ") if len(txtDes)>250 then pos = InStr(250,txtDes," ") if pos>=250 then txtDes = left(txtDes,pos-1) end if end if FormatDescription = txtDes End Function %>uoi","tendangnhap='"&username&"'") tinnhan = count_max("tblTinNhan","id","(nguoinhan='"&username&"' or nguoinhan='"&all&"') and ngaygui>#"&dangnhaplancuoi&"#") if tinnhan>0 then thongbao = thongbao & "Co " &tinnhan& " tin nhan moi tu Admin Shop\r\n" session("tinnhan")=tinnhan end if checkNotice = thongbao End Function Function FormatDescription(txtDescription) dim txtDes,pos txtDes = txtDescription if txtDes<>"" then txtDes=replace(txtDes,vbCrLf,"") txtDes=replace(txtDes,"""","") txtDes=replace(txtDes," "," ") txtDes=replace(txtDes," "," ") if len(txtDes)>250 then pos = InStr(250,txtDes," ") if pos>=250 then txtDes = left(txtDes,pos-1) end if end if FormatDescription = txtDes End Function %>
Đăng lúc 23:49 ngày 16/06/2014 | Lượt xem 1961
Có thể bạn đã cảm thấy mình là “tay lái lụa”, nắm vững các kỹ thuật điều khiển xe. Vậy bạn thử kiểm tra xem câu trả lời của mình có giống với câu trả lời của những người vượt hàng trăm nghìn km mà chưa từng xảy ra tai nạn không?
Các tin mới hơn:
Các tin cũ hơn: