Santrauka
Be to, naudojant Microsoft Office diagramos žiniatinklio komponentas kaip Komponentinio objektų modelio (COM) valdymo nuomojamą formą, galima naudoti diagramos žiniatinklio komponentas nematomi, atminties objekto. Šis straipsnis paaiškina, kaip naudoti diagramos žiniatinklio komponentas serveryje, Norėdami sukurti diagramą kaip Graphics Interchange Format (GIF) vaizdo. Jūs galite įgyvendinti strategiją, aptartos šiame straipsnyje generuoti diagramos vaizdus, kurie gali būti naudojami per internetą arba įmonėse, kuriose nevienalytę kliento Staliniai kompiuteriai.
Daugiau informacijos
Diagramos žiniatinklio komponentas, galite sukurti diagramas, naudojant duomenis iš įvairių šaltinių, pvz., masyvų, į duomenų bazes, skaičiuokles arba jokių vartotojo duomenų šaltinių. Kai sukuriate diagramą, galite naudoti ExportPicture metodas diagramos komponento kurti GIF vaizdas, diagramos.
Norėdami tai atlikti, galite pakeisti failo global.asa failą ir sukurti ASP puslapyje kodas parodyta toliau nurodytus veiksmus.
Kaip sukurti projektas
-
Paleiskite "Microsoft Visual InterDev."
-
Sukurkite naują interneto projektą
ServerChart ir spustelėkite mygtuką toliau . -
Įveskite serverio, kuriame yra naudoti šią interneto projekto.
-
Spustelėkite baigti kurti interneto projektą.
-
Dešiniuoju pelės mygtuku spustelėkite savo projektų katalogo serveryje (paprastai tai yra C:\Inetpub\wwwroot\ServerChart), pasirinkite Ypatybės ir tada spustelėkite skirtuką Sauga .
-
Spustelėkite teises, ir pridėkite toliau nurodytas teises katalogas:
IUSR_SERVERNAME: Skaityti, rašyti, vykdyti ir panaikinti
Kūrėjas: Skaityti, rašyti, vykdyti ir panaikinti -
Spustelėkite gerai Norėdami nustatyti teises.
-
Visual InterDev projekto, dešiniuoju pelės mygtuku spustelėkite failo global.asa failą ir pasirinkite Gauti darbo kopija.
-
Keisti global.asa failą, kad jame būtų šį scenarijų:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
' Create a FileSystemObject to provide files in the script
Set Session("FSO") = CreateObject("Scripting.FileSystemObject")
' Create a variable that has the number of files created in this session
Session("n") = 0
' Set timeout to be 1 minute
Session.Timeout = 1
End Sub
Sub Session_OnEnd
' Delete the files created in this session
Dim x
For x = 0 to Session("n")-1
Session("FSO").DeleteFile Session("sTempFile" & x), True
Next
End Sub
</SCRIPT> -
Spustelėkite meniu projektas , pasirinkite Pridėti tinklo elementas, ir pasirinkite Aktyvaus serverio puslapis. Puslapio chart.asppavadinimą.
-
Pakeisti scenarijų, chart.asp ir būti toliau nurodyta informacija:
<%@ language="vbscript" %>
<html>
<body>
<h1>Realtime CPU Utilization by Configurations</h1>
<FORM action="chart.asp" method=get name=frmChooseOrg>
<p> Select an Organization to see values for their machines:
<SELECT name=sOrg>
<OPTION SELECTED value= 5>Org1</OPTION>
<OPTION value= 10>Org2</OPTION>
<OPTION value= 15>Org3</OPTION>
<OPTION value= 20>Org4</OPTION>
</SELECT>
<INPUT type="submit" value="Go"></p>
</FORM>
<%
Dim oChart, c, Categories(5), Vals(5), i, sCaption, nData, nOrg
' Get the input value
nData = Request.QueryString("sOrg")
'When the page loads the first time, set ndata to 5
if len(nData) = 0 then nData = 5
' Generate random categories and values for the chart
' These values can come from some existing data source
for i = 1 to 5
Categories(i) = "Machine" & CStr(i)
Vals(i) = nData * Rnd(100)
next
' Create a Chart Object
Set oChart = CreateObject("OWC.Chart")
Set c = oChart.Constants
' Set the different parameters for the ChartSpace
oChart.Border.Color = c.chColorNone
' Get Organization number and use it to set the Caption
nOrg = nData/5
sCaption = "Current Utilizations for Org"
sCaption = sCaption & CStr(nOrg)
' Add a chart and set parameters for the chart
oChart.Charts.Add
oChart.Charts(0).Type = oChart.Constants.chChartTypeColumnClustered
oChart.Charts(0).SeriesCollection.Add
oChart.Charts(0).SeriesCollection(0).Caption = sCaption
oChart.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, Categories
oChart.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals
oChart.Charts(0).HasLegend = True
oChart.Charts(0).HasTitle = True
' Get a temporary filename to save chart in that file
sFname = Session("FSO").GetTempName & session.SessionID & ".gif"
' Export the chart to the temporary file
oChart.ExportPicture server.MapPath(sFname), "gif", 600, 512
' Create a link to the generated file
Response.Write "<img src='" & sFname & "'>"
' Store the file with its path in the session object for cleanup
Session("sTempFile" & Session("n")) = Server.MapPath(sFname)
' Increment the number of files
Session("n") = Session("n") + 1
%>
</body>
</html> -
Įrašyti projektą.
-
Dešiniuoju pelės mygtuku spustelėkite chart.asp Projekto "Internet Explorer" ir pasirinkite Peržiūrėti naršyklėje.
Puslapis rodomas su CPU pardavėjų įvairių kompiuteriams, kuriame yra diagrama. Pasirinkę įvairių organizacijų, galite peržiūrėti kitą pardavėjų.
Kai sukuriate diagramų, atsižvelgiant į skirtingus duomenų rinkinius, kiekvienos diagramos reikia įrašyti kaip unikalus GIF failą. Į šį pavyzdį, Scripting Run-time bibliotekos FileSystemObject sukuria laikinąjį failą GIF vaizdas. Failą į tą patį aplanką ASP puslapį, kad galėtų naudoti seanso objekto MapPath būdas gauti laikinojo failo vietą. Failo vardas įrašomas kaip sesijos kintamasis, kad jis bus panaikintas, kai seansui.
Atkreipkite dėmesį, kad IIS vykdo Session_OnEnd Podprogram kai seanso laikas baigėsi. Sesijos laikas baigėsi, jei klientas nėra pateikė puslapį per skirtojo laiko trukmę, kuri nustatoma į vieną (1) minutę sesijos pradžioje.
Papildomos pastabos
Šiuo metu galima ExportPicture būdas tik filtras yra "GIF" vaizdus.
ExportPicture būdas yra dviejų argumentų, kad galėtumėte nurodyti pikseliais sugeneruotas diagramos dydis. Kodo pavyzdys, jei pločio ir aukščio tinklalapiai yra užprogramuotas. Vietoj to, galite naudoti dimensijas, klientas nurodo.
OWC. Diagramos ProgID taikomas Office žiniatinklio komponentų 9.0. Jei norite naudoti šių komponentų 10 versija, pakeiskite programos ID OWC. Diagramos ir OWC10. Diagramos sritis arba jei norite naudoti komponentų, 11 versija pakeisti programos ID OWC. Diagramos ir OWC11. Diagramos sritis.
Serverio naudojimo problemos
Turėtumėte žinoti, kad Office 2000 žiniatinklio komponentai nėra skirtos naudoti serverio ir gali kilti problemų, jei serveryje su daug vienu metu vartotojų, bandančių prisijungti naudodami komponentus. Daugelis šios problemos buvo išspręstos "Office XP voratinklio komponentai" ir "Office 2003 žiniatinklio komponentai ir turėtumėte naudoti Office XP žiniatinklio komponentus arba Office 2003 žiniatinklio komponentai didelės apimties serverio sprendimų.
Jei norite gauti papildomos informacijos, spustelėkite toliau straipsnio numerį peržiūrėkite straipsnį Microsoft žinių bazėje:
INFO: apribojimai Office 2000 žiniatinklio komponentus, kai naudojamas serverio
Nuorodos
Programavimo Microsoft Office žiniatinklio komponentų Dave Stearns ISBN: 0-7356-0794-X
Jei norite gauti papildomos informacijos, kaip naudoti diagramos žiniatinklio komponentas, žr. šiuose žinių bazės straipsniuose:
kaip sukurti diagramoje diagramos žiniatinklio komponentas
kaip naudoti Office diagramos žiniatinklio komponentas su VB
kaip naudoti VBScript susieti diagramos skaičiuoklės komponentas
