<%response.buffer=true%>
Chuong Trinh TEST
<%
dem=A
MyNumber = AscW("tim")
%>
<%
=MyNumber
%>
<%
ntn=date()
ngay=Day(ntn)
thang=Month(ntn)
nam=Year(ntn)
%>
Ngày : <%=ngay%> ,
Tháng : <%=thang%> ,
Năm : <%=nam%>
<%
gpg=time()
gio=Hour(gpg)
phut=Minute(gpg)
gay=Second(gpg)
%>
<%=gpg%>
<%=gio%>
<%=phut%>
<%=gay%><%
Randomize
MyValue = Int((10 * Rnd) + 100)
%>
<%=MyValue%>
<%
dn="viet nam"
u=UCase(dn)
%>
<%=dn%>
<%=u%>
<%
bb="cong hoa xa hoi chu nghia viet nam"
dem=len(bb)
%>
Chuổi "CONG HOA XA HOI CHU NGHIA VIET NAM"
Có : <%=dem%> ký Tự
Đảo Chuổi Ví Dụ : "ABCDEF"
<%
chuoi="ABCDEF"
dao=StrReverse(chuoi)
dao1=StrReverse(bb)
%>
Sau Khi Chuyển :<%=dao%>
<%=dao1%>