Foros del web, para los que viven de bits

Mithrandir · 26/09/05, 14:46:08

Decidí colocar esta clase porque es lejos, la mejor función que he encontrado para subir archivos.

Es robusta y flexible mientras el resto de lo que encuentro son scripts que medio funcionan.

http://www.aspemporium.com/codelib.aspx?pid=139&cid=4

Al Zuwaga · 07/11/05, 16:54:41

Para "solucionar"* el Error 500, error interno del servidor:

1- En su Internet Explorer, vaya al menú "Herramientas -> Opciones de internet -> Opciones avanzadas" y desmarque "Mostrar mensajes descriptivos de los errores http". Luego intente acceder nuevamente a su página.

2- Mejor deje de usar esa cosa llamada Internet Explorer y beneficiese usando Firefox.

*En realidad no se soluciona nada, sino que se hace posible enterarnos sobre el ERROR REAL

ositobad4 · 03/12/05, 10:32:51

SOLUCION REAL PARA ERRORES:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

Microsoft
JET Database Engine (0x80004005). Error Desconocido.

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x6cc Thread 0x78c DBC 0x144cfc4 Jet'.

Deben darles permiso, contro total a la carpta donde tiene su sitio ejemplo c:\inetpub\wwwroot\misitio, al usuario: IUSR_Nombre_Equipo, puede ser a la carpeta como a la base de datos. generalmente todos hacen esto y siguen con el problema como a mi pero busque por ahi la solcuion y es que tambien deben darle los mismos permisos, control total a la carpeta TEMP de su equipo (esto yo no lo sabia lo hize y solucione todos mis problemas) y tambien al usuario IUSR_Nombre_Equipo si no llegase a estar lo agregan..

Saludos....a mi me paso esto, lleve dias sin resolverlo y lo hize.

Saludos desde chile
AlejandRO

JuanRAPerez · 08/12/05, 10:26:37

no se si lo borraran o lo moveran, pero esto yo me andube dando como loco y no encontre en ningun lugar como hacerlo.

Problema: tenia que montar musica navideña par la musica, pero de una forma continua, para que la gente de mi intranet pudiera tener acceso a ella, existian un par de cosas que resolver, por ejemplo, no poner los audios en buena calidad y evitar distociones y sobre todo trafico innecesario en la intranet.

solucion:
Descargue una aplicacion hecha en PHP que alguien puso el codigo para asp y es del que voy a hablar en adelante.

Descargar de: http://www.radioblogclub.com/
es una pequeña animación flas que reproduce canciones en formato *.rbs

en la misma aplicación viene el convertidor de MP3 a RBS (facilisimo de usar), el cual baja audios de 5 megas en 900kb y con calidad buena de audio.

lo copie en mi sitio web, y solo tuve que agregar en tipos MIME las extensiones rbs
Directorio /radio.blog/

para esto te vas al IIS
propiedades del sitio
encabezados HTTP
tipos de archivo
nuevo
estension asociada: .rbs
MIME: application/octet-stream

listo

luego en el raiz de /radio.blog/
copie el siguiente asp

default.asp

Cita:

<html>
<head>
<title>RADIO.BLOG</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#3,0,0,0" width="220" height="300">
<param name="src" value="radioblog.swf?autoplay=<% = request("autoplay") %>">
<param name="quality" value="high">
<embed src="radioblog.swf?autoplay=<% = request("autoplay") %>" type="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" width="220" height="300">
</object><br>

</body>
</html>

copie los audios preparados en
/radio.blog/sound

y dentro de el el siguiente asp

playlist.asp

Cita:

<%

CONST FILE_EXT = ".rbs"

dim path
dim oXml, oNodeTrk
dim oFso, oFld, oFile

path = server.mappath(".")

set oFso = server.createObject("Scripting.FileSystemObject")
set oFld = oFso.getFolder(path)

set oXml = server.createobject("MSXML2.DOMDocument")
oXML.async=false

set oXML.documentElement = oXML.createElement("tracks")

for each oFile in oFld.files

if right(oFile.name, 4) = FILE_EXT then

set oNodeTrk = oXml.createElement("track")
oXML.documentElement.appendChild oNodeTrk

oNodeTrk.setAttribute "trackMod", dateDiff("s", cdate("1970-01-01"), oFile.DateLastModified)
oNodeTrk.setAttribute "title", left(oFile.name, len(oFile.name)-4)
oNodeTrk.setAttribute "path", oFld.name &"/"& oFile.name

set oNodeTrk = nothing

end if

next

'response.contentType = "text/xml"

response.write "<?xml version=""1.0"" encoding=""UTF-8""?>"
response.write oXml.xml

set oXml = nothing
set oFso = nothing

%>

listo solo necesitas probarlo
para auto play tendias que poner en tu navegador

default.asp?autoplay=1

archivos necesarios
config.xml - cambia la apariencia de colores del reproductor
radioblog.swf - reproductor de audios
rbcore.swf -

los dos asp anteriores

suerte
si quieren probarlo
entren a :

http://juanra.cybercentro.com.sv/nav...asp?autoplay=1

jijiji esperando les sirva y que el enlace no lo haya removido para proximos años

saludos

editado:
ojo la musica en rbs no deve de llevar caracteres extraños
ni eñes ni tildes, ni otro caracter, porque eso hace errores en el barrido de el asp playlist

gorka_arai · 02/03/06, 09:03:38

¿Cómo muestro mis resultados por páginas? Lo que se llama "paginación de resultados"...

He akí una manera de paginar tus resultados para dar un toque "pofesional" a tu web:

Este código debe ir en una página que se llame "Paginar.asp":

Código:

<HTML>
<BODY>
<%
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
dim strsql 'Consulta sql

mostrar = 20 ' Pueden modificar este número para cambiar la cantidad de registros por página

' IF para saber que página mostrar
if request("page")="" then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
'Conexión con la BD
dim conex,reg,sql,usuario 
set conex=server.CreateObject("ADODB.Connection")
set reg=server.CreateObject("ADODB.Recordset")
conex.ConnectionString="provider=microsoft.jet.oledb.4.0; data source=" & server.MapPath("Nombre_de_tu_base.mdb")
conex.Open 
sql="select * from tabla where Nombre_campo_tabla=" & nom_variable & ""
reg.Open sql,conex,3,2
' Creamos el RecordSet y definimos la cantidad de registros a mostrar
reg.PageSize = mostrar
reg.CacheSize = mostrar
'contamos las páginas que se formaron con la variable mostrar.
cant_paginas = reg.PageCount
' Si el pedido de página cae fuera del rango,
' lo modificamos para que caiga dentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1

' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then%>
	<%Response.Write("NO HAY REGISTROS")%>
<%Else
' Nos movemos a la página elegida
reg.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
%>
<FONT face=Arial><FONT>
<FONT SIZE="+1">Página <B><%= pagina_actual %></B> de <B><%= cant_paginas %></B></FONT>
<%
' Espacios
Response.Write "<BR><BR>" & vbCrLf
'iniciamos la tabla donde mostraremos todo
Response.Write "<TABLE BORDER=""1"" width=""300"" bordercolor=""black"">" & vbCrLf%>
<tr bgcolor=red>
				<th colspan=20><FONT face=Arial size=2><STRONG><FONT color=ivory> TITULO TABLA</STRONG></FONT></FONT></th>
			</tr><br>
<%' Mostramos los titulos de las columnas... (pueden sacar ese FOR para eliminar eso)
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To reg.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><B><FONT face=Arial size=2 color=mediumblue>"
Response.Write reg.Fields(I).Name
Response.Write "<B></TD></FONT>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not reg.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To reg.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write reg.Fields(I)
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
reg.MoveNext
Loop

'listo...
Response.Write "</TABLE>" & vbCrLf
End If

' Cerramos y limpiamos...
reg.Close
Set reg = Nothing
conex.Close
Set conex = Nothing

' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
</FONT></FONT>
<A href="./paginar.asp?eje=30&amp;page=<%= pagina_actual - 1 %>" ><FONT 
face=Arial>[&lt;&lt; Anterior]</FONT> </a>
<%
End If

' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>
<FONT face=Arial> </FONT>
<A href="./paginar.asp?eje=30&amp;page=<%= I %>" ><%= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%>
<A href="./paginar.asp?eje=30&amp;page=<%= pagina_actual + 1 %>" ><FONT 
face=Arial>[Próximo &gt;&gt;]</FONT ></a>
<%
End If
'Fin...
%>
%>
<form action="Paginar.asp" method="post" name="form332" id="form332">
	<input type="hidden" name="page" value="<%=pagina_actual%>">
	<p><input type="submit" value="VOLVER" name="cmd_volver"></p>
</form>
<%
</BODY>
</HTML>

Dorita · 07/03/06, 14:24:18

Código:

Página Index.asp:


<form name="frm1" method="post" action="guardar.asp">

<select name="lstProc" class="caja" onChange="location.href='Index.asp?IdProcedimiento=' + 
					frm1.lstProc.options[frm1.lstProc.selectedIndex].value">  
				<option value="0">Seleccione Tipo Proc.</option>  														
<%					Sql = "SELECT codTipoProc, tipoProc FROM TblTipoProcedimientoExpress"
					Rst.Open Sql, Con   														
                
					Procedimiento = Request.QueryString("IdProcedimiento")
										
					Do While Not Rst.EOF
						codTipoProc = Trim(Rst("CodTipoProc"))
						TipoProc = Trim(Rst("TipoProc"))
						
						If Procedimiento <> "" Then
							If (CInt(Procedimiento) = CInt(codTipoProc)) Then %>
								<option value="<%=codTipoProc%>" selected><%=TipoProc%></option>
<%							Else %>
								<option value="<%=codTipoProc%>"><%=TipoProc%></option>
<%							End If%>								
<%						Else %>						
							<option value="<%=codTipoProc%>"><%=TipoProc%></option>
<%						End If									
						
						Rst.Movenext
					Loop
					
					Rst.Close %>
            </select>			
			</td>
			<td>						
			<select name="lstPlataforma" onChange="location.href='Index.asp?IdPlataforma=' +   
				frm1.lstPlataforma.options[frm1.lstPlataforma.selectedIndex].value + '&IdProcedimiento='+ frm1.lstProc.options[frm1.lstProc.selectedIndex].value">  
				<option value="0">Seleccione Plataforma</option>
<%				If Request.QueryString("IdProcedimiento") <> "" Then %>					
					
<%					idProced = CInt(Request.QueryString("IdProcedimiento"))
					idPlataforma = CInt(Request.QueryString("IdPlataforma"))
					
					 Sql = "SELECT codTipoPlataforma, NombrePlataforma FROM TblSistemaProcExpressPlataforma WHERE codTipoProc = "&idProced&";"					 
					 Rst.Open Sql, Con
					
					 Do While Not Rst.EOF
					 
						codTipoPlataforma = Trim(Rst("codTipoPlataforma"))
						NombrePlataforma = Trim(Rst("NombrePlataforma")) 
						
						If idPlataforma <> "" Then
							If (CInt(idPlataforma) = CInt(codTipoPlataforma)) Then %>
								<option value="<%=codTipoPlataforma%>" selected><%=NombrePlataforma%></option>
<%							Else %>
								<option value="<%=codTipoPlataforma%>"><%=NombrePlataforma%></option>
<%							End If%>								
<%						Else %>						
							<option value="<%=codTipoPlataforma%>"><%=NombrePlataforma%></option>
<%						End If	%>																			
<%						Rst.Movenext
					 Loop
					 Rst.Close					
				End If %>				
            </select>			
			</td>
		</tr>		
          <tr>
            <td>Momento</td>
            <td>			

			<select name="lstMomento">  
				<option value="0">Seleccione momento</option>
<%				If Request.QueryString("IdPlataforma") <> "" Then %>					
					
<%					idPlataforma = CInt(Request.QueryString("IdPlataforma"))
					
					
					 Sql = "SELECT CodigoMomento, NombreMomento FROM TblSistemaProcExpressMomento WHERE codTipoPlataforma = "&idPlataforma&";"					 
					 Rst.Open Sql, Con
					
					 Do While Not Rst.EOF
					 
						codigoMomento = Trim(Rst("CodigoMomento"))
						NombreMomento = Trim(Rst("NombreMomento")) %>	
						
						<option value="<%=codigoMomento%>"><%=NombreMomento%></option>
						
<%						Rst.Movenext
					 Loop
					 Rst.Close					
				End If %>				
            </select>

</form>

sjam7 · 24/03/06, 11:22:48

No se si ya este pero no lo encontre, para poder contar los registros en ACCESS pues usamos algo asi:

Código:

SQL="Select * From TABLA"
RS.Open SQL, oConn,1,1

cuantos=RS.RecordCount

En MySQL esto no funciona, siempre dara como resultado -1, pero si agregamos esta linea:
RS.CursorLocation = 3

antes del RS.Open...

WALAA

JuanRAPerez · 04/09/06, 18:15:21

hay varias funciones en las faq para limpiar cadenas y evitar html y sql injection... una mas que encontre fuera del foro y que creo que les servira (si ya esta publicada aqui no la vi)

funcion

Cita:

<%
Function Caracteres_Ilegales(stringEntrada)

Dim stringCaracteresMalos, iCounter

Caracteres_Ilegales = False

stringCaracteresMalos = array("http://", "<h1>", "url", "link=", "[h1]", "[a]", "[href]")

For iCounter = 0 to uBound(stringCaracteresMalos)

If Instr(stringEntrada,stringCaracteresMalos(iCounter ))>0 Then
Caracteres_Ilegales = True
End If
Next
End function
%>

uso

Cita:

If Caracteres_Ilegales(comentario) = True OR Caracteres_Ilegales(email) = True Then
response.redirect("enegado_publicacion.asp")
End If

fuente
http://www.thescripts.com/forum/thread513587.html

espero le sirva a alguien como a mi...
en mi caso en lugar de response.redirect puse
publciar = "pendiente"

asi mando un mail al administrador del sitio con ese post para un libro de visitas que requeire de su aprobacion o eliminacion si fuese publicidad.

suerte

Boxmaster · 11/10/06, 09:17:20

Saludos, les dejo este vinculo que describe la forma de subir imagenes al servidor y al mismo tiempo agregarlas (path de la imagen) a una db MySQL.

subir imagenes al servidor -baja todo el codigo completo y coemntado-

Espero sea de ayuda para aquellos compañeros que deseen tener una idea mas amplia de como hacerlo, y para los que ya saben y deseen aporta mas soluciones e ideas con gusto recibire sus comentarios.

Myakire · 27/12/06, 12:01:45

El contenido de este link es muy interesante

http://www.microsoft.com/technet/pro...ips.mspx#EOMAC

Anita123 · 12/04/07, 02:26:16

También se pueden seleccionar directamente rangos indicando las cela superior izquierda e inferior derecha:

"Select * From A4:IV65536"

Shiryu_Libra · 11/05/07, 18:15:03

Compañeros, ultimamente hemos tenido muchas preguntas sobre CDOSYS, asi que encontre este enlace que espero les sea de mucha ayuda.

Utilizar SMTP para los mensajes salientes

explica:

Funcionamiento
Configuracion para Windows 2000
Comprobar el servicio
Ejemplos de Prueba

Suerte

darkmcloud · 08/11/07, 20:11:38

No se si sera un gran aporte.....pero comparto con todos ustedes un BUSCADOR MULTIPLE con distintos criterios de busqueda:

Cita:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<FORM ACTION='Validar.asp' METHOD='GET' id=form1 name=form1>
</HEAD>
<body bgcolor="#FFCC66" background="2.jpg" text="BLACK" link="BLACK" vlink="BLACK" alink="BLACK">
<%

dim dbConn

'aca recibo los campos que voy a realizar la busqueda
'si quieren agregar mas.....simplemente los agregan aca y despues en las variables

csr = Request.form("csr")
distribuidor = Request.form("distribuidor")
estado = Request.form("estado")

On Error Resume next

'declaro las variables a utilizar incluyendo la se_encuentra
Dim Rs, Cnn, SQL, se_encuentra
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

'ejecuto la consulta
strSQL="SELECT * FROM tblcliente"
se_encuentra = False
if csr <> "" then
strSQL=strSQL & " WHERE csr LIKE '%"&csr&"%'"
se_encuentra=True
end if

'la variable se_encuentra se inicializa en falso y se cambia a verdadero si el campo trae un valor ingresado

if distribuidor <> "" then
if se_encuentra then
strSQL=strSQL & " AND distribuidor LIKE '%"&distribuidor&"%'"
else
strSQL=strSQL & " WHERE distribuidor LIKE '%"&distribuidor&"%'"
se_encuentra=True
end if
end if

if estado <> "" then
if se_encuentra then
strSQL=strSQL & " AND estado LIKE '%"&estado&"%'"
else
strSQL=strSQL & " WHERE estado LIKE '%"&estado&"%'"
se_encuentra=True
end if
end if
'abrimos la tabla para llamar los registros
set rs = Cnn.Execute(strSQL)

cnn.Execute(strSQL)

if rs.EOF then
Response.Write("No existe el campo ingresado, verifique los datos")
else %>
'si encuentra los datos, mostramos los resultados
<CENTER>
<TABLE WIDTH=2000 BORDER=1 align="center" CELLSPACING="0">
<tr> <td width=80 bordercolor="#F0F0F0"bgcolor="ORANGE"><center><b>C sr</b></center>
<td width=100 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Local</b></center>
<td width=99 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Guia De Despacho</b></center>
<td width=134 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Distribuidor</b></center>
<td width=102 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Fecha Ingreso</b></center>
<td width=160 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Artefacto</b></center>
<td width=100 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Serie</b></center>
<td width=80 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Estado</b></center>
</tr> </table> </CENTER>

<%do while not rs.EOF%>

<center>
<TABLE BORDER=1 CELLSPACING="0" WIDTH=2000>
<tr>
<%Response.Write "<td WIDTH=80 align='center' >"&rs("csr")&"<td WIDTH=100 align='center'>"&rs("loc")&"<td WIDTH=99 align='center'>"&rs("guia_d")&"<td WIDTH=134 align='center'>"&rs("distribuidor")&"<td WIDTH=102 align='center'>"&rs("fecha_in")&"<td WIDTH=160 align='center' >"&rs("artefacto")&"<td WIDTH=100 align='center' >"&rs("serie")&"<td WIDTH=80 align='center' >"&rs("estado")%>
<br> </tr>
<%rs.Movenext%>
</table></center>
<%loop

end if

rs.Close

set rs = nothing

Cnn.Close

set oCnn = nothing

%>
<br> <br> <font face="Verdana">
<h3> <center> <a href="../menu.asp">Volver</a> </center> </h3>
</font>
</body>
</html>

espero que les sirva

Shiryu_Libra · 03/02/08, 10:39:03

Version ilustrada

Pregunta: Como otorgo permisos de escritura??? Cual es el procedimiento??

Primero que nada, debemos entrar a las opciones de carpeta dentro del menu Herramientas, para activar nuestra pestaña de seguridad

el siguiente paso sera desmarcar donde dice "Utilizar uso compartido simple de archivos"

eso de recomendado como que no.....

una ves realizado este segundo paso, damos aceptar, y regresamos a la carpeta que nos interesa

ya una ves que demos click sobre las propiedades de la carpeta, aparecera ahora si nuestra pestaña de seguridad, donde estableceremos a que usuario y que privilegios tendran dentro de esta carpeta.... las ilustraciones a continuacion estaran numeradas para realizar el procedimiento sencillo..

una ves establecidos los privilegios que tendra cada uno de nuestros usuarios en esa carpeta especifica, podran o no, escribir o leer el contenido

nota aclaratoria:..a pesar que esta actividad es para que nuestras paginas ASP funcionen correctamente, tambien dentro del uso normal de nuestro sistema, podran mantener en privado o sin acceso a ella, a otros usuarios

tambien deben recordar que cualquier administrador podra quitar esos atributos

JuanRAPerez · 21/04/08, 11:04:47

Bueno, dejo esto aquí porque me ha dado líos encontrar la respuesta y quizás a alguien le sirva mas adelante.

error es:

Cita:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Controlador ODBC Microsoft Access] Error de disco o de red.

/demos/07102/include/ConectorBaseDatos.asp, línea 5

El escenario es:
+ Windows Vista
+ IIS 7
+ ASP 3.0
+ Conexión a base de datos access funcionando perfectamente en otra pc.

Solución:

Buscar en la siguiente ruta
C:\Windows\System32\inetsrv\config

archivo llamado:
ApplicationHost.Config

Cambiar las siguientes lineas

Cita:

por

Cita:

ni idea de porque pero ya funciona

suerte