25
Feb/080
Feb/080
Imagens Aleatórias : Randomize
Mais um randomize de Imagens adaptado para as necessidade básicas
-
-
<%@ Language="VBScript" %>
-
<% Option Explicit %>
-
-
<%
-
Function RandomDeImagens(strPath,strDefault)
-
On Error Resume Next
-
Randomize Timer
-
-
Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02
-
Dim StrPastas, StrImagens, StrBase, StrPasta
-
Const strValid = ".gif.jpg.png"
-
-
If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
-
-
StrBase = Server.MapPath(strPath)
-
Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject")
-
-
Set objFolder = ObjDeFSO.GetFolder(StrBase)
-
Set ObjDaPasta = objFolder.Files
-
-
For Each ObjPasta02 In ObjDaPasta
-
StrPasta = LCase(ObjPasta02.Name)If Instr(strValid,Right(StrPasta,4)) Then
-
StrPastas = StrPastas & StrPasta & VbTab
-
End If
-
Next
-
-
StrImagens = Split(StrPastas,VbTab)
-
-
If UBound(StrImagens) > 1 Then
-
RandomDeImagens = strPath & StrImagens(Int(Rnd(1)*UBound(StrImagens)))
-
Else
-
RandomDeImagens = strDefault
-
End If
-
-
End Function
-
%>
-
<p align="center"> </p>
-
-
<center>
-
<table border="1" bordercolor="#000000"><tbody>
-
<tr>
-
<td bgcolor="#ffffff">
-
<!-- a pasta developercenter é relacionanda a sua pasta principal -->
-
<img src="<%=RandomDeImagens%>" />
-
</td>
-
</tr>
-
</tbody></table>
-
</center>
