PK

<!--#include file="includes/openconn.asp" -->

<!--#include file="includes/checkadmin.asp" -->

<%server.ScriptTimeout=600

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(imagedir & "\Documentos\fotos\" & session("idDocumento")) then
	response.Write(imagedir & "\Documentos\fotos\" & session("idDocumento"))
	Set f = fso.CreateFolder(imagedir & "\Documentos\fotos\" & session("idDocumento"))
	Set f = nothing
end if
Set fso = nothing
Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(imagedir & "\Documentos\thumbs\" & session("idDocumento")) then
	Set f = fso.CreateFolder(imagedir & "\Documentos\thumbs\" & session("idDocumento"))
	Set f = nothing
end if
Set fso = nothing

dim fff,nfile

if request("URLin") <> "" then

	dim hdLocation,fileURL,xmlHTTP,sadsa,oStream
	
	fileURL = request("URLin")
	fff = fileURL
	nfile = mid(fff,instrrev(fff,"/")+1)
	nfile = replace(nfile,"%20"," ")
	
	hdLocation = imagedir & "upload\" & nfile 
	
	set FSO = Createobject("Scripting.FileSystemObject")
	
	if fso.Fileexists(hdLocation) then
		Fso.DeleteFile hdLocation
	end if
	
	Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")
	
	xmlHTTP.open "GET", fileURL , false
	xmlHTTP.send()
	
	sadsa = xmlHTTP.ResponseBody 
	
	set oStream =  Createobject("ADODB.Stream")
	oStream.type = 1
	oStream.open()
	oStream.write(sadsa)
	oStream.savetoFile(hdLocation)
	oStream.close()
	
	Set xmlHTTP = Nothing

else

	Dim Upload
	
	Set Upload = Server.CreateObject("Persits.Upload" ) 
	Upload.SetMaxSize 10000000 ' Maksimum dosya büyüklügü Byte cinsinden 
	Upload.OverwriteFiles = True 
	Upload.SaveVirtual "/database/upload/"
	
	nfile = Upload.Files(1).FileName

end if



dim size_1x,size_2x,size_1y,size_2y,Jpeg,Path_im,xorig,yorig,ratio,xratio,metodo

Set Jpeg = Server.CreateObject("Persits.Jpeg")

'----------------------- IMAGEN 1

size_1x = 320
size_1y = 320
metodo = "crop"

Path_im = imagedir & "\upload\" & nfile%>
	
<!--#include file="includes/ratio.asp" -->

<%Jpeg.Save imagedir & "\Documentos\thumbs\" & session("idDocumento") & "\" & nfile
 
'----------------------- IMAGEN 2
 
size_1x = 1024
size_1y = 768
metodo = ""

Path_im = imagedir & "\upload\" & nfile%>

<!--#include file="includes/ratio.asp" -->
	
<%'dim JpegL
'Set JpegL = Server.CreateObject("Persits.Jpeg")

'JpegL.Open Server.MapPath("\") & "\images\marcadeagua.gif"
'Jpeg.Canvas.DrawImage Jpeg.Width - 320, Jpeg.Height - 110, JpegL, 0.5, &H0000FF
'Jpeg.Canvas.DrawImage Jpeg.Width - 320, 10, JpegL, 0.5, &H0000FF

Jpeg.Save imagedir & "\Documentos\fotos\" & session("idDocumento") & "\"  & nfile

'----------------------------BORRAR ORIGINAL

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(imagedir & "\upload\" & nfile)
f.delete
set f = nothing
set fso=nothing

'----------------------------CONTAR IMAGENES

dim cant
rs.open "SELECT * FROM Documentos WHERE idDocumento = " & session("idDocumento"),conn,2,2
rs.movefirst
rs("doc_foto") = nfile
rs.update
rs.close

conn.close

response.redirect("Documento_edit.asp?idDocumento=" & session("idDocumento"))
%>

PK 99