הדוגמא הבאה יודעת לקרוא מתוך מסד נתונים את הערכים ולהציגם בצורת גרף אופקי.
במסד הנתונים עליו מסתמך הגרף ישנה טבלה הנקראת GRAPH והיא נראית כך: 
עמודה Y יהיה ציר ה-Y ושאר העמודות ממנה והילך יהיו כל אחת ציר X משלה.
ז"א כל עמודת X שנוסיף תוסיף לנו עוד גרף עם הערכים אותם נשים בשדות.
הפלט של הדוגמא יראה כך: 
איך עושים את זה?
אז ככה, הבה נראה את קוד המקור.
הנה הקוד מקור:
<![CDATA[<%@ Language=VBScript %>
<%
Dim TheDSN,rs,count,sum,Tab
TheDSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
TheDSN = TheDSN & "DBQ=" & Server.mappath("graph.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
cn.open TheDSN
SQL = "SUM"
rs.open SQL,cn,3,1
sum = int(rs("sum"))
rs.close
SQL = "MAX"
rs.open SQL,cn,3,1
max = int(rs("max"))
rs.close
SQL = "Select * From GRAPH"
order = Request("order")
if order <> "" Then
COL = Request("column")
if order = "down" then SQL = SQL + " order by " & COL
if order = "up" then SQL = SQL + " order by " & COL & " DESC"
END IF
rs.Open SQL,cn,3,1
count = rs.RecordCount
NumOfFields = rs.fields.count - 1
%>
<HTML>
<HEAD>
<STYLE>
a:hover {color : #3399ff}
A{ text-decoration : none;}
</STYLE>
<script>
var x = new Image();
x.src = 'imagesg.gif';
</script>
</HEAD>
<BODY bgcolor=#fff4ad>
<BASEFONT Face=Arial>
<TABLE border="0" align="center" width="60%" Cellpadding="0" Cellspacing="1">
<%
For i = 2 to NumOfFields
COL = rs(i).Name
Tab = "<TR><TH Colspan=4>" & COL & "</TH></TR>"
rs.MoveFirst
while not rs.EOF
x = int(rs(i))
pre = int( (x/sum) * 100 )
pre2 = int((x/max) * 100)
Tab = Tab + "<TR><TD Align=Right>" & rs(1) & "</TD><TD width=300 >"
Tab = Tab & "<img src=imagesg.gif height=100% width=" & pre2 & "% >"
Tab = Tab & "<img src=imagesg2.gif height=100% width=" & 100-pre2 & "% ></TD><TD>"
Tab = Tab & rs(i)
Tab = Tab + "</TD><TD width=10> (" & pre & "%)</TD></TR>" & vbcrlf
rs.movenext
wend
Tab = Tab & "<TR><TH Colspan=4>[<A HREF=?order=up&column=" & COL & ">UP</A>] "
Tab = Tab & "[<A HREF=h_graph.asp>REGULAR</A>] "
Tab = Tab & "[<A HREF=?order=down&column=" & COL & ">DOWN</A>]</TH></TR>"
Tab = Tab & "<TR><TD Height=20></TD></TR>"
Response.Write Tab
Next
%>
</TABLE>
</BASEFONT>
</BODY>
</HTML>
<%
rs.Close
Set rs = Nothing
cn.close
Set cn = Nothing
%>]]>
ניתן גם ליצור גרף אנכי. רוצים לדעת איך? לחצו כאן
|
.png)
