Jump to content

  2. → Viewing Profile: Posts: _Neo_

_Neo_

Member Since 05/11/2004
Offline Last Active 24/10/2005, 08:15
-----

Posts I've Made

In Topic: Sistema De Fotos Igual Ao Do Www.bemnafoto.com.br

27/08/2005, 01:44

pra quem ta querendo melhorar a qualidade dos thumbs eu consegui com uma dica q tem aqui mesmo nesse topico...no arquivo imagemdim.php e imagemdimindex.php ... vc troca imagecopyresize por imagecopyresampled .. falowwwww

In Topic: Marca D'agua Com Aspjpeg

10/12/2004, 22:34

não entendi direito...eu queria colcoar uma logomarca por cima da foto...nesse codigo não to vendo onde coloca essa figura...

In Topic: Ajuda Para Modificar O I-gallery 3.3

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">

In Topic: Sistema De Fotos Igual Ao Do Www.bemnafoto.com.br

10/11/2004, 13:35

alguém sabe de um servidor gratuita em q a galeria funcione perfeitamente???....ja tentei lycos e webcindario...em todos dois da pra instalar e tudo mais mas na hora de cadastrar a galeria ele não cadastra ... num aparece pasta nenhuma pra selecionar...memso eu ja tendo criado a pasta...obrigado.

In Topic: Sistema De Fotos Igual Ao Do Www.bemnafoto.com.br

09/11/2004, 21:09

Opa galera...sou iniciante em php,mas pelo q vi não entendi como eu faço o banco de dados...no phpmyadmin ele pede um arquivo .sql ... ou q eu crie as tabelas...alguém poderia me ajudar a criar esse banco para a galeria brasil v2.2 ??? queria muito testar essa galeria...obrigado.

  1. Fórum WMO
  2. → Viewing Profile: Posts: _Neo_
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq