Tài liệu tham khảo code lập trình về Số bài viết trung bình mỗi ngày, nút music - flash | Bài 9 Số bài viết trung bình mỗi ngày Tác giả Phan Hồng Phúc phucorcl@ 1. Mở file . Tìm dòng code vbCrLf br strTxtPosts IngAuthorNumOfPosts . Thay thế bằng br strTxtPosts IngAuthorNumOfPosts If IngAuthorNumOfPosts 0 AND DateDiff d dtmAuthorRegistration Now 0 Then FormatNumber lngAuthorNumOfPosts DateDiff d dtmAuthorRegistration Now 2 strTxtPostsPerDay Bài 10 Kinh nghiệm Tác giả Phan Hồng Phúc phucorcl@ 1. Mở file . Tìm dòng code Dim strSex Hold the sex of member . Thêm xuống dưới Dim lngExp lngAuthorNumOfPostsExp rsPostExp lngAuthorNumOfPostsExp 0 Set rsPostExp strSQL SELECT strDbTable strSQL strSQL FROM strDbTable Author Set the cursor type property of the record set to dynamic so we can naviagate through the record set 1 Query the database strSQL adoCon Do While NOT IngAuthorNumOfPostsExp IngAuthorNumOfPostsExp CLng rsPostExp No_of_posts Loop Set rsPostExp Nothing . Tìm dòng code br strTxtPosts IngAuthorNumOfPosts If IngAuthorNumOfPosts 0 AND DateDiff d dtmAuthorRegistration Now 0 Then FormatNumber lngAuthorNumOfPosts DateDiff d dtmAuthorRegistration Now 2 strTxtPostsPerDay . Thêm xuống dưới br strTxtExp IngExp FormatPercent lngAuthorNumOfPosts lngAuthorNumOfPostsExp 2 img src strlmagePath width CInt Replace CStr lngExp 1 -1 1 2 height 11 align middle lngExp Bài 11 Nút Music - Flash Tác giả Phan Hồng Phúc phucorcl@ 1. Tạo file trong thư mục RTE_configuration có nội dung Add by flash music real math by congmanh1981@ function paste_embed type var url prompt Enter url http if url url http url null var emwidth prompt Width 300 var emheight prompt height 300 if type flash url FLASH WIDTH emwidth HEIGHT emheight url FLASH
