<% If LCase(Request.Cookies("IWGalleryAccess")) <> "amministratore" Then Response.Redirect("logout.asp?reason=Accesso negato") %> <% '*** Pure ASP File Upload 2.2.1 Dim GP_uploadAction,UploadQueryString PureUploadSetup If (CStr(Request.QueryString("GP_upload")) <> "") Then Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight pau_thePath = """" & strPublicPath & """" pau_Extensions = "GIF,JPG,JPEG,BMP,PNG" pau_Form = "form1" pau_Redirect = "" pau_storeType = "file" pau_sizeLimit = "" pau_nameConflict = "uniq" pau_requireUpload = "false" pau_minWidth = "" pau_minHeight = "" pau_maxWidth = "" pau_maxHeight = "" pau_saveWidth = "PIC_WIDTH" pau_saveHeight = "PIC_HEIGHT" pau_timeout = "600" pau_progressBar = "default.htm" pau_progressWidth = "300" pau_progressHeight = "100" Dim RequestBin, UploadRequest CheckPureUploadVersion 2.21 ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout end if %> <% ' *** Smart Image Processor 1.1.3 If (CStr(Request.QueryString("GP_upload")) <> "") Then Dim RUF_Component, RUF_DotNetResize, RUF_ResizeImages, RUF_AspectImages, RUF_maxWidth, RUF_maxHeight, RUF_Quality, RUF_MakeThumb, RUF_AspectThumb, RUF_Suffix, RUF_maxWidthThumb, RUF_maxHeightThumb, RUF_QualityThumb, RUF_RedirectURL RUF_Component = "AUTO" RUF_DotNetResize = "../ScriptLibrary/ResizeImage.aspx" RUF_ResizeImages = true RUF_AspectImages = true RUF_maxWidth = UploadFormRequest("MAX_WIDTH") RUF_maxHeight = UploadFormRequest("MAX_HEIGHT") RUF_Quality = UploadFormRequest("MAX_QUALITY") RUF_MakeThumb = true RUF_AspectThumb = true RUF_Suffix = "_small" RUF_maxWidthThumb = UploadFormRequest("MAX_THUMB") RUF_maxHeightThumb = UploadFormRequest("MAX_THUMB") RUF_QualityThumb = UploadFormRequest("MAX_QUALITY") RUF_RedirectURL = "" if RUF_ResizeImages then ResizeUploadedFiles RUF_Component, RUF_DotNetResize, pau_thePath, "", RUF_maxWidth, RUF_maxHeight, RUF_Quality, true, pau_saveWidth, pau_saveHeight, RUF_AspectImages, pau_nameConflict, "" end if if RUF_MakeThumb then ResizeUploadedFiles RUF_Component, RUF_DotNetResize, pau_thePath, RUF_Suffix, RUF_maxWidthThumb, RUF_maxHeightThumb, RUF_QualityThumb, false, pau_saveWidth, pau_saveHeight, RUF_AspectThumb, pau_nameConflict, "" end if if RUF_RedirectURL <> "" then Response.Redirect RUF_RedirectURL end if end if %> <% ' *** Edit Operations: (Modified for File Upload) declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (UploadQueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(UploadQueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: (Modified for File Upload) set variables If (CStr(UploadFormRequest("MM_update")) = "form1" And CStr(UploadFormRequest("MM_recordId")) <> "") Then MM_editConnection = MM_connIWGallery_STRING MM_editTable = "PICTURES" MM_editColumn = "PIC_ID" MM_recordId = "" + UploadFormRequest("MM_recordId") + "" MM_editRedirectUrl = "pictures_listing.asp" If UploadFormRequest("PIC_APPROVED") = "" Then MM_editRedirectUrl = "pictures_listing.asp" MM_fieldsStr = "PIC_FILE|value|PIC_TITLE|value|PIC_DESCRIPTION|value|PIC_URL|value|PIC_APPROVED|value|PIC_ACTIVE|value|PIC_WIDTH|value|PIC_HEIGHT|value|PIC_CATEGORY|value|PIC_LISTING|value" MM_columnsStr = "PIC_FILE|',none,''|PIC_TITLE|',none,''|PIC_DESCRIPTION|',none,''|PIC_URL|',none,''|PIC_APPROVED|none,1,0|PIC_ACTIVE|none,1,0|PIC_WIDTH|none,none,NULL|PIC_HEIGHT|none,none,NULL|PIC_CATEGORY|none,none,NULL|PIC_LISTING|',none,''" ' create the MM_fields and MM_columns arrays MM_columnsStr = FixColumnsForUpload(MM_fieldsStr,MM_columnsStr) MM_fieldsStr = FixFieldsForUpload(MM_fieldsStr,MM_columnsStr) MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString End If End If End If %> <% ' *** Delete Old Files Before Update Record 1.6.0 If (CStr(UploadFormRequest("MM_update")) <> "" And CStr(UploadFormRequest("MM_recordId")) <> "") Then Dim DOF_path, DOF_suffix DOF_path = strPublicPath DOF_suffix = "_small" DeleteFileBeforeUpdate DOF_path,MM_fieldsStr,MM_columnsStr,MM_editConnection,MM_editTable,MM_editColumn,MM_recordId,DOF_suffix end if %> <% ' *** Update Record: (Modified for File Upload) construct a sql update statement and execute it If (CStr(UploadFormRequest("MM_update")) <> "" And CStr(UploadFormRequest("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' notify user If CStr(UploadFormRequest("PIC_APPROVED")) = "1" AND CStr(UploadFormRequest("PIC_NOTIFY")) = "1" Then MailPictured UploadFormRequest("USE_EMAIL"), UploadFormRequest("USE_NAME"), UploadFormRequest("PIC_NAME"), UploadFormRequest("CAT_FULL") End If ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsEdit__varData rsEdit__varData = "0" If (Request.QueryString("iData") <> "") Then rsEdit__varData = Request.QueryString("iData") End If %> <% Dim rsEdit Dim rsEdit_numRows Set rsEdit = Server.CreateObject("ADODB.Recordset") rsEdit.ActiveConnection = MM_connIWGallery_STRING rsEdit.Source = "SELECT * FROM PICTURES, USERS WHERE PIC_USER = USE_NAME AND PIC_ID = " + Replace(rsEdit__varData, "'", "''") + "" rsEdit.CursorType = 0 rsEdit.CursorLocation = 2 rsEdit.LockType = 1 rsEdit.Open() rsEdit_numRows = 0 %> <% Dim rsChannelCats__varCat rsChannelCats__varCat = "0" If (Request.QueryString("iCat") <> "") Then rsChannelCats__varCat = Request.QueryString("iCat") End If %> <% set rsChannelCats = Server.CreateObject("ADODB.Recordset") rsChannelCats.ActiveConnection = MM_connIWGallery_STRING rsChannelCats.Source = "SELECT * FROM CATEGORIES WHERE CAT_PARENT = " + Replace(rsChannelCats__varCat, "'", "''") + " ORDER BY CAT_NAME ASC" rsChannelCats.CursorType = 0 rsChannelCats.CursorLocation = 2 rsChannelCats.LockType = 3 rsChannelCats.Open() rsChannelCats_numRows = 0 %> <% set rsChannelSubs = Server.CreateObject("ADODB.Recordset") rsChannelSubs.ActiveConnection = MM_connIWGallery_STRING rsChannelSubs.Source = "SELECT * FROM CATEGORIES ORDER BY CAT_NAME ASC" rsChannelSubs.CursorType = 0 rsChannelSubs.CursorLocation = 2 rsChannelSubs.LockType = 3 rsChannelSubs.Open() rsChannelSubs_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 rsChannelCats_numRows = rsChannelCats_numRows + HLooper1__numRows %>
&nChannel=<%= Request.QueryString("nChannel") %>">Immagini › Modifica
<% If Not rsChannelCats.EOF Or Not rsChannelCats.BOF Then %>
Seleziona una categoria parent per l'immagine
<% startrw = 0 endrw = HLooper1__index numberColumns = 2 numrows = -1 while((numrows <> 0) AND (Not rsChannelCats.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsChannelCats.EOF)) %> <% startrw = startrw + 1 rsChannelCats.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
Categoria &iCat=<%=(rsChannelCats.Fields.Item("CAT_ID").Value)%>&lCat=.<%=(rsChannelCats.Fields.Item("CAT_ID").Value)%>.<%= Request.QueryString("lCat") %>"><%=(rsChannelCats.Fields.Item("CAT_NAME").Value)%>
<% Dim rsChannelSubs__numRows rsChannelSubs__numRows = 3 Dim rsChannelSubs__index rsChannelSubs__index = 0 rsChannelSubs_numRows = rsChannelSubs_numRows + rsChannelSubs__numRows rsChannelSubs.Filter = "CAT_PARENT=" & rsChannelCats.Fields.Item("CAT_ID").Value %> <% While ((rsChannelSubs__numRows <> 0) AND (NOT rsChannelSubs.EOF)) %> <%=(rsChannelSubs.Fields.Item("CAT_NAME").Value)%> <% If rsChannelSubs__index - 1 > 0 Then Response.Write("...") Else Response.Write(", ") End If %> <% rsChannelSubs__index=rsChannelSubs__index+1 rsChannelSubs__numRows=rsChannelSubs__numRows-1 rsChannelSubs.MoveNext() Wend %>
<% End If ' end Not rsChannelCats.EOF Or NOT rsChannelCats.BOF %> <% If Request.QueryString("iCat") > 0 Then %>
> <% If (rsEdit.Fields.Item("PIC_APPROVED").Value) = 0 Then %> <% End If %> <% If (rsEdit.Fields.Item("PIC_APPROVED").Value) = 1 Then %> <% End If %>
  ">Cambia CategoriaCambia Categoria?
Categoria: <% FillArray For i = UBound(arrayId) to 0 Step - 1 If NOT arrayId(i) = "" then Response.Write "" & (arrayName(i)) & " › " End If Next %> ">
Autore: <%=(rsEdit.Fields.Item("PIC_USER").Value)%> "> ">
File:
File attuale: ')">" alt="<%=(rsEdit.Fields.Item("PIC_FILE").Value)%>" border="0"> ">
Titolo: " size="48">
Descrizione:
Link: " size="48">
*Larghezza: px Max

Note:
1. Nel campo Descrizione è possibile usare UBB Code (es. [b]questo testo verrà stampato in grassetto[/b]).
2. I valori di default per il ridimensionamento immagine vengono modificati nella pagina Configurazione
*Altezza: px Max
*Miniatura: px Max
*Qualità: %
Approvata? name="PIC_ACTIVE" type="checkbox" id="PIC_ACTIVE" value=1> Attiva?
  "> ">
" size="32"> " size="32"> ">
<% End If %>
<% rsEdit.Close() Set rsEdit = Nothing %> <% rsChannelCats.Close() Set rsChannelCats = Nothing %> <% rsChannelSubs.Close() Set rsChannelSubs = Nothing %>