Foros del Web » Programando para Internet » ASP Clásico »

tutorial practico para tienda virtual en ASP

Estas en el tema de tutorial practico para tienda virtual en ASP en el foro de ASP Clásico en Foros del Web. Hola amigos estoy buscando un tutorial de ASP, he conseguido esta web salseando, la direccion es esta: http://www.terra.es/personal7/jose060170/ me gustaria si alguien me podria indicar ...
  #1 (permalink)  
Antiguo 05/05/2005, 11:49
el karrikiri
Invitado
 
Mensajes: n/a
Puntos:
tutorial practico para tienda virtual en ASP

Hola amigos estoy buscando un tutorial de ASP, he conseguido esta web salseando, la direccion es esta:
http://www.terra.es/personal7/jose060170/

me gustaria si alguien me podria indicar algo mas de esta web (si le suena), por si saben si hay alguna altualización o alguna pagina similar por ahi, mi nivel de programacion es muy basico, se lo agradeceria de verdad,

un saludo y gracias por anticipado
  #2 (permalink)  
Antiguo 23/05/2005, 10:29
Avatar de ludovico2000  
Fecha de Ingreso: noviembre-2003
Ubicación: Bizkaia
Mensajes: 1.315
Antigüedad: 20 años, 7 meses
Puntos: 2
Yo empecé a usar ASP con este mini-manual:

Abrir bases de datos:
'Creamos las variables para guardar los datos
Dim conexion,tabla
'Creamos la conexion a la BD
Set conexion=Server.CreateObject("adodb.connection")
'Abrimos la conexión con el driver de access (No es necesario hacer DSN)
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-base.mdb")
'Le decimos que abra la tabla que queremos usar para la base
Set tabla=Server.CreateObject("adodb.recordset")
'hacer la selección de la tabla ordenándola por fecha descendente
ssql = "SELECT * FROM tabla ORDER BY fecha desc;"
'aquí abre la tabla ordenándola
Tabla.Open ssql,Conexion

Mostrar bases de datos:
<table border="0" width="280">
'Hasta que la tabla no acabe
do while not tabla.eof
'El response.write se usa para escribir código dentro del ASP
'(Todo lo que escribamos no puede llevar comillas)
'(El principio del response se define abriendo comillas y para cerrarlo cerrando las
'comillas)

response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>De</u>: <b><a href=mailto:" & tabla ("mail") & ">" & tabla ("nombre") & "</a></b></font></td></tr>"
response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>Mensaje</u>:<br><b>" & tabla ("comentario") & "</b></font></td></tr>"
'Nos vamos al registro siguiente de la tabla
tabla.movenext
'Hacemos el loop
loop
'Cerramos la tabla de HTML
response.write "</table>"
'Cerramos la tabla de la base de datos
tabla.close
'Cerramos la conexión a la BD
conexion.close

Meter registros en la BD:
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
Set tabla=Server.CreateObject("adodb.recordset")
'Hay que poner lo de ,3,3 para que podamos escribir en la BD
Tabla.Open "tabla",Conexion,3,3
'Le decimos a la BD que vamos a meter cosas
tabla.addnew
'Ahora sacamos del formulario lo que vamos a meter y le decimos en qué campos
'de la tabla vamos a hacerlo

tabla ("titulo") = request.form ("titulo")
tabla ("direccion") = request.form ("direccion")
tabla ("descripcion") = request.form ("descripcion")
tabla ("imagen") = request.form ("imagen")
tabla ("id") = request.form ("id")
tabla ("pass") = request.form ("pass")
'Hacemos que la base se actualice
tabla.update
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close

Borrar registros de la base de datos:
Dim conexion,tabla,ide
'Recogemos de un formulario el campo ID y lo guardamos en una variable
ide = Request.form("id")
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
'Hacemos el SQl para borrar los registros de la BD los cuales el ID sea igual al ID
'que hemos recogido del formulario

sSQL = "delete * from tabla where nombre like '" & ide & "';"
'Ejecutamos el SQL en la BD
conexion.execute (sSQL)
response.write "Se han borrado todos los mensajes <br><center><a href=# onclick=window.close()>Pulsa aqui para cerrar esta ventana</a></center>"
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close



Login:
Hacer un formulario en el que cada campo tenga un name, por ejemplo
<form action="registro.asp" method="post">
<input type="text" name="id">
<input type="text" name="pass">

<input type="submit">
</form>

Ya en el ASP:

Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
Set tabla=Server.CreateObject("adodb.recordset")
'Hay que poner lo de ,3,3 para que podamos escribir en la BD
Tabla.Open "tabla",Conexion,3,3
'Le decimos a la BD que vamos a meter cosas
tabla.addnew
'Ahora sacamos del formulario lo que vamos a meter y le decimos en qué campos
'de la tabla vamos a hacerlo

tabla ("id") = request.form ("id")
tabla ("pass") = request.form ("pass")

'Hacemos que la base se actualice
tabla.update
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close


Hasta aquí es para que el usuario se registre
Ahora vamos a hacer que pueda identificarse:


<form action="identificate.asp" method="get">
<input type="text" name="id">
input type="text" name="pass">
<input type="submit">
</form>

Ya en el ASP:

'Hacemos que el ID lo coja de la barra de dirección del navegador
id= reqest.querystring
'Creamos las variables para guardar los datos
Dim conexion,tabla
'Creamos la conexión a la BD
Set conexion=Server.CreateObject("adodb.connection")
'Abrimos la conexión con el driver de acces (No es necesario hacer DSN)
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-base.mdb")
'Le decimos que abra la tabla que queremos usar para la base
Set tabla=Server.CreateObject("adodb.recordset")
'hacemos que compruebe que en la base de datos haya un usuario con la ID que pedimos
ssql = "SELECT * FROM tabla where id like '" & id & "';"
'aquí abre la tabla con la instrucción SQL
Tabla.Open ssql,Conexion

'Sacamos la contraseña del usuario de la base de datos y la guardamos en una variable
pass = tabla ("pass")
'Hacemos una estructura If Then Else
if reqest.form ("pass") = pass then
response.write "Ya puedes continuar navegando"
else
response.write "O no estás identificado o has escrito mal la contraseña<br>"
response.write "<a href=registrate.asp>Pulsa aquí si no estás registrado"
end if


Espero que te sirva, con esto y algo de instinto, podrás hacer lo que necesites. Y si no, preguntas, que siempre hay alguien en el foro dispuesto a ayudarte.

Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 15:44.