[Resolvido] Galeria de Imagens

[Dentinho666 0]

Olá,

 

Estou precisando de um script em asp que leia o conteúdo de uma pasta de imagens e mostre na tela essas imagens com sua legenda e endereço.

 

Dei uma olhada mas não encontrei nada, se puderem dar uma força, agradeço.

 

 

Marcelo.

[DSerma 19]

<script>
document.onmousemove = mouseMove;
document.onmouseup   = mouseUp;

var dragObject  = null;
var mouseOffset = null;

function getMouseOffset(target, ev){
	ev = ev || window.event;

	var docPos	= getPosition(target);
	var mousePos  = mouseCoords(ev);
	return {x:mousePos.x - docPos.x, y:mousePos.y - docPos.y};
}

function getPosition(e){
	var left = 0;
	var top  = 0;

	while (e.offsetParent){
		left += e.offsetLeft;
		top  += e.offsetTop;
		e	 = e.offsetParent;
	}

	left += e.offsetLeft;
	top  += e.offsetTop;

	return {x:left, y:top};
}

function mouseMove(ev){
	ev		   = ev || window.event;
	var mousePos = mouseCoords(ev);

	if(dragObject){
		dragObject.style.position = 'absolute';
		dragObject.style.top	  = mousePos.y - mouseOffset.y;
		dragObject.style.left	 = mousePos.x - mouseOffset.x;

		return false;
	}
}
function mouseUp(){
	dragObject = null;
}

function makeDraggable(item){
	if(!item) return;
	item.onmousedown = function(ev){
	//item.style.cursor = 'move';
		dragObject  = this;
		mouseOffset = getMouseOffset(this, ev);
		return false;
	}
}
</script>
<%
Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta 
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") 
Set ObjPasta = ObjFso.GetFolder (Server.MapPath("Galeria"))
i = 0
For Each Obj in ObjPasta.Files
%>
<table align = "left" id = "dragt<%=i%>">
<tr>
<td>
<div id="msgbox" name="msgbox" class="msgbox">
   <div id="titulo" name="titulo" onMouseOver="makeDraggable(dragt<%=i%>); this.style.cursor='move';">
	<span id="tit_fechar" name="tit_fechar">
	 <p><a href="#" name="fechar" id="fechar" title="Fechar" onClick="java script: dragt<%=i%>.style.display = 'none';">[X]</a></p>
	</span>
	<span id="tit" name="tit">
	 <p>Monlline Decorações</p>
	</span>
   </div>
   <div id="conteudo" name="conteudo">
	<div id="mensagem" name="mensagem">
	 <a href = "Galeria/<%=Obj.Name%>" rel = "lightbox[teste]" title = "Galeria Monlline....">
	 <img src = "Galeria/<%=Obj.Name%>" border = "0" width = "100px" height = "100px">
	 </a>
	</div>
	</div>
   </div>
  
  </td>
  </tr>
</table>
<% 
If (i\2 <> i/2) Then
%>
<br><br><br><br><br><br><br><br><br><br><br><br>
<%
else
End if 
i = i + 1
Next
%>

 

Esse ai eu fiz só pra testar umas coisas aki no meu server.... e tem até Drag and Drop...

 

Abraços...

[Dentinho666 0]

Pode crer Darkdemo, valeu mesmo!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif