Non sei Registrato ? ti devi Registrare per Accedere completamente al Forum, Per Registrarti clicca QUI !
Giumer Forum
Benvenuto nel Forum.
Suggerimento #1: Crea sondaggi nel forum sondaggi!
Ny side 1
Nome utente:
Password:
Salva la password

Registrazione

Hai dimenticato la Password?
Scegli la Tonalità: 
Selezione lingua:

 
Discussioni Attive (0) | Sondaggi Attivi (0) | Utenti | Utenti Connessi | Chat dal Vivo | DreamChat | Chat Flash (0) | Catalogo Avatar | Cerca | Segnalibro
 Tutti i Forum
 webdesign
 webdesign / Asp
 change the path of a director ?
(anche qui: 1 ospite.)
   Tutti gli Utenti possono inserire nuove Discussioni in questo Forum
   Tutti gli Utenti possono rispondere alle Discussioni in questo Forum

Vista Arborescenza
Annota questa Discussione Annota |  Vers.Stampabile
Autore Discussione Precedente: inc_func_common Discussione Discussione Successiva: per Maria nuova skin  
Giumer

Amministratore


Giumer
GiumerAdmin

 Stato: Giumer is offline Disconnesso
 Membro Valutato: Voti:4
 Top 5 Invii (#1)
 Inviata - 24/03/2011 :  11:24:55  Link diretto a questa Discussione Mostra Profilo Visita l'homepage di Giumer Spedisci un messaggio ICQ a Giumer Clicca per vedere l'indirizzo Messanger MSN di Giumer Premi per mandare a Giumer una chiamata SKYPE Spedisci un messaggio Yahoo! a Giumer  myspace Aggiungi Giumer alla Lista Amici
web portal on the left side there is' the gallery members, as well as set up and take the path of the file folders in the forum, I must be able to change his path and take the path Public / attach the uploaded file can you help me thanks

<%
'#################################################################################
'## Ver.3.4.07 multi-language Skin3D Portal V2
'#################################################################################
'## Copyright (C) 2001-10 Gaëtan Dupont All Rights Reserved
'##
'## By using this program, you are agreeing to the terms of the
'## GNU General Public License.
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding ImageForums2001 must remain intact
'## in the scripts and in the outputted HTML.
'## The "Image Forums 2001" text with a link back to
'## http://www.forums2001.ca in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## Support can be obtained from support forums at:
'## http://www.forums2001.ca
'##
'## E-mail: imageforums2001@hotmail.com
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_common.asp" --><%

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 & _
"<!-- hide from JavaScript-challenged browsers" & vbNewLine & _
"function jumppage(sel) {" & vbNewLine & _
"var i = sel.selectedIndex" & vbNewLine & _
"self.location.href = sel.options[i].value" & vbNewLine & _
"}" & vbNewLine & _
"// done hiding -->" & vbNewLine & _
"</script>" & vbNewLine
if (mlev = 0 or getStyles = "1") or strStylesCss = "0" then
%><!-- #INCLUDE FILE="inc_default_skin.asp"--><%
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""http://www.giumer.it/forum/css/" & skin & ".css"" id=""skin"" />" & vbNewline
%><!-- #INCLUDE FILE="skin.asp"--><%
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><!--" & vbNewline & _
"body {Scrollbar-Face-Color:" & strScrollbarFaceColor & ";Scrollbar-Arrow-Color:" & strScrollbarArrowColor & ";Scrollbar-Track-Color:" & strScrollbarTrackColor & ";Scrollbar-Shadow-Color:" & strScrollbarShadowColor & ";Scrollbar-Highlight-Color:" & strScrollbarHighlightColor & ";Scrollbar-3Dlight-Color:" & strScrollbar3DlightColor & "}" & vbNewLine & _
"a:link {color:" & strLinkColor & ";text-decoration:" & strLinkTextDecoration & "}" & vbNewline & _
"a:visited {color:" & strVisitedLinkColor & ";text-decoration:" & strVisitedTextDecoration & "}" & vbNewline & _
"a:hover {color:" & strHoverFontColor & ";text-decoration:" & strHoverTextDecoration & "}" & vbNewline & _
"a:active {color:" & strActiveLinkColor & ";text-decoration:" & strActiveTextDecoration & "}" & vbNewLine & _
"--></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")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
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 ")
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(".\" & 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
%><!-- #INCLUDE FILE="inc_footer_short.asp" --><%
Response.End
%>
firma di Giumer 


Oro  Admin
 Paese: Italy  ~  Invii: 736  ~  Utente dal: 13/04/2005  ~  UltimaVisita: 04/02/2023 -> Moderatore 
Google Adsense

 Paese: USA  Vai all'inizio della pagina
  Discussione Precedente: inc_func_common Discussione Discussione Successiva: per Maria nuova skin  
Annota questa Discussione Annota |  Vers.Stampabile

Vai a:

Giumer Forum © Giumer.it Vai ad inizio pagina...
 Modded By: Image Forums 2001