<%@LANGUAGE="VBSCRIPT"%>
<html>
<body>
<%
'************************************************* ************************************'
'Creación:
'Fecha: xx/xx/xxxx
'Responsable: Carlos Rodriguez
'Notas:
'************************************************* ************************************'
doc_ident = request("doc_ident")
response.Expires=0
response.Buffer=true
response.Clear()
response.ContentType="image/gif"
'------------------------------------------------------------------
SET comm = SERVER.CREATEOBJECT("ADODB.CONNECTION")
comm.OPEN("Provider=
OraOLEDB.Oracle;Data Source=XXX;Persist Security Info=True;User ID=XX;Password=X;PLSQLRSet=1;")
'-------------------------------------------------------------------
set rs_sys = Server.CreateObject("ADODB.Recordset")
rs_sys.ActiveConnection = "Provider=OraOLEDB.Oracle;Data Source=XXX;Persist Security Info=True;User ID=XX;Password=X;PLSQLRSet=1;"
rs_sys.Source = "SELECT img_imagen from imagenes where doc_ident= "&doc_ident&" "
rs_sys.CursorType = 0
rs_sys.CursorLocation = 2
rs_sys.LockType = 3
rs_sys.Open()
rs_sys_numRows = 0
'-------------------------------------------------------------------
response.BinaryWrite rs_sys("img_imagen")
rs_sys.Close()%>
</html>
</body>
NOTA: TIENES QUE ENVIAR EL CODIGO O NOMBRE DE LA IMAGEN, ESO ES
TODO.
PREGUNTA?:
YO PARA SUBIR LA IMAGEN OCUPE UN CODIGO QUE FUNCIONA , PERO QUE A MI PARECER NO ES MUY OPTIMO POR QUE NO REALIZA UN INSERT NOMAL EN LA BASE DE DATOS.(RECORRE LA TABLA Y AL FINAL UPDETEA ESO ES MUY LENTO ..HABLO DE MILES DE DE ARCHIVOS) , SI SE PUDERA CORREGIR SE LOS AGRADESCO
SALUDOS CHARLY KAKAROTO
EJ :
fileData = load.getFileData("file")
Doc_IdentInput = load.getValue("Doc_Ident")
Set comm = Server.CreateObject("ADODB.Connection")
aa = "Provider=OraOLEDB.Oracle;Data Source=XXX;Persist Security Info=True;User ID=XX;Password=X;PLSQLRSet=1;"
comm.ConnectionString = aa
comm.CommandTimeout = 1200
comm.Open
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from imagenes"
rs.Open sql ,aa ,2,2
rs.AddNew
rs("doc_ident") = Doc_IdentInput
rs("IMG_IMAGEN").AppendChunk fileData
rs.Update
rs.Close
Set rs = Nothing