Volver al Programación / Codificación foro

Hiperenlace Ayuda!

  • anyusernamewilldo
  • Novice
  • Novice
  • No Avatar
  • Registrado: Ago 05, 2009
  • Mensajes: 22
  • Status: Offline

Nota Agosto 9th, 2009, 2:24 am

Hi All,

Tengo una forma que los usuarios se presenten en los hipervínculos.
El Hiperenlace se presenta y almacenados en una base de datos de acceso...

Sin embargo, cuando los resultados de la consulta se muestran como enlaces de texto. Hiperenlaces no?


Cualquier Consejos cómo puedo Retorno de los resultados de trabajo con los hipervínculos?

Gracias de antemano.

Jy
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Agosto 9th, 2009, 2:24 am

  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Agosto 9th, 2009, 11:55 am

¿Qué hace el código parece que está volviendo los resultados?
Watch me grow
  • anyusernamewilldo
  • Novice
  • Novice
  • No Avatar
  • Registrado: Ago 05, 2009
  • Mensajes: 22
  • Status: Offline

Nota Agosto 9th, 2009, 12:50 pm

Heres lo que el código de regresar la mirada resultados como:
El resaltado en rojo es el que desea que se devuelve como un hipervínculo en los resultados


Código: [ Select ]
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    Server.MapPath("form.mdb")
 
' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM users ORDER BY id DESC ", data_source
 
 
' Looping through the records to show all of them
While Not rs.EOF
    Response.Write "<form action='del.asp' method='post'>"
    Response.Write "***********************" & "<br>"
    Response.Write "<strong>Name :</strong> " & rs("name") & "<br>"
    Response.Write "<strong>Date :</strong> " & rs("dateposted") & "<br>"
    Response.Write "<strong>Link :</strong> " & rs("topic") & "<br><br>"
    Response.Write "<strong>Comments :</strong>  <br> " & rs("comments") & "<br>"
    Response.Write "<input type='hidden' name='id' value='" & rs("id") & "'>"
    Response.Write "<input type='submit' value='Delete'>" & "<br>"
    Response.Write "</form>"
    no = no + 1
    rs.MoveNext
Wend
 
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
 
Response.Write "<p>Total Records Found : " & no
%>
  1. <%
  2. ' Declaring variables
  3. Dim rs, data_source, no
  4. no = 0
  5. data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
  6.     Server.MapPath("form.mdb")
  7.  
  8. ' Creating Recordset Object and opening the database
  9. Set rs = Server.CreateObject("ADODB.Recordset")
  10. rs.Open "SELECT * FROM users ORDER BY id DESC ", data_source
  11.  
  12.  
  13. ' Looping through the records to show all of them
  14. While Not rs.EOF
  15.     Response.Write "<form action='del.asp' method='post'>"
  16.     Response.Write "***********************" & "<br>"
  17.     Response.Write "<strong>Name :</strong> " & rs("name") & "<br>"
  18.     Response.Write "<strong>Date :</strong> " & rs("dateposted") & "<br>"
  19.     Response.Write "<strong>Link :</strong> " & rs("topic") & "<br><br>"
  20.     Response.Write "<strong>Comments :</strong>  <br> " & rs("comments") & "<br>"
  21.     Response.Write "<input type='hidden' name='id' value='" & rs("id") & "'>"
  22.     Response.Write "<input type='submit' value='Delete'>" & "<br>"
  23.     Response.Write "</form>"
  24.     no = no + 1
  25.     rs.MoveNext
  26. Wend
  27.  
  28. ' Done. Now close the Recordset
  29. rs.Close
  30. Set rs = Nothing
  31.  
  32. Response.Write "<p>Total Records Found : " & no
  33. %>




Gracias de antemano por cualquier punteros de
  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Agosto 10th, 2009, 2:23 am

Código: [ Select ]
Response.Write "<strong>Link :</strong> <a href='" & rs("topic") & "'>" & rs("topic") & "</a>" & "<br><br>"
Watch me grow
  • anyusernamewilldo
  • Novice
  • Novice
  • No Avatar
  • Registrado: Ago 05, 2009
  • Mensajes: 22
  • Status: Offline

Nota Agosto 10th, 2009, 10:44 am

Ajusta como un barco!

Muchas gracias por las respuestas rápidas de primera clase perro rabioso
Todos estos indicadores básicos de su darme van a permitir que me diseño tantas cosas.

Gracias de nuevo


Jy
  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Agosto 10th, 2009, 11:01 am

Siempre es un placer :)
Watch me grow

Página 1 de 1

Publicar Información

  • Total de mensajes en este tema: 6 mensajes
  • Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 161 invitados
  • No puede abrir nuevos temas en este Foro
  • No puede responder a temas en este Foro
  • No puede editar sus mensajes en este Foro
  • No puede borrar sus mensajes en este Foro
  • No puede enviar adjuntos en este Foro
 
 

© 2011 Unmelted, LLC. Ozzu® es una marca registrada de Unmelted, LLC