Cita:
Iniciado por tammander
Necesitas tres cosas:
1 - Una tabla con un campo tipo OLE donde esten guardas las imagenes.
2 - Una página ASP que actue de IMAGEN. Este sería su contenido (mas o menos)
Código:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="../Connections/fotos.asp" -->
<%
response.Expires = 0
response.Buffer = True
response.Clear
dim id
id = request("id")
if id <> "" then
Set rs = Server.CreateObject("adodb.recordset")
strSQL = "select FileData,ContentTyped from fotos where id = " & id
rs.Open strSQL, MM_fotos_STRING
response.contentType = rs("ContentTyped")
response.BinaryWrite rs("FileData")
rs.Close
end if
response.End
%
3 - La página ASP desde la que es llamada la anterior:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Imagenes</title>
</head>
<body>
....
<img src="paginaaspparaimagenes.asp?id=<%=rs("fotoid")%>" width="150" height="150" border="0" />
.....
</body>
</html>
Un saludo
hola!! tammander, tengo un problemita lo que pasa es que yo uso sql server, necesito jalar una foto de un alumno, esta tabla me la proporcionaron diractamnete asi que no puedo modificarla... los campos de la tabla de alumno entre muchos mas datos tiene el campo alu_Foto que es de tipo image... puedo lajar los datos del alumno pero la foto aun no puedo hee estado leyendo lo que has expuesto en lo de las fotos e imagenes pero la verdad es que soy nueva en esto de las fotos y hay varias cosas que no entiendo
Set rs = Server.CreateObject("adodb.recordset")
' en mi caso yo tengo el recorset con otra variable que hace que recora la tabla set tabla=server.CreateObject("ADODB.RECORDSET")
strSQL = "select FileData,ContentTyped from fotos where id = " & id
'en esta parte si se lo que hace pero no entiendo filedata, y contenttyped no, son campos de la tabla me supongo
rs.Open strSQL, MM_fotos_STRING
response.contentType = rs("ContentTyped")
response.BinaryWrite rs("FileData")
rs.Close
end if
response.End
si me pudieras exoplicar por favor!!! este es el codigo que tengo
alu_NumControl = Request.Form("control")
alu_Password= Request.Form("contraseña")
set conexion=server.CreateObject("ADODB.CONNECTION")
set tabla=server.CreateObject("ADODB.RECORDSET")
Conexion.Open "driver={SQL Server};server=GRINCHLIZ; database=SIS_JIMCEL; uid=sa;pwd=sa"
encontro=0
set tabla=conexion.Execute("SELECT * FROM ceAlumnos WHERE alu_NumControl = '" & alu_NumControl & "'")
if tabla.eof then
Response.Write"No se encontro"
else
encontro=1
nombre=tabla.Fields("alu_Nombre")
ape_paterno=tabla.Fields("alu_ApePaterno")
ape_materno=tabla.Fields("alu_ApeMaterno")
id_carrera=tabla.Fields("esp_Id")
semestre=tabla.Fields("alu_SemestreAct")
foto= tabla.Fields("alu_Foto")
end if
set tabla=conexion.Execute("SELECT TBL_PROGRAMA.NOMBRE, SUM(TBL_ALUACTIVIDAD.HORAS) AS Expr1, TBL_PROGRAMA.TH_PROGRAMA FROM TBL_PROGRAMA INNER JOIN TBL_ALUACTIVIDAD ON TBL_PROGRAMA.IDE_PROGRAMA = TBL_ALUACTIVIDAD.CLAVE_PROGRAMA GROUP BY TBL_PROGRAMA.NOMBRE, TBL_ALUACTIVIDAD.NUMCONTROL, TBL_PROGRAMA.TH_PROGRAMA HAVING (TBL_ALUACTIVIDAD.NUMCONTROL = '" & alu_NumControl & "')")
%><div align = center><h5>Lista de Horas</h5></div><HR>
<br><br>
<b>NOMBRE </b><% Response.Write(nombre)
Response.Write(ape_paterno)
Response.Write(ape_materno)%>
<br><b>CARRERA </b><%Response.Write(id_carrera)%>
<br><b>SEMESTRE </b>
<%Response.Write(semestre)%>
<br>
<% 'Response.ContentType = tabla("foto")
'Response.BinaryWrite tabla("foto")%>
<br><br><br><br>
<table border=1>
<TR>
<TD><b>PROGRAMA</b>
<TD><b>HORAS ACOMULADAS</b>
<TD><b>DE UN TOTAL DE</b>
</TR>
<%
dim col
dim x
x = tabla.fields.count
do while not tabla.eof
response.write "<tr>"
for col=0 to (x-1)
response.write "<td>" & tabla.fields(col).value
next
tabla.MoveNext
response.write "</tr>"
loop
conexion.close
%>
</table>