Ich mache das mit ASPImage. Ein quick-and-dirty Beispiel zur eine
Zugriffsstatistik (die Daten kommen aus einer Datenbank):
=== CUT ===
<!--#include file="inc/div_func.asp"-->
<% hmax=1
%>
<html>
<head>
<title>Statistik</title>
</head>
<body bgcolor=white>
<center>
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.AntiAliasText = True
Image.MaxX = 650
Image.MaxY = 200
Image.GradientTwoWay 16771754, 16771754, 0, 1
Image.BackgroundColor = vbblack
Image.FrameRect 5, 5, Image.MaxX - 5, Image.MaxY -18
Image.FontColor = vbBlack
Image.Italic = False
Image.Bold = False
Image.FontName = "Arial"
Image.FontSize = 7
Image.PadSize = 10
for i=1 to 24
strSQL = "SELECT COUNT(*) AS C FROM dbo.log_Session WHERE (Start >
CONVERT(DATETIME, '2001-08-30 "
strSQL = strSQL & right("00"&i-1,2)&":00:00', 102)) AND (Start <
CONVERT(DATETIME, '2001-08-30 "
strSQL = strSQL & right("00"&i-1,2)&":59:59', 102))"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open replace(strSQL,"2001-08-30",dt),strConn
h = clng("0"&RS1("C"))
if hmax < h then hmax = h
rs1.close
next
for i=1 to 24
Image.BackgroundColor = vbGreen
strSQL = "SELECT COUNT(*) AS C FROM dbo.log_Session WHERE (Start >
CONVERT(DATETIME, '2001-08-30 "
strSQL = strSQL & right("00"&i-1,2)&":00:00', 102)) AND (Start <
CONVERT(DATETIME, '2001-08-30 "
strSQL = strSQL & right("00"&i-1,2)&":59:59', 102))"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rem response.write strSQL
rs1.open replace(strSQL,"2001-08-30",dt),strConn
h = clng("0"&RS1("C"))
rs1.close
wert = h/hmax*140
h2 = 170 - wert
Image.Rectangle (i*25) , 170, i*25+22, h2
out = i-1 & "-"&i
Image.TextOut out, i*25-10, 160, false
if h > 0 then
Image.TextOut h, i*25-2, h2-20, false
end if
next
Image.Italic = False
Image.FontColor = vbRed
Image.PadSize = 0
Image.FontSize = 10
Image.Bold = True
strLabel = "Besucher heute - Stand "&now
Image.TextOut strLabel, (Image.MaxX / 2) - (Image.TextWidth(strLabel)
/ 2), Image.MaxY - 18, false
Image.FileName = "C:\inetpub\wwwroot\datotal
neu\datotal\Dias\txtz2.JPG"
Image.SaveImage
Response.Write "<img src=""/datotal-neu/dias/txtz2.jpg""><br><br><br>"
Set Image = nothing
%>
</center>
</body>
</html>
=== CUT ===
Stefan
-----Urspr�ngliche Nachricht-----
Von: Hirter Andr� [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 23. Oktober 2001 08:42
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] Komponente f�r Diagramme
Hallo Miteinander
Ich suche eine Komponente mit der ich in ASP Liniendiagramme generieren
kann.
Meine konkrete Anwendung ist die Darstellung eines Temperaturverlaufes.
In
der Y-Achse m�chte ich die Temperatur darstellen und die X-Achse stellt
die
Zeit dar.
Excel kann ich auf dem Server nicht installieren.
Kennt jemand eine solche Komponente?
gruss andr�
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
