07/01/2005, 22:24
|
| | | Fecha de Ingreso: septiembre-2004 Ubicación: Barranquilla
Mensajes: 568
Antigüedad: 20 años, 1 mes Puntos: 0 | |
graficas asp yo lo he hecho de dos maneras esto de graficar, una es con html+asp, por medio de tablas e imagenes y dandole valores a la grafica segun su height o width manejandolo con valores asp que vienen de una tabla de la base datos de la sgte manera:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="skyblue" text="#000000">
<br>
<br>
<p><CENTER><B><font color="#0033FF"> Programa del Adulto Mayor en la IPS Servir S.A </font></CENTER></p>
<CENTER>
<table width="100%" border="0" cellspacing="2" cellpadding="0" height="200" BGCOLOR="SKYBLUE">
<tr valign="bottom">
<%
Dim c
b=Session("Color")
a=Session("fecha")
set oConn=Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=127.0.0.1;uid=root;DataBase=datos1"
oConn.Open
SQL="SELECT valor,nom_control,avg(valor) as pollino FROM controles_hipertensos where codigo='" & b & "' and fec_control='" & a & "' group by nom_control,valor order by nom_control asc"
set rs=oConn.Execute(SQL)
While (not rs.Eof)
%>
<td height="50">
<%
response.write rs.fields("valor")
%>
<img src=azul.gif width=10 height="<%=rs.fields("valor")%>">
<%
response.write rs.fields("nom_control")
rs.MoveNext
Wend
rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
%>
</td>
<br>
</tr>
<br>
</table>
<p> </p>
<p><br>
</p>
<a href="javascript:window.close();">Cerrar</a>
</body>
</html>
la otra forma es: asp+aplett de la misma forma pero configurando algunos parametros applet es un .class de java y puede ser utilizado en tus paginas asp o html, bueno aqui esta el codigo si quieren el ejemplo mandenme un correo asi:
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<script>
function centrar() {
iz=(screen.width-document.body.clientWidth) / 2;
de=(screen.height-document.body.clientHeight) / 2;
moveTo(iz,de);
};
</script>
</HEAD>
<BODY bgcolor="#00ccff" onload="centrar()">
<BR>
<%
Dim oConn,SQL,rs,b
b=Session("Color")
a=Session("fecha")
bart=request.querystring("ij")
lisa=request.querystring("ik")
%>
<%
Dim c
set oConn=Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=127.0.0.1;uid=root;DataBase=datos1"
oConn.Open
SQL="SELECT valor,nom_control,avg(valor) as pollino FROM controles_hipertensos where codigo='" & b & "' and fec_control='" & a & "' and nom_control='" & bart & "' and valor='" & lisa & "' group by nom_control,valor order by nom_control asc"
set rs=oConn.Execute(SQL)
While (not rs.Eof)
i=1
%>
<TITLE>
Grafica de control <%=rs("nom_control")%>
</TITLE>
<center>
<APPLET
CODEBASE = "."
CODE = "com.java4less.rchart.ChartApplet.class"
NAME = "TestApplet"
ARCHIVE = "rchart.jar"
WIDTH = 600
HEIGHT = 400
HSPACE = 0
VSPACE = 0
ALIGN = middle
>
<PARAM NAME = "TITLECHART" VALUE = "Estadisticas de Programa de Control Prenatal en la I.P.S Servir S.A (<%=rs("nom_control")%>)">
<PARAM NAME = "XLABEL" VALUE = "Controles">
<PARAM NAME = "YLABEL" VALUE = "Valores">
<PARAM NAME = "XAXIS_LABELS" VALUE = "<%=rs("nom_control")%>">
<PARAM NAME = "SERIE_1" VALUE = "<%=rs("nom_control")%>">
<PARAM NAME = "SERIE_TYPE_1" VALUE = "BAR">
<PARAM NAME = "SERIE_STYLE_1" VALUE = "#0033ff">
<PARAM NAME = "SERIE_FONT_1" VALUE = "Arial|PLAIN|9">
<PARAM NAME = "SERIE_DATA_1" VALUE = "<%=rs("valor")%>">
<PARAM NAME = "CHART_BORDER" VALUE = "0.1|Blue|LINE">
<PARAM NAME = "CHART_FILL" VALUE = "#00ccff">
<PARAM NAME = "BIG_TICK_INTERVALX" VALUE = "1">
<PARAM NAME = "TICK_INTERVALY" VALUE = "3">
<PARAM NAME = "YSCALE_MIN" VALUE = "0">
<PARAM NAME = "YSCALE_MAX" VALUE = "170">
<PARAM NAME = "XSCALE_MIN" VALUE = "0">
<PARAM NAME = "XSCALE_MAX" VALUE = "7">
<PARAM NAME = "SERIE_BORDER_TYPE_1" VALUE = "RAISED">
</APPLET>
<br>
<br>
<a href="javascript:window.close();">Cerrar</a>
<%
i=i+1
rs.MoveNext
Wend
rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
%>
</BODY>
</HTML>
bye, espero que les ayude en algo
__________________ Solo el que se basa en conocimiento basico y cultiva el aprendizaje obtendra sabiduria |