Modifica di un file

Modificare il file: \Buoni-spesa-OLD\buono_imager.asp

<%
if SESSION("UserID")="" or not CheckSecurity(SESSION("_" & strTableName & "_OwnerID"),"Search") then
	response.Redirect "login.asp?message=expired"
	response.End
end if

field = REQUEST.querystring("field")
if not CheckFieldPermissions(field,"") then 
	DisplayNoImage()
	response.End
end if
'//	construct sql

set keys = CreateObject("Scripting.Dictionary")
keys.Add "N_Buono",postvalue("key1")
where=KeyWhere(keys,"")

dbConnection=""
db_connect()
Set rsPic = server.CreateObject("ADODB.Recordset")

sql = gSQLWhereAdd(where)

rsPic.Open sql,dbConnection ,1,2

if rsPic.EOF then
	DisplayNoImage()
	response.End
else
	value=rsPic(field).GetChunk(20000000)
	if isnull(value) or lenb(value)=0 then
		DisplayNoImage()
		response.End
	end if
end if

pos = instrb(value,Unicode2Bytes(".Picture"))
if pos>0 and pos<300 then
	pos1=instrb(pos,value,Unicode2Bytes("BM"))
	if pos1>0 and pos1<300 then
		value=midb(value,pos1)
	end if
end if

itype=SupposeImageType(midb(value,1,100))
if itype<>"" then 
	Response.ContentType = itype
	response.BinaryWrite value
else
	DisplayFileImage
end if
'echobig(value)
response.End

function DisplayNoImage()
	Response.ContentType = "image/gif"
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.GetFile(Server.MapPath("images/no_image.gif"))
	Set b = a.OpenAsTextStream(1,-1)
	Response.BinaryWrite(b.Read(999999))
end function
Sub DisplayFileImage
	Response.ContentType = "image/gif"
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.GetFile(Server.MapPath("images/file.gif"))
	Set b = a.OpenAsTextStream(1,-1)
	Response.BinaryWrite(b.Read(999999))

End Sub

[Íàçàä]