Pedro
04 de Septiembre del 2008

Alguien tiene alguna idea sobre esto

tengo un codigo en asp el cual recibe una cadena codificada en base64. al recibirlo lo decodifica y lo guarda en un archivo jpg, para desplegar una imagen.

esto funciona correctamente localmente o mas bien en un pc con windows xp.

ese codigo decidi subirlo a un sitio en un servidor con win2000 server, el problema es que al decodificar la cadena no lo hace de la forma correcta y no puedo guardar la imagen. aqui tengo un extracto de esa parte del codigo

<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--#include file="ewcfg60.asp"-->

<%

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open EW_DB_CONNECTION_STRING

Const ForReading = 1, ForWriting = 2
Dim fso, f
'if ($_REQUEST["bindata"] === NULL) {
if isnull(request("bindata")) then
echo "missing parameter."
response.Write "Parametros nulos"

else
img_data = Base64Decode(request("bindata"))
if (isnull(request("name")) or (request("name")="anonymous")) then name_data = request("name") end if
name_data = SafeHTML(name_data)

comment = SafeHTML(request("comment"))

img_size = len(name_data)

if (img_size < 10000) then

carpeta = server.MapPath("./data/")
img_filename = "snapshot"&request.QueryString("id")&".jpg"
comment_filename = "comment.txt"
eliminar(carpeta&""&img_filename)
eliminar(carpeta&""&comment_filename)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(carpeta & "" & img_filename, ForWriting, True)
if Err=0 then
response.write(img_data)
else
response.Write "can't open file"
end if

la rutina base64decode se encuentra en este link

http://www.motobit.com/tips/detpg_base64/


no encuentro que puede ser.

no se si el servidor necesita tener instalado framework2.0 o el tipo de idioma esta mal configurado. esta en español latino ahorita.

ayuda por favor