Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ted k'

[Resolvido] Imagens Aleatórias : Randomize

Por , em ASP Clássico

Recommended Posts

Ted k'    126

Ted k'
Postado

Mais um randomize de Imagens adaptado para as necessidade básicas:

 

ASP
<%@ Language="VBScript" %>

<% Option Explicit %>

<html>

<head>

<%

  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

%>

 

</head>

<body>

<div align="center">

<center>

<table border="1" bordercolor="#000000">

  <tr>

        <td bgcolor="#ffffff">

          <!-- a pasta developercenter é relacionanda a sua pasta principal -->

          <img src="<%=RandomDeImagens("images/","/developercenter/images/default.gif")%>">

        </td>

  </tr>

</table>

</center>

</div>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito