Ver Mensaje Individual
  #64 (permalink)  
Antiguo 07/01/2005, 22:24
Avatar de Stickmaster2004
Stickmaster2004
 
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>&nbsp;</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