01/09/2006, 09:51
|
| | | Fecha de Ingreso: enero-2006
Mensajes: 233
Antigüedad: 19 años, 1 mes Puntos: 2 | |
 muy bueno
<!--#include file="../../scripts/constantes.asp" -->
<!--#include file="../../scripts/funciones.asp" -->
<!--#include file="../../scripts/uploadfunction.asp" -->
<%
set Master = DBOpenConection()
server.ScriptTimeout = 100000000
modo = request("modo")
if modo = "" then modo = "agregar"
tipo = request("tipo")
if tipo = "" then tipo = 0
upload = request("upload")
total_subido = request("total")
strReporteListado = request("reporte")
valores = request("valores")
valores_split = split(valores, "[separar]")
if valores_split(0) = 0 then
multimedia_codigo = request("multimedia_codigo")
if multimedia_codigo = "" then multimedia_codigo = request.Form("txtmultimedia_codigo")
else
multimedia_codigo = request("multimedia_codigo")
if multimedia_codigo = "" then multimedia_codigo = valores_split(0)
end if
if multimedia_codigo = "" then multimedia_codigo = 0 else multimedia_codigo = cint(multimedia_codigo)
if ubound(valores_split) > 0 then
multimedia_titulo = valores_split(1)
if multimedia_codigo <> 0 then modo = "edicion"
end if
strPaginaActual = "multimedia_contenido.asp"
Const strListaSeparator1 = "#FFFFFF"
Const strListaSeparator2 = "#E9E9E9"
select case tipo
case 1
big_icon = strMainDir & "_gui/multimedia_fotos2.jpg"
imagen_preview = strMainDir & "_gui/multimedia_fotospreview2.gif"
strDirectorio = strMainDir & "multimedia/fotos/"
strExtensiones = Array("jpg", "gif", "png")
case 2
big_icon = strMainDir & "_gui/multimedia_videos2.jpg"
imagen_preview = strMainDir & "_gui/multimedia_videospreview2.gif"
strDirectorio = strMainDir & "multimedia/videos/"
strExtensiones = Array("mov", "avi", "mpg", "mpeg", "wmv", "asf")
case 3
big_icon = strMainDir & "_gui/multimedia_musica2.jpg"
imagen_preview = strMainDir & "_gui/multimedia_musicapreview2.gif"
strDirectorio = strMainDir & "multimedia/musica/"
strExtensiones = Array("mp3", "wav")
case 4
big_icon = strMainDir & "_gui/multimedia_documentos2.jpg"
imagen_preview = strMainDir & "_gui/multimedia_documentospreview2.gif"
strDirectorio = strMainDir & "multimedia/documentos/"
strExtensiones = Array("doc", "txt", "ppt", "csv", "xls", "pdf", "htm", "html", "rtf")
end select
Set oFO = New FileUpload
Set oProps = oFO.GetUploadSettings
with oProps
.Extensions = strExtensiones
.UploadDirectory = Server.Mappath(strDirectorio)
.AllowOverWrite = true
.MininumFileSize = 0
.MaximumFileSize = 512000
.UploadDisabled = false
'.MaximumWidth = 550
'.MaximumHeight = 10000
End with
set oProps = nothing
oFO.ProcessUpload
sSQL = "select * from multimedia where codigo=" & multimedia_codigo
set RSMultimedia = Master.Execute(sSQL)
if RSMultimedia.bof=false and RSMultimedia.eof=false then
multimedia_titulo = Apostrofe(RSMultimedia("titulo"),0)
multimedia_descripcion = RSMultimedia("descripcion")
multimedia_descripcion = Apostrofe(multimedia_descripcion,0)
end if
sSQL = "select * from multimedia where tipo=" & tipo & " and privado=0"
set RSMultimedia = Master.Execute(sSQL)
%>
<html>
<head>
<title>Multimedia Galería</title>
<script language="javascript" src="<%=(strMainDir)%>_css/acciones.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
BODY {
color: #000000;
font-size:11px;
font-family:Tahoma, Verdana, Arial, Helvetica, sans-serif;
scrollbar-face-color:#CCCCCC;
scrollbar-highlight-color:#000000;
scrollbar-shadow-color: #000000;
scrollbar-3dligh-color: #DCDCDC;
scrollbar-arrow-color: #000000;
scrollbar-track-color: #FFFFFF;
scrollbar-darkshadow-color: #DCDCDC;
scrollbar-base-color: #DCDCDC;
background-color:#FFFFFF;
}
.DivScroll {
width:100%;
overflow:auto;
height:233px;
scrollbar-face-color:#CCCCCC;
scrollbar-highlight-color:#000000;
scrollbar-shadow-color: #000000;
scrollbar-3dligh-color: #DCDCDC;
scrollbar-arrow-color: #000000;
scrollbar-track-color: #FFFFFF;
scrollbar-darkshadow-color: #DCDCDC;
scrollbar-base-color: #DCDCDC;
background:background-color;
}
.Tablas {
color: #000000;
font-size:11px;
font-family:Tahoma, Verdana, Arial, Helvetica, sans-serif;
border:1px solid #525722;
background-color:#FFFFFF;
}
.TablasTitulo {
color: #333333;
font-size:11px;
font-family:Tahoma, Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
border-left:1px solid #ECEED5;
border-top:1px solid #ECEED5;
border-right:1px solid #525722;
border-bottom:1px solid #525722;
height:26px;
background-color:#BEC86F;
}
.TablaSimple {
color: #000000;
font-size:11px;
font-family:Tahoma, Verdana, Arial, Helvetica, sans-serif;
text-decoration:none;
}
.Botones {
color: #FFFFFF;
font-size:11px;
font-family:Tahoma, Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
height: 18px;
width: 110px;
border-left:1px solid #5C5754;
border-top:1px solid #5C5754;
border-right:1px solid #000000;
border-bottom:1px solid #000000;
background-color:#616264;
cursor:hand;
}
INPUT,SELECT,TEXTAREA {
color: #000000;
font-size:11px;
font-family:Tahoma, Verdana, Arial, Helvetica, sans-serif;
border:1px solid #000000;
background-color:#FFFFFF;
}
</style> |