50 bài tập ASP cho người mới bắt đầu

Chia sẻ: Nguyen Phuc | Ngày: | Loại File: DOC | Số trang:11

Thêm vào BST

Báo xấu

345
lượt xem 89
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Bộ bài tập ASP cơ bản, gồm 50 bài, từng bước từng bước, tương đối dễ học. Mong các bạn sưu tầm tiếp và cập nhật thêm, để bộ sưu tập này nhiều lên và hữu ích hơn.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: 50 bài tập ASP cho người mới bắt đầu

50 bài tập ASP cho người mới bắt đầu Bộ bài tập ASP cơ bản, gồm 50 bài, t ừng bước t ừng b ước, t ương đ ối dễ h ọc. Mong các b ạn s ưu t ầm ti ếp và cập nhật thêm, để bộ sưu tập này nhiều lên và hữu ích hơn. --------------------------- Băng qua việc cài đặt trình IIS trong WINDOWS, tạo thư mục ViduASP và so ạn th ảo các bài t ập vào đó, Share thư mục ViduASP thành WEB bằng cách chọn WebSharing. Cuối cùng có th ể ch ạy b ằng đ ịa ch ỉ trên Address của IE là http://localhost/viduAsp/tenfile.asp Phần I: ASP cơ bản 5. Ví dụ về vòng lặp 2. Định dạng text kết hợp với các thẻ html 6. Câu lệnh If và hàm thời gian dạng đơn giản response.write(" (Norwegian Time) ") If h trong JavaScript) 4. Định nghĩa một dãy %>
Today's date is: . Syntax for DateAdd: DateAdd(interval,number,date). You can use The server's local time is: < DateAdd to for example calculate a date %response.write(time())%>. 30 days from today. 9. Tính số ngày, tháng, năm từ năm hiện tại cho đến năm 3000 11. Định dạng ngày tháng theo các dạng khác nhau. Ví dụ này rất cần cho các ứng dụng web xử lý ngày tháng như ngày sinh, ngày thi, ngày lên lương… Countdown to year 3000: It is response.write(FormatDateTime(date(),vbshortdat months to year 3000! e)) response.write("") It is response.write(FormatDateTime(now(),vblongtime response.write("") weeks to year 3000! response.write(FormatDateTime(now(),vbshorttim e)) It is %> Syntax for FormatDateTime: days to year 3000! FormatDateTime(date,namedformat). It is 12. Kiểm tra xem 1 hằng số dạng ngày có hours to year 3000! phải là 1ngày đúng không. It is seconds to year 3000! Các hàm về xâu ký tự 13. Hàm chuyển đổi chữ thường ßà chữ hoa 10. Tìm ra 1 ngày cụ thể sau ngày hiện tại
response.write("") response.write("") response.write(lcase(name)) response.write(Right(sometext,5)) %> %> 14. Các hàm huỷ bỏ dấu cách khi làm việc với 19. Thay thế một từ trong 1 câu xâu ký tự response.write("visit" & ltrim(name) & "now") response.write("visit" & rtrim(name) & "now") %> 20. Trích một xâu con từ một xâu 15. Đảo ngược xâu Các lệnh liên quan đến thủ tục chương trình con 16. Làm tròn số như thế nào? 21. Gọi thủ tục con viết theo kiểu VbScript khi lập trình ASP %> You can call a procedure like this: 17. Tạo ra một số ngẫu nhiên Result: Result: 18. Trích xâu con từ một xâu đã cho 22. Gọi 1 thủ tục viết bằng JavaScript khi lập
25. Lấy giá trị từ form ra biến trình con từ VbScript và JavaScript 26. Tương tác với người dùng dùng trên form { Response.Write(num1*num2) } Please select your favorite car: Volvo Result: Saab 24. Kiểm tra giá trị của một ô dữ liệu trên form Your name: Response.Write("Hello " & fname & "!") Response.Write("How are you today?") End If 27. Sử dụng cookies để đếm số lần truy cập %> vào website
if numvisits="" then response.cookies("NumVisits")=1 response.write("Welcome! This is the first time 30. Lấy thông tin từ máy chủ you are visiting this Web page.") else response.cookies("NumVisits")=numvisits+1 response.write("You have visited this ") response.write("Web page " & numvisits) if numvisits=1 then You are browsing this site with: response.write " time before!" < else %Response.Write(Request.ServerVariables("http_ response.write " times before!" user_agent"))%> end if end if %> Your IP address is: < %Response.Write(Request.ServerVariables("remo te_addr"))%> 28. Hướng người dùng đến các form khác nhau khi người dùng lựa chọn hướng sử dụng The DNS lookup of the IP address is: end if %> The method used to call the page: < %Response.Write(Request.ServerVariables("requ er_name"))%> Text Example The server's port: < %Response.Write(Request.ServerVariables("serv er_port"))%> 29. Xử lý thông tin của form ngay tại form The server's software: < Your name:
Response.Write(Request.Totalbytes) End If %> All possible server variables: response.cookies("NumVisits")=numvisits+1 response.write("You have visited this ") response.write("Web page " & numvisits) if numvisits=1 then response.write " time before!" 35. Mở 1 file text để đọc nội dung else response.write " times before!" end if end if %> Please type something:
Set FS=Server.CreateObject("Scripting.FileSystemObj ect") Set không?
p=fs.GetParentFolderName("c:\winnt\cursors\3dga rro.cur") f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.Read(5)) f.Close 41. Lấy ra phần mở rộng của 1 tên file Set f=Nothing Set fs=Nothing %>
DSNStatement = DSNStatement & f.Close Server.MapPath("/t36/database/thanhvien.mdb") Set f=Nothing Conn.Open DSNStatement Set fs=Nothing %> %> 2. Duyệt dữ liệu 46. Bỏ qua 1 phần nào đó của file Text The first four characters in the text file are
thu="Thứ Hai" rs.movefirst case 3 thu="Thứ Ba" Response.Write "" & "" & "" & "Danh sách các câu hỏi thảo luận" case 4 thu="Thứ Tư" & "" & "" & "" kt=0 case 5 thu="Thứ Năm" Response.Write "" Do while not rs.eof case 6 thu="Thứ Sáu" Response.write "" if kt=1 then case 7 thu="Thứ Bảy" Response.write "" kt=0 end Select else ngay=day(date()) Response.write "" thang=month(date()) kt=1 nam=year(date()) end if Response.write "" Response.write "" & "Nguoi gui :" & "" & rs("FromUser") & "" Response.write "Thời gian :" & rs("ngay") & " - " & rs("thoigian") & "" Response.write "Chủ đề :" & rs("Loai") & "" Response.write "Nội dung :" & rs("NoiDung") & "" Response.write "" Response.write "" Response.write "" rs.moveNext Loop Response.write "" %>   3. Sửa dữ liệu
Response.Write Thu & ", Ngày: " & cstr(ngay) & " Tháng " & cstr(thang) & " Nam " & cstr(Nam) & "" & "" %>