Jump to content

  2. →
  3. →
  4. →

Photo

Ajuda Para Modificar O I-gallery 3.3

Started By _Neo_, 12/11/2004, 21:29

  • Faça o login para participar
2 replies to this topic

#1 _Neo_

_Neo_

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

Posted 12/11/2004, 21:29

Oi...peguei a galeria I-Gallery 3.3 um istema muito bom de galerias em que vc pode enviar as fotos e por pastas ver as fotos q tb podem ser enviadas por e-mail...o problema eh o seguinte eu modifiquei algumas coisas aqui pra galeria ficar mais parecida com os sites de baladas daq do Brasil...a única coisa que queria fazer e naum consegui eh mudar a frente do site...tipo...em cada galeria colocar uma foto ,uma descrição o local e a data...pq o script me parece q pega FSO somente as pastas q estão dentro da pasta upload...ae coloca o nome da galeria igual ao da pasta...tipo se vc criou uma pasta..balada1511...o nome da galeria fica esse...e o q eu queria eh q esse nome q aparece na galeria vc cadastrado por mim e com uma foto ao lado...descrição, local,data...se alguem tiver idéia de como fazer isso por favor me ajude...valew

#2 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 13/11/2004, 01:33

acho q muda rnao tem como...a nao ser q vc altere o nome da pasta p/ o q vc quer, pq o code puxa dados da pasta e nao de bds..

ou vc tira a opção de exibição do nome ..mas acho q nao seria viavel..

mas de qualquer maneira, poste o code da page q sera alterada pr agente analisar..
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#3 _Neo_

_Neo_

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

Posted 13/11/2004, 02:36

o código da página pricipal do site é esses:

<%@ LANGUAGE="VBSCRIPT" %>

<%
'####################################
'##
'####################################
%>

<!--#INCLUDE FILE="include/globalsets.asp"-->
<!--#INCLUDE FILE="include/testenvironment.asp"-->
<!--#INCLUDE FILE="include/gfxSpex.inc"-->
<!--#INCLUDE FILE="include/filesize.inc"-->

<%
Sub DisplayFileName(fn)
strFolderName = ""&fn.Name&""
strFolderLocation = UploadPath&"\"&strFolderName&"/"
Set F1 = FSO.GetFolder(strFolderLocation)
Set FC = F1.Files
On Error Resume Next
rpf = 4
rpr = 2
intPage = 0
i = 1
RecordsCount = 0
%>
<table width="120" cellspacing="1" cellpadding="2" border="0">
<tr>
<td align="center" nowrap>
<table style="cursor: hand;" onClick="location.href='folderview.asp?folder=<%= URLSpace(strfoldername) %>'" background="images/largefolder.gif" width="92" height="92" cellspacing="0" cellpadding="0" border="0">
<tr>
<td valign="middle" align="center">
<img src="images/spacer.gif" width="1" height="5" border="0"><br>
<table cellspacing="1" cellpadding="2" border="0">
<tr>
<%
For Each f1 in FC

If (RecordsCount >= (intPage * rpf)) And (RecordsCount < (intPage * rpf) + rpf) Then

If NOT InStr(f1, "tn-") > 0 Then ' Hide NON-Thumnails In View

ThumbPath = UploadPath&"\"&strFolderName&"\"&f1.Name

'##### Thumbnailer Call ######
If gfxSpex(ThumbPath, width, height, colors, strType) = true then
strwidth = "37"
strheight = FormatNumber(strwidth*(height/width),0)
If strheight > 33 Then strheight = "33" Else strheight = strheight
If nailer Then
strURL = URLPath&"/"&strfoldername&"/tn-"&f1.Name
Else
strURL = URLPath&"/"&strfoldername&"/"&f1.Name
End If
strimagesrc = "<img src="""&strURL&""" width="""&strwidth&""" height="""&strheight&""" border=""0"">"
End If
'##### End Thumbnailer Call ######

If Not i Mod rpr = 0 Then
%>
<td align="center">
<%= strimagesrc %><br>
</td>
<% Else %>
<td align="center">
<%= strimagesrc %><br>
</td>
</tr>
<%
End if
End If
RecordsCount = RecordsCount + 1
i = i + 1
End If
Set Jpeg = Nothing
Next
%>
</table>
</td>
</tr>
</table>
<img src="images/spacer.gif" width="1" height="3" border="0"><br>
<a class="linkxsm" href="folderview.asp?folder=<%= URLSpace(strfoldername) %>"><b><%= fn.name %></b></a><br>
</td>
</tr>
</table>
<% End Sub %>

<html>
<head>

<title>.:: <%= GalleryVersion %> - Seja Bem-Vindo! ::.</title>

<script LANGUAGE="JAVASCRIPT" TYPE="text/javascript">
<!--
function confirmValidation(entered, alertbox)
{
with (entered)
{
subjectlen = value.length;
if (subjectlen == "") {
if (alertbox) {alert(alertbox);} return false;}
else {return true;}
}
}
function formvalidation(thisform)
{
with (thisform)
{
if (confirmValidation(newfolder,"Please enter a value in the \"Create New Folder\" field!")==false) {newfolder.focus(); return false;};
}
}
//-->
</script>

<link rel="STYLESHEET" type="text/css" href="css/nn.css" disabled>
<script language="JavaScript1.2" type="text/javascript">
<!--
if (document.all) document.createStyleSheet("css/ie.css");
//-->
</script>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="760" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="75">

<!--#INCLUDE FILE="include/header.asp"-->

</td>
</tr>
<tr>
<td height="24" bgcolor="#5090D0" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=<%= StartColor1 %>,endColorStr=<%= EndColor1 %>);" colspan="3">

<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<font style="color: <%= DateColor %>;" class="textsm">
&nbsp;&nbsp;<b><%= FormatDateTime(igalleryNow,1) %></b><br>
</font>
</td>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<td style="padding-right: 6px;" align="right"><a href="authorize.asp?l=O" onMouseOver="document.sbtnoff.src='images/sm-logoff2.gif'" onMouseOut="document.sbtnoff.src='images/sm-logoff1.gif'"><img name="sbtnoff" src="images/sm-logoff1.gif" width="14" height="14" border="0" alt="Log Off"></a></td>
<% Else %>
<td style="padding-right: 6px;" align="right"><a href="login.asp?folder=<%= URLSpace(Request("folder")) %>&n=<%= Request.ServerVariables("SCRIPT_NAME") %>" onMouseOver="document.sbtnon.src='images/sm-logon2.gif'" onMouseOut="document.sbtnon.src='images/sm-logon1.gif'"><img name="sbtnon" src="images/sm-logon1.gif" width="14" height="14" border="0" alt="Log On"></a></td>
<% End If %>
</tr>
</table>

</td>
</tr>
</table>

<table width="760" cellspacing="0" cellpadding="0" border="0">
<tr>
<td style="padding-top:7px;" width="200" valign="top">

<!--#INCLUDE FILE="include/menu.asp"-->
<img src="images/spacer.gif" width=200 height=5 border=0 alt=""><br>

</td>

<td width="20" valign="top"><img src="images/spacer-bevel.gif" width=20 height=235 border=0 alt=""></td>
<td style="padding-left:10px;padding-top:15px;" width="560" valign="top">

<font class="text">

<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="30"><img src="images/folder-closed.gif" width=27 height=27 border=0 alt=""></td>
<td>Galeria de Eventos</td>
</tr>
</table>

<img src="images/spacer.gif" width=10 height=5 border=0 alt=""><br>

<table cellspacing="0" cellpadding="0" border="0">
<tr>
<%
Set f = FSO.GetFolder(UploadPath)
Set FileList = f.subFolders
Set objFC = f.Files

On Error Resume Next
fi = 1
count = 0
fpr = foldersperrow
For Each fn In FileList
emptyDir = False
If Not fi Mod fpr = 0 then
%>
<td align="center">
<% DisplayFileName(fn) %>
</td>
<td width="10">&nbsp;</td>
<% Else %>
<td align="center">
<% DisplayFileName(fn) %>
</td>
</tr>
<%
End If
fi = fi + 1
Next
%>
</table>

<%
emptyDir = True
For Each fn In FileList
emptyDir = False
Next
If emptyDir Then
%>
<img src="images/spacer.gif" width=1 height=7 border=0 alt=""><br>
<%
If Session("userLevel") = "99" OR Session("userLevel") = "98" Then
%> Use criar nova pasta para adicionar uma galeria no site.<br>
<% Else %>
<font class="text">There are currently no sub-folders within your main i-Gallery folder.&nbsp;&nbsp;To create a new folder you must first log-in.&nbsp;&nbsp;<a class="link" href="login.asp">Click Here</a> to log-in now.<br></font>
<% End If %>
<% End If %>

<%
set FSO = nothing
%>

<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<p>
<table style="filter:progid:DXImageTransform.Microsoft.Shadow(color='#a9a9a9', Direction=135, Strength=2);" align="center" bgcolor="gray" cellspacing="0" cellpadding="1" border="0">
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="3" border="0">
<tr>
<td bgcolor="#F7F7F7">
<table width="100%" cellspacing="0" cellpadding="1" border="0">
<form name="newdir" method="post" action="create.asp?mode=newfolder" onsubmit="return formvalidation(this)">
<input type="hidden" name="fsDir" value="<%= fsDir %>">
<tr>
<td colspan="2">
<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-folder.gif" width="16" height="14" border="0"></td>
<td class="textsm"><b>Criar Nova Pasta:</b></td>
</tr>
</table>
</tr>
<tr>
<td><font class="textsm"><input type="text" style="width: 150px;" size=12 name="newfolder" class="input"></td>
<td><font class="textsm">
<input class="button" style="font-size: 8.5pt;" type="submit" value="Criar"></td>
</tr></form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% End If %>

</font>

</td>
</tr>
</table>

<p>

<!--#INCLUDE FILE="include/footer.asp"-->

</body>
</html>




e esse é o código do menu.asp que também mostra as pastas é esse

<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-folder.gif" alt="" width="16" height="14" border="0"></td>
<td class="textsm"><b>Escolha a Galeria:</b></td>
</tr>
</table>

<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="17" align="right"><a class="linkxsm" href="igallery.asp" target="_top"><b>Main Folder</b></a></td>
<% If Request("folder") = "" Then %>
<td width="19" style="padding-right:2px;" align="right" nowrap><img src="images/sm-folderclosed1.gif" width=13 height=11 border=0 alt=""></td>
<% Else %>
<td width="19" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
<%
On Error Resume Next
fcount=0
elTableTop
For Each fn In FileList
%>
<tr>
<td height="17" align="right"><a class="linkxsm" href="folderview.asp?folder=<%= URLSpace(fn.Name) %>" target="_top"><b><%= CropIt(PCase(fn.Name), 25, "...") %></b></a></td>
<% If Request("folder") = fn.Name Then %>
<td width="19" style="padding-right:2px;" align="right" nowrap><img src="images/sm-folderclosed1.gif" width=13 height=11 border=0 alt=""></td>
<% Else %>
<td width="19" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
<%
fcount = fcount+1
Next
elTableEnd
%>
</table>

<% If Anonymous Then %>

<img src="images/spacer.gif" width=1 height=5 border=0 alt=""><br>

<% End If %>

<% If Session("userLevel") = "99" Then %>

<hr size="1" color="silver">

<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-users.gif" alt="" width="14" height="14" border="0"></td>
<td class="textsm"><b>Administração de Usuários:</b></td>
</tr>
</table>

<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="17" align="right"><a class="linkxsm" href="users.asp?mode=add&mi=1" target="_top"><b>Add New User</b></a></td>
<% If Request("mi") = "1" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
<tr>
<td height="17" align="right"><a class="linkxsm" href="users.asp?mi=2" target="_top"><b>Manage User(s)</b></a></td>
<% If Request("mi") = "2" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
<tr>
<td height="17" align="right"><a class="linkxsm" href="logs.asp?mi=3" target="_top"><b>User(s) Log Files</b></a></td>
<% If Request("mi") = "3" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
</table>

<img src="images/spacer.gif" width=1 height=5 border=0 alt=""><br>

<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-system1.gif" alt="" width="14" height="14" border="0"></td>
<td class="textsm"><b>System Management:</b></td>
</tr>
</table>

<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="17" align="right"><a class="linkxsm" href="system.asp?mi=4" target="_top"><b>System Set-Up</b></a></td>
<% If Request("mi") = "4" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
</table>

<hr size="1" color="silver">
Voltar para Dúvidas sobre Scripts Prontos de ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. → Dúvidas sobre Scripts Prontos de ASP
  5. Privacy Policy
  6. Regras ·
IPB Skin By Virteq