Foros del web, para los que viven de bits

Mithrandir · 26-sep-2005, 14:46

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-nov-2005, 16:54

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-dic-2005, 10:32

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-dic-2005, 10:26

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-mar-2006, 09:03

¿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-mar-2006, 14:24

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-mar-2006, 11:22

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-sep-2006, 18:15

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-oct-2006, 09:17

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-dic-2006, 12:01

El contenido de este link es muy interesante

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

Anita123 · 12-abr-2007, 02:26

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

"Select * From A4:IV65536"

Shiryu_Libra · 11-may-2007, 18:15

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-nov-2007, 20:11

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-feb-2008, 10:39

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-abr-2008, 11:04

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

Shiryu_Libra · 30-may-2008, 13:41

Version Ilustrada

Pregunta: Como puedo mostrar errores descriptivos desde la consola de IIS7 en Windows Vista (referencias de imagenes desde un Vista Ultimate)

Los tipicos 3 pasos de rigor (solo para usuarios que apenas incursionan en esto), que debemos hacer

Otro atajo, es dar Click derecho sobre EQUIPO, Administrar

NOTA: si ya sabes llegar, omite estos 3 pasos, y brinca directamente al paso 4

Paso1

Paso 2
buscaremos dentro del PANEL DE CONTROL

HERRAMIENTAS ADMINISTRATIVAS

Paso 3

Seleccionaremos "Administrador de INTERNET INFORMATION SERVICES (IIS)"

Paso 4
Desplegaremos hasta seleccionar "Default Web Site", o en su caso respectivo el sitio web que deseen

Paso 5

Daremos doble click sobre "Paginas de Errores"

Paso 6

En el panel derecho se encontrara una leyenda que dice
"MODIFICAR CONFIGURACION DE CARACTERISTICA..."

Paso 7

por default, tiene activada "Errores detallados para solicitudes locales y paginas de errores personalizados para solicitudes remotas"

sean cautelozos en este sentido

NOTA: significa que si ejecutamos en el entorno 127.0.0.1 o si estamos haciendo pruebas dentro del mismo pc, nos mostrara completamente el error, dando el numero de linea.. etc

pero si lo hacemos utilizando un segundo equipo dentro de nuestra red, no dara ningun detalle

sean concientes que si esto es para una web interna, no habra tanto problema, pero si activan esta caracteristica para un web de consulta externa(internet), podria ser un riesgo de seguridad

ya que estariamos dando armas para romper el codigo

26-sep-2005, 14:46	#121 (permalink)
Mithrandir Moderador Fecha de Ingreso: abril-2003 Mensajes: 12.108	Otro más para subir archivos 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 __________________ "El hombre, en su orgullo, creó a Dios a su imagen y semejanza." Friedrich Nietzsche

07-nov-2005, 16:54	#122 (permalink)
Al Zuwaga Moderador Fecha de Ingreso: noviembre-2002 Ubicación: 34.517 S, 58.500 O Mensajes: 12.300	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* __________________ ···---··· Última edición por Al Zuwaga; 23-dic-2005 a las 08:59.

03-dic-2005, 10:32	#123 (permalink)
ositobad4 Fecha de Ingreso: noviembre-2005 Mensajes: 15	Solucion A Este Error 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

08-dic-2005, 10:26	#124 (permalink)
JuanRAPerez Colaborador Fecha de Ingreso: octubre-2003 Mensajes: 1.774	sonar musica continua (tipo radio) en asp 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 __________________ JuanRa Pérez San Salvador, El Salvador

24-mar-2006, 11:22	#127 (permalink)
sjam7 Fecha de Ingreso: noviembre-2002 Ubicación: Guadalajara, Mexico Mensajes: 3.254	Contar Registros En Mysql 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 __________________ CreandoWebs.com www.creandowebs.com PLANTILLAS TEMPLATEMONSTER CON 10% DE DESCUENTO

04-sep-2006, 18:15	#128 (permalink)
JuanRAPerez Colaborador Fecha de Ingreso: octubre-2003 Mensajes: 1.774	html y sql injection - no insertar 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 __________________ JuanRa Pérez San Salvador, El Salvador

11-oct-2006, 09:17	#129 (permalink)
Boxmaster Fecha de Ingreso: agosto-2004 Ubicación: Ahorita... frente a mi PC Mensajes: 74	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. __________________ México no es México sin su gente, y la democracia no es de algunas personas, es de todos. Hagamos valer nuestros derechos.

27-dic-2006, 12:01	#130 (permalink)
Myakire Moderador Fecha de Ingreso: noviembre-2002 Mensajes: 6.520	25 Tips para mejorrar el rendimiento de las páginas ASP El contenido de este link es muy interesante http://www.microsoft.com/technet/pro...ips.mspx#EOMAC

12-abr-2007, 02:26	#131 (permalink)
Anita123 Fecha de Ingreso: abril-2007 Mensajes: 1	Re: Las FAQ's del foro de ASP También se pueden seleccionar directamente rangos indicando las cela superior izquierda e inferior derecha: "Select * From A4:IV65536"

11-may-2007, 18:15	#132 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.676	Re: FAQ's del foro de ASP 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 __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

08-nov-2007, 20:11	#133 (permalink)
darkmcloud Fecha de Ingreso: octubre-2007 Mensajes: 86	Re: FAQ's del foro de ASP 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

03-feb-2008, 10:39	#134 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.676	Re: FAQ's del foro de ASP 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 __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

21-abr-2008, 11:04	#135 (permalink)
JuanRAPerez Colaborador Fecha de Ingreso: octubre-2003 Mensajes: 1.774	Microsoft OLE DB Provider for ODBC Drivers error '80004005' Error de disco o de red. 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: <applicationPoolDefaults> <processModel identityType="NetworkService" /> </applicationPoolDefaults> por Cita: <applicationPoolDefaults> <processModel identityType="NetworkService" loadUserProfile="false" /> </applicationPoolDefaults> ni idea de porque pero ya funciona suerte __________________ JuanRa Pérez San Salvador, El Salvador

30-may-2008, 13:41	#136 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.676	Respuesta: FAQ's del foro de ASP Version Ilustrada Pregunta: Como puedo mostrar errores descriptivos desde la consola de IIS7 en Windows Vista (referencias de imagenes desde un Vista Ultimate) Los tipicos 3 pasos de rigor (solo para usuarios que apenas incursionan en esto), que debemos hacer Otro atajo, es dar Click derecho sobre EQUIPO, Administrar NOTA: si ya sabes llegar, omite estos 3 pasos, y brinca directamente al paso 4 Paso1 Paso 2 buscaremos dentro del PANEL DE CONTROL HERRAMIENTAS ADMINISTRATIVAS Paso 3 Seleccionaremos "Administrador de INTERNET INFORMATION SERVICES (IIS)" Paso 4 Desplegaremos hasta seleccionar "Default Web Site", o en su caso respectivo el sitio web que deseen Paso 5 Daremos doble click sobre "Paginas de Errores" Paso 6 En el panel derecho se encontrara una leyenda que dice "MODIFICAR CONFIGURACION DE CARACTERISTICA..." Paso 7 por default, tiene activada "Errores detallados para solicitudes locales y paginas de errores personalizados para solicitudes remotas" sean cautelozos en este sentido NOTA: significa que si ejecutamos en el entorno 127.0.0.1 o si estamos haciendo pruebas dentro del mismo pc, nos mostrara completamente el error, dando el numero de linea.. etc pero si lo hacemos utilizando un segundo equipo dentro de nuestra red, no dara ningun detalle sean concientes que si esto es para una web interna, no habra tanto problema, pero si activan esta caracteristica para un web de consulta externa(internet), podria ser un riesgo de seguridad ya que estariamos dando armas para romper el codigo __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado