Cambiare il percorso di una direttori ? - Ernia e Laparocele

	Ny side 1
Niente può sostituire la visita di un chirurgo! Consultate il medico! Visione migliore con una risoluzione di 1024 X 768

	Nome utente:

	Password:

Salva password

Registrazione
Selezione lingua

Hai dimenticato la Password?

Menù principale

Aggiungi a preferiti | Discussioni Attive (0) | I weblog | Discussioni Recenti | Dis.Senza Risposta | Sondaggi Attivi (0) | Calendario Eventi | Games | Cerca | Policy

Menù utenti registrati

Menù accessibile solo agli utenti registrati! Registrazione

[ Membri Attivi: 0 | Membri Anonimi: 0 | Ospiti: 176 ] [ Totale: 176 ] [ Membro più recente: Lorenzo97 ]

Scegli la Tonalità:

Free Time Cafè

Computer e webdesign

Cambiare il percorso di una direttori ?

(anche qui:

1 ospite.)

Tutti gli Utenti possono inserire nuove Discussioni in questo Forum
Tutti gli Utenti possono rispondere alle Discussioni in questo Forum

Il Voto non è ammesso per questa Discussione.

Pagina Precedente | Vista Arborescenza

Vers.Stampabile

Annota

Giumer

Membro anziano

Membro Valutato:

Top 25 Invii (11)

16

Spedito - 27/03/2011 : 13:54:26

» Soggetto: Re: Cambiare il percorso di una direttori ?

provato in tutti i modi che potevo pensare ma non riesco a trovare la soluzione per coreggere il percorso immagini
se puoi magari darmi una mano pensavo che per il percorso immagine fosse piu facile ma non e cosi :


<%

set my_Conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString

strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
if strAuthType = "nt" then
strDBNTUserName = Session(strCookieURL & "userID")
end if

chkCookie = 1
mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
chkCookie = 0

call WriteStyleCss(intStylesCss,getStyles)

Response.Write "<html>" & vbNewline & _
vbNewline & _
"<head>" & vbNewline & _
"<meta http-equiv=""Content-Type"" content=""text/html; charset=" & strLangCharSet & """>" & vbNewline & _
"<title>" & strForumTitle & "</title>" & vbNewline & _
"<script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
"" & vbNewLine & _
"</script>" & vbNewLine
if (mlev = 0 or getStyles = "1") or strStylesCss = "0" then
%><%
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""http://www.giumer.it/forum/css/" & skin & ".css"" id=""skin"" />" & vbNewline
%><%
Response.Write "<script language=""JavaScript"" type=""text/javascript"">browserChk();</script>" & vbNewline
Response.Write "</head>" & vbNewLine & _
vbNewLine
Response.Write "<body onLoad=""window.focus();"">" & vbNewLine
else
Response.Write "<style></style>" & vbNewline & _
"</head>" & vbNewLine & _
vbNewLine & _
"<body bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """ onLoad=""window.focus();"">" & vbNewLine
end if
'*End

Response.Write "<table width=""100%"" height=""100%"" align=""center"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td align=""center"" valign=""middle"">" & vbNewline & _
" <div align=""center"">" & vbNewline & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewline

if strDBNTUserName = "" then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>" & fLang("strLangWas_Problem00010") & "</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & fLang("strLangGallery00030") & "</font></p>" & vbNewLine
else

' Fotoalbum
Dim CurFile, ShowSub, ShowPic, PictureNo
Dim strPathInfo, strPhysicalPath
CurFile = "ShowPicture.asp"

Response.Write " <form action=" & CurFile & " method=""post"">" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>" & fLang("strLangGallery00040") & "</b></font>" & vbNewLine & _
" <select name=""go"" onChange=""jumppage(this);"" size=""1"">" & vbNewline

ShowSub = Request("ShowSub")
ShowPic = Request("ShowPic")

strPhysicalPath = Server.MapPath("/public/uploaded/")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.getFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.write "<option "
If ShowSub=Folder.Name Then
Response.Write "selected "
End if
Response.Write"value='" & CurFile & "?ShowSub="
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write "'>"
Response.Write(Folder.Name & "</option>")
If ShowSub <= " " Then
ShowSub = Folder.Name
End if
End if
Next
Set objFSO = Nothing

Response.Write " </select>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline & _
" </form>" & vbNewline

if ShowPic > " " then
ShowPic = Replace(ShowPic, " ", "%20")
Response.Write " <a href='JavaScript:history.go(-1)'><img src='" & ShowPic & "' border=0><br /><br /><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>" & fLang("strLangInc_Func_Secure00080") & "</b></font></a>"
else

Response.Write " <table border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""5"">" & vbNewline & _
" <tr>" & vbNewline

strPhysicalPath = Server.MapPath("/public/uploaded/" & ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
for Each objFileItem in objFolderContents

if Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" then
ShowPic = Replace(objFileItem.Name, " ", "%20")
' Response.Write " <td align='center' width='25%'><a href=" & ShowSub & "\"
Response.Write " <td align=""center"" width=""33%""><a href=" & CurFile & "?ShowPic=" & ShowSub & "\" & ShowPic
' Response.Write(Replace(objFileItem.Name, " ", "%20"))
Response.Write ">"
Response.Write("<img src=""" & ShowSub & "\" & objFileItem.Name & """ width=""120"" border=""0"">")
Response.Write("<center><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & Mid(objFileItem.Name,1,Len(objFileItem.Name)-4) & "</b></font></center>")
Response.write "</a><br /></td>"
PictureNo = PictureNo + 1
if PictureNo=3 then
Response.write "</tr><tr>"
PictureNo = 0
end if
end if
next

Set objFSO = nothing
end if

Response.Write " </tr>" & vbNewline & _
" </table>" & vbNewline
end if
end if
%><%
Response.End
%>

firma di Giumer

=======================
http://www.Giumer.it/forum

=======================

Paese:

~ Invii: 850 ~ Utente dal: 20/10/2006 ~ UltimaVisita: 05/04/2013

-> Moderatore

AntonioDL

Semi Admin

Membro Valutato:

Top 5 Invii (1)

17

Spedito - 27/03/2011 : 21:51:23

» Soggetto: Re: Cambiare il percorso di una direttori ?

Mamma mia, Giumi, ma il turco è più chiaro...

firma di AntonioDL

alla tua corsa la nube e' fango e il vano vento e' suolo

Per aiuto psicologico agli altri utenti

Paese:

~ Invii: 6417 ~ Utente dal: 20/02/2006 ~ UltimaVisita: 30/07/2022

-> Moderatore

amministratore

Medico - Chirurgo Forum Admin

Membro Valutato:

Top 5 Invii (2)

18

Spedito - 27/03/2011 : 22:18:42

» Soggetto: Re: Cambiare il percorso di una direttori ?

e che è ?
comunque perchè non guardi i file outputmercatino, outputavatar outputadminupload che hanno lo stesso codice e dove la dir è settata?

firma di amministratore

Ernia e laparocele

Torino Ernia

Prenota una visita

Paese:

~ Invii: 5329 ~ Utente dal: 15/03/2003 ~ UltimaVisita: 18/04/2023

-> Moderatore

francer

Moderatore Nine Lives

Membro Valutato:

Top 5 Invii (3)

19

Spedito - 28/03/2011 : 00:00:03

» Soggetto: Re: Cambiare il percorso di una direttori ?

così eh, tanto per non farci i fatti nostri, naturalmente

firma di francer

Animula vagula blandula ....

Modificato da - francer on 28/03/2011 00:00:25

per frequenza e supporto

Paese:

~ Invii: 5094 ~ Utente dal: 02/06/2008 ~ UltimaVisita: 02/03/2021

-> Moderatore

AntonioDL

Semi Admin

Membro Valutato:

Top 5 Invii (1)

20

Spedito - 28/03/2011 : 12:32:34

» Soggetto: Re: Cambiare il percorso di una direttori ?

Non ti atteggiare a far finta di capirci qualcosa, che non la bevo...

firma di AntonioDL

alla tua corsa la nube e' fango e il vano vento e' suolo

Per aiuto psicologico agli altri utenti

Paese:

~ Invii: 6417 ~ Utente dal: 20/02/2006 ~ UltimaVisita: 30/07/2022

-> Moderatore

Chicco

Membro avanzato

Membro Valutato:

Top 10 Invii (9)

21

Spedito - 28/03/2011 : 17:55:16

» Soggetto: Re: Cambiare il percorso di una direttori ?

Ragazzi, si fa per dire, io con l'informatica ci campo ma voi siete dei superspecialisti, se vi serve un lavoro a Milano fatemelo sapere, potrebbe servirmi.

Per frequenza, supporto, simpatia e nomina a "Ufficiale Contatore" del forum

Paese:

~ Invii: 1605 ~ Utente dal: 01/11/2009 ~ UltimaVisita: 14/01/2016

-> Moderatore

Giumer

Membro anziano

Membro Valutato:

Top 25 Invii (11)

22

Spedito - 28/03/2011 : 20:00:43

» Soggetto: Re: Cambiare il percorso di una direttori ?

quote:

e che è ?
comunque perchè non guardi i file outputmercatino, outputavatar outputadminupload che hanno lo stesso codice e dove la dir è settata?

Originariamente inviato da amministratore - Ieri : 22:18:42

il perche non sono uguali non prende le stesse variabili ! mi manca poco devo solo agiustare il percorso immagini !

firma di Giumer

=======================
http://www.Giumer.it/forum

=======================

Paese:

~ Invii: 850 ~ Utente dal: 20/10/2006 ~ UltimaVisita: 05/04/2013

-> Moderatore

Giumer

Membro anziano

Membro Valutato:

Top 25 Invii (11)

23

Spedito - 29/03/2011 : 19:37:07

» Soggetto: Re: Cambiare il percorso di una direttori ?

E siiiiiiiiiiiiii ! doct ho fixxato il file ShowPicture per aruba ! lo puoi vedere sul mio portale ma devi logare ! alla fine ci sono riuscito !

firma di Giumer

=======================
http://www.Giumer.it/forum

=======================

Paese:

~ Invii: 850 ~ Utente dal: 20/10/2006 ~ UltimaVisita: 05/04/2013

-> Moderatore

Vers.Stampabile

Annota

Pagina Precedente

Vai a:

Image Forums 2001

Questa pagina è stata generata in 0,33 secondi.

Time edit/delete mod from superdeejay.net

Powered By: Snitz Forums 2000 Version 3.4.07