<% Response.ContentType = "text/html" Response.AddHeader "Content-Type", "text/html;charset=UTF-8" Response.CodePage = 65001 Response.CharSet = "UTF-8" %> <% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% ' Initialize common variables x_GaleriaID = Null: ox_GaleriaID = Null: z_GaleriaID = Null x_GaleriaCat = Null: ox_GaleriaCat = Null: z_GaleriaCat = Null x_GaleriaCaminho = Null: ox_GaleriaCaminho = Null: z_GaleriaCaminho = Null x_GaleriaImagem = Null: ox_GaleriaImagem = Null: z_GaleriaImagem = Null x_GaleriaNome = Null: ox_GaleriaNome = Null: z_GaleriaNome = Null x_GaleriaTitulo = Null: ox_GaleriaTitulo = Null: z_GaleriaTitulo = Null x_GaleriaDesc = Null: ox_GaleriaDesc = Null: z_GaleriaDesc = Null x_GaleriaPaginaID = Null: ox_GaleriaPaginaID = Null: z_GaleriaPaginaID = Null x_GaleriaPreview = Null: ox_GaleriaPreview = Null: z_GaleriaPreview = Null x_usuarioID = Null: ox_usuarioID = Null: z_usuarioID = Null x_GaleriaAtivo = Null: ox_GaleriaAtivo = Null: z_GaleriaAtivo = Null x_GaleriaData = Null: ox_GaleriaData = Null: z_GaleriaData = Null %> <% Response.Buffer = True ' Load Key Parameters sKey = "": bSingleDelete = True x_GaleriaID = Request.QueryString("GaleriaID") If x_GaleriaID <> "" Then If Not IsNumeric(x_GaleriaID) Then Response.Redirect "galeria_listagem.asp" ' prevent sql injection End If If sKey <> "" Then sKey = sKey & "," sKey = sKey & x_GaleriaID Else bSingleDelete = False End If If Not bSingleDelete Then sKey = Request.Form("key_d") End If If sKey = "" Or IsNull(sKey) Then Response.Redirect "galeria_listagem.asp" arRecKey = Split(sKey&"", ",") i = 0 Do While i <= UBound(arRecKey) sDbWhere = sDbWhere & "(" ' Remove spaces sRecKey = Trim(arRecKey(i+0)) If Not IsNumeric(sRecKey) Then Response.Redirect "galeria_listagem.asp" ' prevent sql injection End If ' Build the SQL sDbWhere = sDbWhere & "`GaleriaID`=" & AdjustSql(sRecKey) & " AND " If Right(sDbWhere, 5) = " AND " Then sDbWhere = Left(sDbWhere, Len(sDbWhere)-5) & ") OR " i = i + 1 Loop If Right(sDbWhere, 4) = " OR " Then sDbWhere = Left(sDbWhere, Len(sDbWhere)-4) ' Get action sAction = Request.Form("a_delete") If sAction = "" Or IsNull(sAction) Then sAction = "I" ' Display record End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Display If LoadRecordCount(sDbWhere) <= 0 Then conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "galeria_listagem.asp" End If Case "D": ' Delete If DeleteData(sDbWhere) Then Session(ewSessionMessage) = "Registros apagados com sucesso" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "galeria_listagem.asp" End If End Select %>
Incluir Galeria
Diretórios de Imagens
Listagem
<% If Session(ewSessionMessage) <> "" Then %>

<%= Session(ewSessionMessage) %>

<% Session(ewSessionMessage) = "" ' Clear message End If %>

<% nRecCount = 0 i = 0 Do While i <= UBound(arRecKey) nRecCount = nRecCount + 1 ' Set row color sItemRowClass = " class=""""" ' Display alternate color for rows If nRecCount Mod 2 <> 0 Then sItemRowClass = " class=""""" End If sRecKey = Trim(arRecKey(i+0)) x_GaleriaID = sRecKey If LoadData() Then %> <% End If i = i + 1 Loop %>
Pasta das Imagens Titulo Descrição Data
<% Response.Write x_GaleriaCaminho %> <% Response.Write x_GaleriaTitulo %> <% Response.Write x_GaleriaDesc %> <% If IsDate(x_GaleriaData) Then Response.Write EW_FormatDateTime(x_GaleriaData,7) Else Response.Write x_GaleriaData End If %>

 

<% conn.Close ' Close Connection Set conn = Nothing %> <% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value ' - Variables setup: field variables Function LoadData() Dim rs, sSql, sFilter sFilter = ewSqlKeyWhere If Not IsNumeric(x_GaleriaID) Then LoadData = False Exit Function End If sFilter = Replace(sFilter, "@GaleriaID", AdjustSql(x_GaleriaID)) ' Replace key value sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents x_GaleriaID = rs("GaleriaID") x_GaleriaCat = rs("GaleriaCat") x_GaleriaCaminho = rs("GaleriaCaminho") x_GaleriaImagem = rs("GaleriaImagem") x_GaleriaNome = rs("GaleriaNome") x_GaleriaTitulo = rs("GaleriaTitulo") x_GaleriaDesc = rs("GaleriaDesc") x_GaleriaPaginaID = rs("GaleriaPaginaID") x_GaleriaPreview = rs("GaleriaPreview") 'x_usuarioID = rs("usuarioID") x_GaleriaAtivo = rs("GaleriaAtivo") x_GaleriaData = rs("GaleriaData") End If rs.Close Set rs = Nothing End Function %> <% '------------------------------------------------------------------------------- ' Function LoadRecordCount ' - Load Record Count based on input sql criteria sqlKey Function LoadRecordCount(sqlKey) On Error Resume Next Dim rs, sSql, sFilter sFilter = sqlKey sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 LoadRecordCount = rs.RecordCount rs.Close Set rs = Nothing If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description End If End Function %> <% '------------------------------------------------------------------------------- ' Function DeleteData ' - Delete Records based on input sql criteria sqlKey Function DeleteData(sqlKey) On Error Resume Next Dim rs, sSql, sFilter Dim rsold sFilter = sqlKey sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description rs.Close Set rs = Nothing DeleteData = False Exit Function End If ' Clone old rs object Set rsold = CloneRs(rs) ' Call recordset deleting event DeleteData = Recordset_Deleting(rs) If DeleteData Then Do While Not rs.Eof rs.Delete If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description DeleteData = False Exit Do End If rs.MoveNext Loop End If rs.Close Set rs = Nothing ' Call recordset deleted event If DeleteData Then Call Recordset_Deleted(rsold) End If rsold.Close Set rsold = Nothing End Function '------------------------------------------------------------------------------- ' Recordset deleting event Function Recordset_Deleting(rsold) On Error Resume Next ' Please enter your customized codes here Recordset_Deleting = True End Function '------------------------------------------------------------------------------- ' Recordset deleted event Sub Recordset_Deleted(rsold) On Error Resume Next Dim table table = "sw_galeria" End Sub %>