thumbnails asp
CoMo crear una galeria de iMagenes en Miniatura usando asp
1.Para lograr tener una galeria con fotos en Miniatura en nuestra pagina
debera solo copiar el script e insertarlo
en tu pagina web donde deseas que aparezcan la galeria de imagenes
2. creas una carpeta llamada galeria y ahi es donde se guardaran las fotos
3.si deseas que los usuarios suban fotos y queden guardadas en esa carpeta
deberas
hacer o usar un script para subir fotos y se guarden en una carpeta.
zxxbasic@hotmail.com
FOTOS MINIATURA EN ASP
<%
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
carpeta=request.QueryString("carpeta")
if carpeta<>"" then
carpeta=carpeta&"/"
folder="galeria/"&carpeta
else
folder="galeria/"
end if
'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(folder))
'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & UCASE(ObjetoCarpeta.Name) & "</B>:<BR>"
'busca en todos los archivos que encuentra en dicha carpeta
For Each Fichero in ObjetoCarpeta.Files
Response.Write "<td><a href="&folder&Fichero.Name&"><img
src="&folder&Fichero.Name & " width=60px height=50px></a></td>"
Next
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
%>
|
|