2010
01.13

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

Category: Programming & Designing / Tag:  / Add Comment

1. Ghi dòng text ra trang web

<html>
<body>

<%
response.write(“Hello World!”)
%>

</body>
</html>


2. Định dạng text kết hợp với các thẻ html

<html>
<body>
<%
response.write(“<h2>You can use HTML tags to format the text!</h2>”)
%>

<%
response.write(“<p style=’color:#0000ff’>This text is styled with the style attribute!</p>”)
%>
</body>
</html>

3. Định nghĩa biến trong Asp

<html>
<body>

<%
dim name
name=”Donald Duck”
response.write(“My name is: ” & name)
%>

</body>
</html>

4. Định nghĩa một dãy

<html>
<body>

<%
Dim famname(6),i
famname(1) = “Jan Egil”
famname(2) = “Tove”
famname(3) = “Hege”
famname(4) = “Stale”
famname(5) = “Kai Jim”
famname(6) = “Borge”

For i = 1 to 6
response.write(famname(i) & “<br />”)
Next
%>

</body>
</html>

5. Ví dụ về vòng lặp

<html>
<body>

<%
dim i
for i=1 to 6
response.write(“<h” & i & “>Header ” & i & “</h” & i & “>”)
next
%>

</body>
</html>

6. Câu lệnh If và hàm thời gian dạng đơn giản

<html>
<body>
<%
dim h
h=hour(now())

response.write(“<p>” & now())
response.write(” (Norwegian Time) </p>”)
If h<12 then
response.write(“Good Morning!”)
else
response.write(“Good day!”)
end if
%>
</body>
</html>

7. Sử dụng JavaScript (đối tượng Date trong JavaScript)

<%@ language=”javascript” %>
<html>
<body>
<%
var d=new Date()
var h=d.getHours()

Response.Write(“<p>”)
Response.Write(d + ” (Norwegian Time)”)
Response.Write(“</p>”)
if (h<12)
{
Response.Write(“Good Morning!”)
}
else
{
Response.Write(“Good day!”)
}
%>
</body>
</html>

8. Date và Time trong VbScript

<html>
<body>

Today’s date is: <%response.write(date())%>.
<br>
The server’s local time is: <%response.write(time())%>.

</body>
</html>

9. Tính số ngày, tháng, năm từ năm hiện tại cho đến năm 3000

<html>
<body>

<p>Countdown to year 3000:</p>

<p>
<%millennium=cdate(“1/1/3000 00:00:00″)%>

It is
<%response.write(DateDiff(“yyyy”, Now(), millennium))%>
years to year 3000!
<br>
It is
<%response.write(DateDiff(“m”, Now(), millennium))%>
months to year 3000!
<br>
It is
<%response.write(DateDiff(“ww”, Now(), millennium))%>
weeks to year 3000!
<br>
It is
<%response.write(DateDiff(“d”, Now(), millennium))%>
days to year 3000!
<br>
It is
<%response.write(DateDiff(“h”, Now(), millennium))%>
hours to year 3000!
<br>
It is
<%response.write(DateDiff(“n”, Now(), millennium))%>
minutes to year 3000!
<br>
It is
<%response.write(DateDiff(“s”, Now(), millennium))%>
seconds to year 3000!
</p>

</body>
</html>

10. Tìm ra 1 ngày cụ thể sau ngày hiện tại một số ngày nào đó (ví dụ 30 ngày)

<html>
<body>
<%
response.write(DateAdd(“d”,30,date()))
%>

<p>
Syntax for DateAdd: DateAdd(interval,number,date). You can use <b>DateAdd</b> to for example calculate a date 30 days from today.
</p>

</body>
</html>

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…

<html>
<body>

<%
response.write(FormatDateTime(date(),vbgeneraldate ))
response.write(“<br />”)
response.write(FormatDateTime(date(),vblongdate))
response.write(“<br />”)
response.write(FormatDateTime(date(),vbshortdate))
response.write(“<br />”)
response.write(FormatDateTime(now(),vblongtime))
response.write(“<br />”)
response.write(FormatDateTime(now(),vbshorttime))
%>

<p>
Syntax for FormatDateTime: FormatDateTime(date,namedformat).
</p>

</body>
</html>

12. Kiểm tra xem 1 hằng số dạng ngày có phải là ngày đúng không

<html>
<body>

<%
somedate=”10/30/99″
response.write(IsDate(somedate))
%>

</body>
</html>

13. Hàm chuyển đổi chữ thường và chữ hoa

<html>
<body>

<%
name = “Bill Gates”
response.write(ucase(name))
response.write(“<br>”)
response.write(lcase(name))
%>

</body>
</html>

14. Các hàm huỷ bỏ dấu cách khi làm việc với xâu ký tự

<html>
<body>

<%
name = ” W3Schools ”
response.write(“visit” & name & “now<br />”)
response.write(“visit” & trim(name) & “now<br />”)
response.write(“visit” & ltrim(name) & “now<br />”)
response.write(“visit” & rtrim(name) & “now”)
%>

</body>
</html>

15. Đảo ngược xâu

<html>
<body>
<%
sometext = “Hello Everyone!”
response.write(strReverse(sometext))
%>

</body>
</html>

16. Làm tròn số như thế nào?

<html>
<body>

<%
i = 48.66776677
j = 48.3333333
response.write(Round(i))
response.write(“<br>”)
response.write(Round(j))
%>

</body>
</html>

17. Tạo ra một số ngẫu nhiên

<html>
<body>

<%
randomize()
response.write(rnd())
%>

</body>
</html>

18. Trích xâu con từ một xâu đã cho

<html>
<body>

<%
sometext=”Welcome to this Web”
response.write(Left(sometext,5))
response.write(“<br>”)
response.write(Right(sometext,5))
%>

</body>
</html>

19. Thay thế một từ trong 1 câu

<html>
<body>

<%
sometext=”Welcome to this Web!!”
response.write(Replace(sometext, “Web”, “Page”))
%>

</body>
</html>

20. Trích một xâu con từ một xâu

<html>
<body>

<%
sometext=”Welcome to this Web!!”
response.write(Mid(sometext, 9, 2))
%>

</body>
</html>

21. Gọi thủ tục con viết theo kiểu VbScript khi lập trình ASP

<html>

<head>
<%
sub vbproc(num1,num2)
response.write(num1*num2)
end sub
%>
</head>

<body>
<p>
You can call a procedure like this:
</p>
<p>
Result: <%call vbproc(3,4)%>
</p>
<p>
Or, like this:
</p>
<p>
Result: <%vbproc 3,4%>
</p>
</body>

</html>

22. Gọi 1 thủ tục viết bằng JavaScript khi lập trình Asp

<%@ language=”javascript” %>
<html>
<head>
<%
function jsproc(num1,num2)
{
Response.Write(num1*num2)
}
%>
</head>

<body>
<p>
Result: <%jsproc(3,4)%>
</p>
</body>

</html>

23. Một sự so sánh giữa hai cách gọi chương trình con từ VbScript và JavaScript

<html>
<head>
<%
sub vbproc(num1,num2)
Response.Write(num1*num2)
end sub
%>
<script language=”javascript” runat=”server”>
function jsproc(num1,num2)
{
Response.Write(num1*num2)
}
</script>
</head>

<body>
<p>Result: <%call vbproc(3,4)%></p>
<p>Result: <%call jsproc(3,4)%></p>
</body>

</html>

24. Kiểm tra giá trị của một ô dữ liệu trên form

<html>
<body>
<form action=”demo_reqquery.asp” method=”get”>
Your name: <input type=”text” name=”fname” size=”20″ />
<input type=”submit” value=”Submit” />
</form>
<%
dim fname
fname=Request.QueryString(“fname”)
If fname<>”" Then
Response.Write(“Hello ” & fname & “!<br />”)
Response.Write(“How are you today?”)
End If
%>
</body>
</html>

25. Lấy giá trị từ form ra biến

<html>
<body>
<form action=”demo_simpleform.asp” method=”post”>
Your name: <input type=”text” name=”fname” size=”20″ />
<input type=”submit” value=”Submit” />
</form>
<%
dim fname
fname=Request.Form(“fname”)
If fname<>”" Then
Response.Write(“Hello ” & fname & “!<br />”)
Response.Write(“How are you today?”)
End If
%>
</body>
</html>

26. Tương tác với người dùng dùng trên form sử dụng Option radio

<html>
<%
dim cars
cars=Request.Form(“cars”)
%>
<body>
<form action=”demo_radiob.asp” method=”post”>
<p>Please select your favorite car:</p>

<input type=”radio” name=”cars”
<%if cars=”Volvo” then Response.Write(“checked”)%>
value=”Volvo”>Volvo</input>
<br />
<input type=”radio” name=”cars”
<%if cars=”Saab” then Response.Write(“checked”)%>
value=”Saab”>Saab</input>
<br />
<input type=”radio” name=”cars”
<%if cars=”BMW” then Response.Write(“checked”)%>
value=”BMW”>BMW</input>
<br /><br />
<input type=”submit” value=”Submit” />
</form>
<%
if cars<>”" then
Response.Write(“<p>Your favorite car is: ” & cars & “</p>”)
end if
%>
</body>
</html>

27. Sử dụng cookies để đếm số lần truy cập vào website

<html>
<body>
<%
dim numvisits
response.cookies(“NumVisits”).Expires=date+365
numvisits=request.cookies(“NumVisits”)

if numvisits=”" then
response.cookies(“NumVisits”)=1
response.write(“Welcome! This is the first time 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
response.write ” time before!”
else
response.write ” times before!”
end if
end if
%>

</body>
</html>

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

<%
if Request.Form(“select”)<>”" then
Response.Redirect(Request.Form(“select”))
end if
%>

<html>
<body>

<form action=”demo_redirect.asp” method=”post”>

<input type=”radio” name=”select”
value=”demo_server.asp”>
Server Example<br>

<input type=”radio” name=”select”
value=”demo_text.asp”>
Text Example<br><br>
<input type=”submit” value=”Go!”>

</form>

</body>
</html>

29. Xử lý thông tin của form ngay tại form

<html>
<body>
<form action=”demo_reqquery.asp” method=”get”>
Your name: <input type=”text” name=”fname” size=”20″ />
<input type=”submit” value=”Submit” />
</form>
<%
dim fname
fname=Request.QueryString(“fname”)
If fname<>”" Then
Response.Write(“Hello ” & fname & “!<br />”)
Response.Write(“How are you today?”)
End If
%>
</body>
</html>

30. Lấy thông tin từ máy chủ

<html>
<body>
<p>
<b>You are browsing this site with:</b>
<%Response.Write(Request.ServerVariables(“http_use r_agent”))%>
</p>
<p>
<b>Your IP address is:</b>
<%Response.Write(Request.ServerVariables(“remote_a ddr”))%>
</p>
<p>
<b>The DNS lookup of the IP address is:</b>
<%Response.Write(Request.ServerVariables(“remote_h ost”))%>
</p>
<p>
<b>The method used to call the page:</b>
<%Response.Write(Request.ServerVariables(“request_ method”))%>
</p>
<p>
<b>The server’s domain name:</b>
<%Response.Write(Request.ServerVariables(“server_n ame”))%>
</p>
<p>
<b>The server’s port:</b>
<%Response.Write(Request.ServerVariables(“server_p ort”))%>
</p>
<p>
<b>The server’s software:</b>
<%Response.Write(Request.ServerVariables(“server_s oftware”))%>
</p>

</body>
</html>

31. Lấy thông tin từ máy chủ (All possible server variables)

<html>
<body>

<p>
All possible server variables:
</p>
<%
For Each Item in Request.ServerVariables
Response.Write(Item & “<br />”)
Next
%>

</body>
</html>

32. Kiểm tra xem bạn đăng nhập trang web lần đầu tiên hay bao nhiêu?

<%
dim numvisits
response.cookies(“NumVisits”).Expires=date+365
numvisits=request.cookies(“NumVisits”)

if numvisits=”" then
response.cookies(“NumVisits”)=1
response.write(“Welcome! This is the first time 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
response.write ” time before!”
else
response.write ” times before!”
end if
end if
%>
<html>
<body>
</body>
</html>

33. Kiểm tra xem bạn gửi 1 thông tin đến máy chủ hết bao nhiêu bộ nhớ (đơn vị tính bytes)

<html>
<body>

<form action=”demo_totalbytes.asp” method=”post”>
Please type something:
<input type=”text” name=”txt”><br><br>
<input type=”submit” value=”Submit”>
</form>

<%
If Request.Form(“txt”)<>”" Then
Response.Write(“You submitted: “)
Response.Write(Request.Form)
Response.Write(“<br><br>”)
Response.Write(“Total bytes: “)
Response.Write(Request.Totalbytes)
End If
%>

</body>
</html>

34. Kiểm tra xem 1 file nào đó bị thay đổi lần cuối là khi nào?

<html>
<body>

<%
Set fs = Server.CreateObject(“Scripting.FileSystemObject”)
Set rs = fs.GetFile(Server.MapPath(“demo_lastmodified.asp”) )
modified = rs.DateLastModified
%>
This file was last modified on: <%response.write(modified)
Set rs = Nothing
Set fs = Nothing
%>

</body>
</html>

35. Mở 1 file text để đọc nội dung

<html>
<body>

<%
Set FS = Server.CreateObject(“Scripting.FileSystemObject”)
Set RS = FS.OpenTextFile(Server.MapPath(“text”) & “\TextFile.txt”,1)
While not rs.AtEndOfStream
Response.Write RS.ReadLine
Response.Write(“<br />”)
Wend
%>

<p>
<a href=”text/textfile.txt”><img border=”0″ src=”/images/btn_view_text.gif”></a>
</p>

</body>
</html>

36. Kiểm tra xem 1 file nào đó được mở ra bao nhiêu lần

<%
Set FS=Server.CreateObject(“Scripting.FileSystemObject “)
Set RS=FS.OpenTextFile(Server.MapPath(“counter.txt”), 1, False)
fcount=RS.ReadLine
RS.Close

fcount=fcount+1

‘This code is disabled due to the write access security on our server:
‘Set RS=FS.OpenTextFile(Server.MapPath(“counter.txt”), 2, False)
‘RS.Write fcount
‘RS.Close

Set RS=Nothing
Set FS=Nothing

%>
<html>
<body>
<p>
This page has been visited <%=fcount%> times.
</p>
</body>
</html>

37. Kiểm tra xem 1 tên file nào đó kể cả đường dẫn có tồn tại hay không?

<html>
<body>

<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

If (fs.FileExists(“c:\winnt\cursors\3dgarro.cur”))=tr ue Then
Response.Write(“File c:\winnt\cursors\3dgarro.cur exists.”)
Else
Response.Write(“File c:\winnt\cursors\3dgarro.cur does not exist.”)
End If

set fs=nothing
%>

</body>
</html>

38. Kiểm tra xem 1 thư mục nào đó có tồn tại thực sự hay không?

<html>
<body>
<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

If fs.FolderExists(“c:\temp”) = true Then
Response.Write(“Folder c:\temp exists.”)
Else
Response.Write(“Folder c:\temp does not exist.”)
End If

set fs=nothing
%>

</body>
</html>

39. Kiểm tra xem 1 ổ đĩa có tồn tại hay không?

<html>
<body>
<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

if fs.driveexists(“c:”) = true then
Response.Write(“Drive c: exists.”)
Else
Response.Write(“Drive c: does not exist.”)
End If

Response.write(“<br>”)

if fs.driveexists(“g:”) = true then
Response.Write(“Drive g: exists.”)
Else
Response.Write(“Drive g: does not exist.”)
End If

set fs=nothing
%>

</body>
</html>

40. Lấy ra tên thư mục của đường dẫn đã cho

<html>
<body>

<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)
p=fs.GetParentFolderName(“c:\winnt\cursors\3dgarro .cur”)

Response.Write(“The parent folder name of c:\winnt\cursors\3dgarro.cur is: ” & p)

set fs=nothing
%>

</body>
</html>

41. Lấy ra phần mở rộng của 1 tên file

<html>
<body>

<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

Response.Write(“The file extension of the file 3dgarro is: “)
Response.Write(fs.GetExtensionName(“c:\winnt\curso rs\3dgarro.cur”))

set fs=nothing
%>

</body>
</html>

42. Mở và đọc 1 file Text

<html>
<body>
<p>This is the text in the text file:</p>
<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

Set f=fs.OpenTextFile(Server.MapPath(“testread.txt”), 1)
Response.Write(f.ReadAll)
f.Close

Set f=Nothing
Set fs=Nothing
%>
</body>
</html>

43.Lấy ra mấy ký tự từ 1 file text

<html>
<body>
<p>This is the first five characters from the text file:</p>

<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

Set f=fs.OpenTextFile(Server.MapPath(“testread.txt”), 1)
Response.Write(f.Read(5))
f.Close

Set f=Nothing
Set fs=Nothing
%>

</body>
</html>

44.Đọc ra 1 dòng của 1 file text

<html>
<body>
<p>This is the first line of the text file:</p>

<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

Set f=fs.OpenTextFile(Server.MapPath(“testread.txt”), 1)
Response.Write(f.ReadLine)
f.Close

Set f=Nothing
Set fs=Nothing
%>

</body>
</html>

45. Đọc tất cả các dòng của 1 file Text

<html>
<body>
<p>This is all the lines in the text file:</p>

<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)
Set f=fs.OpenTextFile(Server.MapPath(“testread.txt”), 1)

do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write(“<br>”)
loop

f.Close
Set f=Nothing
Set fs=Nothing
%>

</body>
</html>

46. Bỏ qua 1 phần nào đó của file Text

<html>
<body>
<p>The first four characters in the text file are skipped:</p>

<%
Set fs=Server.CreateObject(“Scripting.FileSystemObject “)

Set f=fs.OpenTextFile(Server.MapPath(“testread.txt”), 1)
f.Skip(4)
Response.Write(f.ReadAll)
f.Close

Set f=Nothing
Set fs=Nothing
%>

47. File được tạo ra lúc nào

<html>
<body>

<%
dim fs, f
set fs=Server.CreateObject(“Scripting.FileSystemObject “)
set f=fs.GetFile(Server.MapPath(“testread.txt”))
Response.Write(“The file testread.txt was created on: ” & f.DateCreated)
set f=nothing
set fs=nothing
%>

</body>
</html>

No Comment.

Add Your Comment

Your Comment