Mais um randomize de Imagens adaptado para as necessidade básicas:
<%@ 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>
Pergunta
Ted k'
Mais um randomize de Imagens adaptado para as necessidade básicas:
<%@ 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>Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.