05. oktober 2006 - 13:23
Der er
1 løsning
TExt på billede ASPImage
Jeg har nedestående fil som bruges når et billede hentes fra SQL databasen. Jeg vil gerne have sat en tekst på dette billede, og sørge for at det fylde billedbredden. Jeg bruger ASPImage. Hvorledes gøres dette?
<!--METADATA
TYPE="TypeLib"
NAME="Microsoft ActiveX Data Objects 2.5 Library"
UUID="{00000205-0000-0010-8000-00AA006D2EA4}"
VERSION="2.5"
-->
<%
lngImageID = Request.QueryString("ID")
Dim Image
strDSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/db/glaspatch3456.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Billede FROM Vaerker WHERE [ID] = " & lngImageID
rs.Open strSQL, strDSN,3, 1
If Not rs.EOF Then
Response.ContentType = "image/gif"
Response.BinaryWrite rs(0)
Else
Response.Write "Image not found."
End If
rs.Close
Set rs = Nothing
%>
05. oktober 2006 - 19:43
#1
<!--METADATA
TYPE="TypeLib"
NAME="Microsoft ActiveX Data Objects 2.5 Library"
UUID="{00000205-0000-0010-8000-00AA006D2EA4}"
VERSION="2.5"
-->
<%
lngImageID = Request.QueryString("ID")
Dim Image
strDSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/db/xxxxxx.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Billede FROM Vaerker WHERE [ID] = " & lngImageID
rs.Open strSQL, strDSN,3, 1
If Not rs.EOF Then
Response.ContentType = "image/jpeg"
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadblob rs(0).value, 1
Image.FontColor = vbYellow
Image.Italic = True
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 8
Image.PadSize = 10
strMessage = "Copyright " & year(now) & " xxxxxxxxxx." & vbcrlf & _
" xxxxxxxx"
Height = Image.MaxY - Image.TextHeight (strMessage)
Image.TextOut strMessage, 1, Height - 20, True
Response.BinaryWrite Image.Image
Set Image = nothing
Else
Response.Write "Image not found."
End If
rs.Close
Set rs = Nothing
%>
