aspImage læser billedets størrelse forkert!
Hej Alle!Dette problem er dybt mystisk for mig. Ideen er, at jeg genbruger noget kode, jeg har brugt på et lignende site hos samme webhotel (web10). De to webhoteller er ENS og databaserne er ens opbygget. Derfor kan jeg umiddelbart genbruge mit script, blot med en ændring af min connection til den rigtige database..
Anyway, problemet er nu:
Jeg uploader først et billede med aspUpload. Det fungerer fint! Derefter vil jeg læse billedets størrelse med aspImage og smide det ind i databasen. Dette fungerer perfekt på det ene site, men på det andet site bliver størrelsen læst til 0x0. Det er sku problematisk, når jeg andre steder på sitet skal bruge billedets størrelse igen via udtræk fra DB.
HVORFOR LÆSER DEN IKKE BILLEDETS STØRRELSE?
Her er min kode:
<%
if Session("UserID") = "" then
Response.Redirect("index.asp")
' strkategori = request.Form(Kategori)
end if
'Response.write("<html><body>")
'StrKategori = request.form("Kategori")
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
'Upload.LogonUser mysql.web10.dk, web11319, 1966m61x25
Upload.Save Server.mapPath("../Pic/" & filnavn)
' Obtain file object
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
' Build ODBC connection string
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=db.xxxxx.dk; Database=xxxxxx; UID=xxxxx; PWD=xxxxxxx;"
SQL1 = "SELECT * From Billedkategori WHERE NAVN='" & upload.form("Kategori") & "'"
'SQL1 = "Insert into News (Dato, Header, Text) values('" & strDate & "', '" & replace(request.form("Header"),"'","''") & "', '" & replace(request.form("Text"),"'","''") & "')"
'response.Write("sql-sætninen:" & SQL1 & "")
rs = my_conn.execute(SQL1)
' If you use SQL Server, the connecton string must look as follows:
' Connect = "Driver=SQL Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"
' Build SQL INSERT statement
strFileName = "" & File.Filename & ""
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.mapPath("../Pic/" & filnavn)
strHeight = "" & Image.MaxY & ""
strWidth = "" & Image.MaxX & ""
SQL = "INSERT INTO Billeder(Filename, Width, Height, Kategori) VALUES('"
SQL = SQL & File.Filename & "', '"
SQL = SQL & Image.MaxX & "', '"
SQL = SQL & Image.MaxY & "', '"
SQL = SQL & rs("ID") & "')"
my_conn.execute(SQL)
Response.Write "<h1>Filen er oploadet og offentliggjort på sitet i kategorien:"
Response.Write("" & upload.form("Kategori") & "</h1>")
Response.Write "<br>Billedstørrelsen er sat i db! Kategorierne fungerer efter hensigten på backend nu!"
'test på billedstørrelsens læsning:
Response.write "Billedstørrelsen ifølge asp.Image: " & strHeight &" x " & strWidth & ""
Response.write " direkte: " & Image.MaxX & "X " & Image.MaxY & ""
Else
Response.Write "File not selected."
End If
%>
