盒子论坛 v2.1

我上传图片老是说我图像格式不对,不能保存图像（图片格式为jpg),
下面是我的asp 程序，请帮我分析一下，要怎样改才能成功？
我的数据库是用　蔘access2000的，保存图片的字段格式是OLE对象，万分感谢！
一个迷茫的人！


<%
function lngConvert2(strTemp)
 str1=leftb(strTemp,1)
 str2=rightb(strTemp,1)
 lngConvert2 = clng(ascb(str2) + ((ascb(str1) * 256)))
end function

function lngConvert(strTemp)
 str1=leftb(strTemp,1)
 str2=rightb(strTemp,1)
 len1=ascb(str1)
 len2=ascb(str2)
 lngConvert = clng(ascb(str1) + ascb(str2) * 256)
end function

Dim FormData,FormSize
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
Set Fields = GetUpload(FormData)

for i=1 to 5
If Fields("file"&i).FileName<>"" and Fields("file"&i).value<>"" Then
 tempstr=Leftb(Fields("file"&i).Value,10)
 tstr=chrb(255)&chrb(216)&chrb(255)&chrb(224)&chrb(0)&chrb(16)&chrb(74)&chrb(70)&chrb(73)&chrb(70)

 flag=1
 if strcomp(tempstr,tstr,0)=0 then

 lngSize = len(fields("file"&i).value)
 flgFound = 0

 strTarget = chrb(255) & chrb(216) & chrb(255) 'JPG
 flgFound = instrb(fields("file"&i).value, strTarget)

 if flgFound = 0 then
 response.write " 图片上传成功!是否继续上传? "
 response.write "<a href='add.asp' title='继续上传'>是</a>图片上传<a href='manage.asp' title='返回图片管理'>否</a>"
 response.end
 end if

 strImageType = "JPG"
 lngPos = flgFound + 2
 ExitLoop = false

 do while ExitLoop = False and lngPos < lngSize

 do while ascb(midb(fields("file"&i).value, lngPos, 1)) = 255 and lngPos < lngSize
 lngPos = lngPos + 1
 loop

 if ascb(midb(fields("file"&i).value, lngPos, 1)) < 192 or ascb(midb(fields("file"&i).value, lngPos, 1)) > 195 then
 lngMarkerSize = lngConvert2(midb(fields("file"&i).value, lngPos + 1, 2))
 lngPos = lngPos + lngMarkerSize + 1
 else
 ExitLoop = True
 end if

 loop





 height = lngConvert2(midb(fields("file"&i).value, lngPos +4, 2))
 width = lngConvert2(midb(fields("file"&i).value, lngPos +6, 2))
 flag=2
 else
 flag=0
 end if

 if flag<>2 then
 tempstr=Leftb(Fields("file"&i).Value,6)
 tstr=chrb(71)&chrb(73)&chrb(70)&chrb(56)&chrb(57)&chrb(97)
 tstr2=chrb(71)&chrb(73)&chrb(70)&chrb(56)&chrb(55)&chrb(97)
 if strcomp(tempstr,tstr,0)=0 or strcomp(tempstr,tstr2)=0 then
 width=lngConvert(midb(fields("file"&i).value,7,2))
 height=lngConvert(midb(fields("file"&i).value,9,2))
 flag=2
 else
 flag=0
 end if
 end if

 if flag<>2 then
 tempstr=Leftb(Fields("file"&i).Value,2)
 tstr=chrb(66)&chrb(77) 'BMP
 if strcomp(tempstr,tstr,0)=0 then

 width=lngConvert(midb(fields("file"&i).value,19,2))
 height=lngConvert(midb(fields("file"&i).value,23,2))

 flag=2
 else
 flag=0
 end if
 end if

 if flag<>2 then
 tempstr=Leftb(Fields("file"&i).Value,4)
 tstr=chrb(137)&chrb(80)&chrb(78)&chrb(71) 'PNG
 if strcomp(tempstr,tstr,0)=0 then

 width = lngConvert2(midb(fields("file"&i).value, 19, 2))
 height = lngConvert2(midb(fields("file"&i).value, 23, 2))

 flag=2
 else
 flag=0
 end if
 end if


 if flag>0 then
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from imgbook"
 rs.open sql,conn,1,3

 fieldsdata=Array("title","content","updatetime","classname","tuijie","width","height","photo")
 valuesdata=Array(Fields("title").Value,Fields("guestcontent").Value,now,Fields("classname").value,Fields("tuijie").value,width,height,"")

 rs.addnew fieldsdata,valuesdata
 set field=rs.fields("photo")
 field.appendchunk Fields("file"&i).Value

 ttt=replace(Fields("file"&i).Value,"'","'")
 Rs.Update
 rs.close
 set rs=nothing
 else
 response.write "<script>alert('图像格式不对,不能保存图像');this.location.href='add.asp';</script>"
 response.End()
 end if
end if
next

response.write " 图片上传成功!是否继续上传? "
response.write "<a href='add.asp' title='继续上传'>是</a>图片上传<a href='manage.asp' title='返回图片管理'>否</a>"
response.end
conn.close
set conn=nothing
%>
----------------------------------------------
-

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/10/9 9:05:54

1楼：

没做过，不清楚。
----------------------------------------------
维护世界和平，共创美好盒子。

信息

登陆以后才能回复