 |
|
|
<%
'Ne^'u so^' hi`nh trong folder hinhnhanqua lo*'n ho*n 200 thi` phai khai ma?ng hinhnqn(200) lo*'n ho*n
Dim hnq_i, hnq_j, sohinhrad, sodem, sohinh, hinhnqn (200), hinhnqnrad (12), rootpathmoi
sohinh = 12
rootpathmoi = server.mappath("/")
thumuc = rootpathmoi & "\quatang\hinhnhanqua\"
sub_xfd_XemFolder thumuc
Randomize()
so_rad = Int( (sodem - 1 + 1) * Rnd + 1 )
hinhnqnrad(1) = hinhnqn(so_rad)
For hnq_j = 2 to sohinh
coroi = 1 ' tru*o*`ng ho*.p tru`ng hi`nh khi random
Do Until coroi = 0
so_rad = Int( (sodem - 1 + 1) * Rnd + 1 )
For hnq_i = 1 to hnq_j - 1
If hinhnqnrad(hnq_i) = hinhnqn(so_rad) Then
coroi = 1
Exit For
Else
coroi = 0
End If
Next
Loop
hinhnqnrad(hnq_j) = hinhnqn(so_rad)
Next
gioithieu = ""
gioithieu = "
VietShare Xin Thaønh Thaâït Caûm Ôn Quyù Khaùch
Xin Quyù Khaùch Nhaán Vaøo Moãi Hình Nhoû Ñeå Xem Chi Tieát
Vaø Nhaán Refresh (Hoaëc F5) Ñeå Xem Tieáp Nhöõng Hình Khaùc. "
dautable=""
dautable = gioithieu & " | "
response.write dautable
daudong = ""
cuoidong = ""
biendem = 0
For i = 1 to sohinh/3 ' For na`y dde^? ta.o do`ng va` 1 do`ng co' 3 co^.t.
daudong = response.write("")
For j = 1 to 3 ' For na`y dde^? ta.o co^.t
biendem = biendem + 1
response.write (vbcrlf & _
" & ) | "& vbcrlf & _
"" & vbcrlf & _
" & ) | ")
Next
cuoidong = response.write(" | ")
Next
cuoitable=""
cuoitable = response.write(" |
")
cuoiform = ""
cuoiform = response.write (" ")
%>
<%
Sub sub_xfd_XemFolder(thumuc)
Dim fs, f, f1, fc, danhsach
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(thumuc)
Set fc = f.Files
sodem = 0
For Each f1 in fc
If right(f1.name, 5) = "n.jpg" Then
sodem = sodem + 1
hinhnqn(sodem) = f1.name
End If
Next
End Sub
%>
VietShare Xin Thaønh Thaâït Caûm Ôn Quyù Khaùch
Xin Quyù Khaùch Nhaán Vaøo Moãi Hình Nhoû Ñeå Xem Chi Tieát
Vaø Nhaán Refresh (Hoaëc F5) Ñeå Xem Tieáp Nhöõng Hình Khaùc.
|
|
|
|
QuêHương 
Trang
Chủ 
