FAQ's del foro de ASP

[Artepop]

4.- ¿Donde consigo un buen foro?

Yo uso este: http://www.youngpip.com/

Por fin me voy enterando sobre ASP

Gracias

[korev]

P: ¿Cómo puedo saber la ip del usuario? ¿De dónde viene? ¿Canta por las mañanas en la ducha?

R: Con este sencillo script se recorre la colección. Recomendable para usar la más adecuada cuando hay dudas, y el ejemplo es uno mismo si se quiere.

Código:

<TABLE>
      <TR>
           <TD>
                <B>Server Varriable</B>
           </TD>
           <TD>
                <B>Value</B>
           </TD>
      </TR>

      <% For Each name In Request.ServerVariables %>
      <TR>
           <TD>
                <%= name %>
           </TD>
           <TD>
                <%= Request.ServerVariables(name) %>
           </TD>
      </TR>
      <% Next %>
</TABLE>

[lexus]

P: ¿Como manipular Bases de datos de INTERBASE con ASP?

R:
1) hay que bajar el controlador ODBC para interbase de aqui (es gratuito)
http://www.xtgsystems.com/download/ib6odbc.zip

2) haces la conexion y el sql para consultar los datos

set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={XTG Systems InterBase6 ODBC driver};" & _
"DB=localhost:C:\prueba\DBSMS.GDB;" & _
"Uid=SYSDBA;" & _
"Pwd=masterkey"
set rs = con.Execute("select CAMPO1, CAMPO2 from TABLA Where CAMPO1 = 5 Order by CAMPO2 DESC")


espero les sirva. suerte

[ElAprendiz]

Sabido es que las busquedas por fechas son complicadas y a veces no nos dan los resultados que esperamos. Una buena manera de hacer una busqueda por fechas es: al grabar la fecha, tambien grabar su equivalente numericoa traves de una formula, un ejemplo:

<%
'**** conexion ****
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open= "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="&server.mappath("mibdd.mdb")

fecha= date()
dia= day(fecha)
mes= month(fecha)
anio=year(fecha)

'*** con esta formula obtenemos la fecha en formato numerico ***
fecha_numero = dia + mes*31+ anio*365 + 365

'******** Mi Sentencia SQL de insercion ********
SQl="insert into fechas(fecha, fecha_num) values ("&fecha&", "&fecha_numero&")"
set inserta =conn.execute(sql)

'*** luego al buscar lo hacemos por el campo numerico de la fecha (fecha_num)**
SQL="select * from campo where fecha_numero>="&fecha1&" and fecha_numero <= "&fecha2&" "
%>
Creditos:Bakanzipp

[TurKa]

Para enviar un e-mail con formato HTML mediante CDONTS se debe indicar "0" (cero) a:

.BodyFormat = 0
.MailFormat = 0

Si en cambio ponemos "1" (uno) se enviará en formato solo texto.
Luego bastará escribir el mensaje con código HTML.

Ejemplo:

<%
Set Mail = Server.CreateObject ("CDONTS.Newmail")

Mail.BodyFormat = 0
Mail.MailFormat = 0

Mensaje = <b><font face='Arial' size='2'>Texto aquí</b>"
Mensaje = Mensaje & "<br>Más texto"

Mail.From = "Tu Nombre<[email protected]>"
Mail.To = "[email protected]"
Mail.Subject = "Asunto del mensaje"
Mail.Body = Mensaje

Mail.Send
Set Mail = Nothing
%>

[lubetpic]

paginacion con classes, correccion del viejo

create un class.asp:
<%

Class paginado

Public pagina
Public cnn
Public error
Public por_pagina
Public total_registros
Public consulta
Public orden_lista
Public rs
Public desde
Public encabezado
Public ancho_encabezado
Public alineacion
Public ancho

Function paginar()

If IsEmpty(Me.cnn) then
paginar = False
Err.Description = "No Conection with the Database"
Exit Function
End if

If isEmpty(Me.consulta) then
paginar = False
Err.Description = "No se especificó la consulta sobre la Base de Datos"
Exit Function
End if

'VALORES POR DEFECTO
Me.pagina = Request.ServerVariables("URL")

If isEmpty(Me.por_pagina) then
Me.por_pagina = 50
End if

If isEmpty(Me.desde) then
Me.desde = 0
End if

If isEmpty(Me.alineacion) then
Me.alineacion = "center"
End if

If isEmpty(Me.ancho) then
Me.ancho = "100%"
End if
'FIN DE VALORES POR DEFECTO

set Me.rs = Server.CreateObject("ADODB.Recordset")
Me.rs.Open Me.consulta,Me.cnn,3,1
Me.total_registros = Me.rs.RecordCount
ban_error = 0
If Me.total_registros > 0 then
Me.rs.Move Me.desde
inicio = Me.rs.Bookmark
table = Me.rs.GetRows(Me.por_pagina,inicio)
else
ban_error = 1
end if
Me.rs.Close()
set Me.rs = Nothing

If ban_error <> 1 then
encabezado = split(Me.encabezado,",")
ancho_enc = split(Me.ancho_encabezado,",")
orden_lista = split(Me.orden_lista,",")%>
<table border=0 align="<%=Me.alineacion%>" width="<%=Me.ancho%>">
<tr>
<%For k=0 to Ubound(encabezado)%>
<td bgcolor="#FFFFCC" width="<%=ancho_enc(k)%>" align="center">
<font size='1' face='verdana'><b><a href="<%=Me.pagina%>?orden=<%=orden_lista(k)%>"><% =encabezado(k)%></a></font></b>
</td>
<%Next%>
</tr>
</table>
<table border=0 align="<%=Me.alineacion%>" width="<%=Me.ancho%>">
<%For i=0 to Ubound(table,2)
Response.Write("<tr>")
For j=0 to Ubound(table,1)
Response.Write "<td width=" & ancho_enc(j) &"><font size='1' face='verdana'>"
if j=0 then
response.write "<a href='customers.asp?id="&table(0,i)&"'>"
end if
if j=3 then
response.write "<a href='mailto:"&table(3,i)&"'>"
end if
response.write table(j,i) & "</a></font></td>"
Next
Response.Write("</tr>")
Next
Response.Write("</table>")

If Ubound(table,2)+1 < Me.total_registros then
'En caso afirmativo calculamos el nº de páginas que tenemos
'y luego mostramos los links a las demás páginas
If (Me.total_registros mod Me.por_pagina) = 0 then
nro_paginas = Int(Me.total_registros / Me.por_pagina)
else
nro_paginas = Int(Me.total_registros / Me.por_pagina) + 1
end if%>

<table border=0 width="<%=Me.ancho%>" align="<%=Me.alineacion%>" cellspacing=0>
<tr>
<td bgcolor="#EEEEEE" > <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%'Acá mostramos los links de la forma: Página 1 | 2 | 3 | 4 ...%>
Page
<%For i=0 to nro_paginas-1%>
<%If Me.desde = i*Me.por_pagina then%>
<font title="Page"><%=i+1%></font></font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%else%>
<a href="<%=Me.pagina%>?orden=<%=session("orden_lista ")%>&ref=<%=i*Me.por_pagina%>" class="e" title="go to page <%=i+1%>"><%=i+1%></a>
<%end if%>
<%If i < nro_paginas-1 then
Response.Write(" | ")
end if
Next%>
</font></strong></td>
<td bgcolor="#EEEEEE"> <strong><font size="2" face="Arial, Helvetica, sans-serif">
<%
a = Me.desde + Me.por_pagina
b = Me.desde - Me.por_pagina
if (Me.desde = 0) and (Ubound(table,2)+1 < Me.total_registros) then%>
<a href="<%=Me.pagina%>?orden=<%=session("orden_lista ")%>&ref=<%=a%>" title="See <%=Me.por_pagina%> Next" class="e">Next
>></a>
<%end if
if (Me.desde+Me.por_pagina < Me.total_registros) and (Me.desde <> 0) then%>
<a href="<%=Me.pagina%>?orden=<%=session("orden_lista ")%>&ref=<%=b%>" title="See <%=Me.por_pagina%> Back" class="e"><<
Back</a> | <a href="<%=Me.pagina%>?ref=<%=a%>" title="See <%=Me.por_pagina%> Next" class="e">Next
>></a>
<%elseif (Me.desde <> 0) then%>
<a href="<%=Me.pagina%>?orden=<%=session("orden_lista ")%>&ref=<%=b%>" title="See <%=Me.por_pagina%> Back" class="e"><<
Back</a>
<%end if%>
</font></strong></td>
</tr>
</table>
<%end if
End if

End Function

End Class%>



luego donde vas a paginar:

<%
orden=request.querystring("orden")
if orden="" or orden=null then
orden="regdate"
end if
session("orden_lista")=orden

strConnection = "DSN=xxxxx;UID=xxxxx;PWD=xxxxx"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strConnection
set rs = new paginado

rs.cnn = cnn '* Conexión a la base de datos
if custo<>"" then
rs.consulta = "SELECT custid, fname,lname, email, country, referencias,regdate FROM customers where fname like '%"&custo&"%' or lname like '%"&custo&"%' or email like '%"&custo&"%'"

else
rs.consulta = "SELECT custid, fname,lname, email, country, referencias,regdate FROM customers order by "&orden&" desc"
end if
rs.desde = Int(Request.Querystring("ref")) '* Registro desde donde comienza el paginado, dejar como está
rs.por_pagina = 50 'Cantidad de Registros por página (10 por defecto)
rs.encabezado = "Id,Name,Lastname,Email,Country,Reference,Registed " '*Texto de cada Columna de datos
rs.orden_lista = "custid,fname,lname,email,country,referencias,regd ate"
rs.ancho_encabezado = "3%,5%,5%,15%,10%,15%,15%" '*Ancho de cada Columna de datos (pixeles o porcentaje)
rs.alineacion = "center" 'Alineación de la tabla que muestra los datos ("center" por defecto)
rs.ancho = "90%" 'Ancho de la tabla que muestra los datos (100% por defecto)
rs.paginar() '* Método que realiza la paginación y genera la tabla

If Err.Description <> "" then%>
<center>
<font class=texto_error><b>Error</b>: <%=Err.Description%></font>
</center>
<br>
<%end if

set rs = Nothing
%>

[MrLake]

¿Cómo hacer un asistente de consultas en WEB con SQLServer?


Ver Ejemplo: Ejemplo

Visita esta liga.
Asistente de consultas

[rashid]

Otra opcion aparte del xelUpload es:

http://www.soloasp.com.ar/vermensaje...14082&idforo=1

Lo he probado y funca bien, pero con fotos pesadas se cuelga.

[tarlipes]

Como la conexion que publicó el amigo Lexus no me funciono o no iba con este driver o que se yo....

set objconn = server.createobject("ADODB.Connection")
set objRS = server.createobject("ADODB.recordset")
objconn.Open "PROVIDER=MSDASQL;" & _

"DRIVER={Gemini InterBase ODBC Driver 2.0};" & _
"SERVER=localhost;" & _
"UID=sysdba;PWD=masterkey;" & _
"DataBase=localhost:F:\basesrrgg\dbger2.GDB;"

De esta forma a mi me anduvo...


Salute...

[deprabado]

OK esto no es una pregunta frecuente pero es muy util:

Cuando ejecutas una pagina ASP y te da algun error generalmente lo identifica con un numero, entra a la pagina de microsoft http://www.microsoft.com , y tipea el numero de error en el buscador, te mostrara todos los articulos relacionados con el erro y casi siempre la solucion.

si el error es en un componente has lo mismo pero en la pagina del fabricante del componente.

[deprabado]

que componentes sopota mi servidor??'

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
' there are a number of objects that come with IIS4
' these are put in the array that's declared below
Dim theInstalledObjects(8)

theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"

Function IsObjInstalled(strClassString)
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>

<HTML>
<HEAD>
<TITLE>Test of installed objects</TITLE>
</HEAD>
<BODY>

Enter the ProgId or ClassId of the component you want to test in the textbox below. If you leave it empty, the default
components will be tested.

<FORM action=<%=Request.ServerVariables("SCRIPT_NAME")%> method=post>
<input type=text value="" name="classname" size=40>
<INPUT type=submit value=Submit>
<INPUT type=reset value=Reset>
</FORM>

<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If "" <> strClass then
Response.Write strClass & " is "
If Not IsObjInstalled(strClass) then
Response.Write "<strong>not installed</strong>"
Else
Response.Write "installed!"
End If
Response.Write "<P>" & vbCrLf
Else
' default: list all components that should be installed
%>

<TABLE BORDER=0>
<%
Dim i
For i=0 to UBound(theInstalledObjects)
Response.Write "<TR><TD>" & theInstalledObjects(i) & "</TD><TD>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<strong>not installed</strong>"
Else
Response.Write "installed!"
End If
Response.Write "</TD></TR>" & vbCrLf
Next
%>
</TABLE>

<%
End If
%>


a continuacion un listado de otros componentes:

AspImage.Image
CDONTS.NewMail
SOFTWING.AspTear
AspHTTP.Conn
JMail.SMTPMail
aspZip.EasyZIP
aspSmartZip.SmartZip
aspSmartMail.SmartMail

[Helbira]

P: ¿Cómo mostrar los acentos cuando se utiliza XMLHTTP?

R:

Código PHP:

     dim HTTP
   set HTTP=Server.CreateObject("Microsoft.XMLHTTP")
   HTTP.open "GET", Url , False
   HTTP.setRequestHeader "Accept-Language", "sp"
   HTTP.setRequestHeader "Pragma", "no-cache"
   HTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   HTTP.Send 
   

Un beso

[Helbira]

P: Como puedo convertir en ASP una fecha en formato TimeStamp (entero de tipo long que contiene el número de segundos entre el valor Unix Epoch (1 de enero de 1970) y la hora especificada) al formato dd/mm/aaaa

R:

Código PHP:

  Function timeStamp2Date(timestamp)
    Dim dias
    Dim fecha
    Dim resto
   
    dias = timestamp  86400
    fecha = DateSerial(1970, 1, dias + 1)
    resto = timestamp Mod 86400
    
    fecha = DateAdd("s", resto, fecha)
    
    timeStamp2Date=fecha
End Function 
   

Un beso

[Helbira]

P: Como puedo convertir en ASP una fecha en formato dd/mm/aaaa a TimeStamp

R:

Código PHP:

  Function date2TimeStamp(datFecha)
    Dim dias
    Dim segundos
 
    segundos = Second(datFecha) + Minute(datFecha) * 60 + Hour(datFecha) * 3600
    dias = DateDiff("d", "01/01/1970", datFecha)
    segundos = segundos + dias * 86400
    
    Hay que quitarle dos horas....
    date2TimeStamp = segundos - 7200
End Function 
   

Un beso

[BatusaiX]

Include con Iframe

<%
Dim url
url = Request.QueryString("dir")
if url = "" then
url = "paginapordefecto.html"
end if
%>

<IFRAME
width="685"
height="500"
src="<%=url%>" name="url" border="0" frameborder="0">
</IFRAME>

LINK = paginadeliframe.asp?dir=paginaquesedeseaincluir.ht ml