Hej frände Hej.. Testade det att bara skicka med content type och Borde det inte vara såhär? Morrn Hur har du sparat bilden? Har du infogat den som ActiveX objekt. Eller läst in den binärt till fältet? Bilden ligger sparad i en SQL-db som image Du kan inte blanda in HTML. Då kommer ju filen bli smutsig. Nu funkar det! Du kan ju ta in mig på små konsult uppdrag. Jag bor ju inte långt från kungälv. ;o) Tjenare, Nja det har jag inte fått att funka så bra. Använd <IMG> taggen (ex. <img src="file.asp?Id=2">) för att anroppa en asp-fil som sköter bildframtagandet.Response.BinaryWrite
Har ett litet problem med att visa en bild från en databas
Den ligger lagrad i en db som "image"
men när jag kör koden så låser sig hela sidan.
Här är koden:
<code>
Set ConnEx = Server.CreateObject("ADODB.Connection")
ConnEx.Open Application("strConn")
Set rs = Server.CreateObject("ADODB.Recordset")
query = "select [ID], [Content Type], [File Name], [File Data]" & _
" from a_Files " & _
" where [ID] = 2"
rs.open query, connEx, 2, 4
Response.Contenttype = rs("Content Type")
Response.Write rs("content type")
Response.Write rs("File Name")
Response.BinaryWrite rs("File Data")
Response.End
</code>
Vad är det som strular??
//Toga - fundersamSv: Response.BinaryWrite
Testa att ta bort:
Response.Write rs("content type")
Response.Write rs("File Name")
Detta stör streamen till webläsaren.
Tror jag...
//freddaSv: Response.BinaryWrite
file data, men tyvärr kvarstår problemet :Sv: Response.BinaryWrite
Response.ContentType = rs("content type")
Response.BinaryWrite rs("File Data")
/JohanSv: Response.BinaryWrite
Har provat det också, men samma problem dyker upp.
Fortsätter det såhär så har jag knappt något hår att
klia bort :)
//TogaSv: Response.BinaryWrite
Hur ser hela din sida ut? Sv: Response.BinaryWrite
Sidan som visar bilden ser ut som följande:
<%
Response.Buffer = True
response.expires = 0
response.clear
%>
<html>
<head>
<title>Visa bilder</title>
</head>
<body>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Application("strConn")
Set rs = Server.CreateObject("ADODB.Recordset")
SQLStmt = "SELECT [file data], [Content type] from a_Files where id=2"
Set RS = Connection.Execute(SQLStmt)
Response.Contenttype = rs("Content Type")
Response.BinaryWrite RS("File Data")
Response.End
rs.Close
Set rs = Nothing
%>
</body>
</html>
Men ett litet framsteg är att den inte låser sidan,
utan den spottar ut en massa skräptext istället.Sv: Response.BinaryWrite
Testa med:
<code>
<%
Option Explicit
Dim rs
Dim con
Dim strSQL
Response.Buffer = True
Response.Expires = 0
Response.Clear
Set con = Server.CreateObject("ADODB.Connection")
con.Open Application("strConn")
strSQL = "SELECT [file data], [Content type] FROM a_Files WHERE id=2"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, con
Response.Contenttype = rs("Content Type")
Response.BinaryWrite RS("File Data").Value
Response.Flush
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
Response.End
%></code>Sv: Response.BinaryWrite
Är evigt tacksam. Eller iallafall ett bra tag framöver :)
//togaSv: Response.BinaryWrite
Sv: Response.BinaryWrite
Går det inte att skriva ut både HTML och bilder i samma fil om man har bilden lagrad i en databas o använder Response.BinaryWrite? Jag har behov av att ha med HTML oxå i filen..
Mvh JonasSv: Response.BinaryWrite