Tóm tắt
Ngoài sử dụng Microsoft Office biểu đồ Web phần như điều khiển mô hình đối tượng thành phần (COM) lưu trữ trên biểu mẫu, có thể sử dụng phần Web biểu đồ là một đối tượng không hiển thị, trong bộ nhớ. Bài viết này mô tả cách bạn có thể sử dụng phần Web biểu đồ trên một máy chủ để tạo biểu đồ là một hình ảnh Graphics Interchange Format (GIF). Bạn có thể thực hiện các chiến lược được thảo luận trong bài viết này để tạo biểu đồ hình ảnh có thể được sử dụng trên Internet hoặc doanh nghiệp với khách hàng không đồng nhất bàn.
Thông tin
Với phần Web biểu đồ, bạn có thể tạo biểu đồ bằng cách sử dụng dữ liệu từ nhiều nguồn khác nhau, chẳng hạn như mảng, một cơ sở dữ liệu, bảng tính hoặc bất kỳ tuỳ chỉnh dữ liệu nguồn. Khi bạn tạo biểu đồ, bạn có thể sử dụng phương pháp ExportPicture phần biểu đồ để tạo ảnh GIF của biểu đồ đó.
Để thực hiện việc này, bạn có thể sửa đổi tệp global.asa và tạo trang ASP với mã minh họa trong các bước sau.
Các bước sau để tạo dự án
-
Bắt đầu Microsoft Visual InterDev.
-
Tạo một dự án Web mới được gọi là
ServerChart và bấm vào nút tiếp theo . -
Nhập vào máy chủ sử dụng cho dự án Web này.
-
Bấm kết thúc để tạo dự án Web.
-
Bấm chuột phải vào thư mục dự án của bạn trên máy chủ (thường đây là C:\Inetpub\wwwroot\ServerChart), chọn thuộc tính và sau đó nhấp vào tab bảo mật .
-
Bấm vào quyềnvà thêm quyền thư mục sau:
IUSR_SERVERNAME: Đọc, viết, thực hiện và xoá
Tác giả: Đọc, viết, thực hiện và xoá -
Bấm OK để đặt quyền.
-
Dự án Visual InterDev, bấm chuột phải vào tệp global.asa và chọn Nhận làm việc sao chép.
-
Sửa đổi tệp global.asa có chứa kịch bản sau đây:
<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> -
Bấm vào Project menu, chọn Thêm Webvà sau đó chọn Trang chủ hoạt động. Tên trang chart.asp.
-
Sửa đổi các kịch bản chart.asp có các mục sau đây:
<%@ 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> -
Lưu dự án.
-
Bấm chuột phải vào chart.asp trong Dự án Explorer và chọn chế độ xem trong trình duyệt.
Trang xuất hiện với biểu đồ có CPU utilizations cho nhiều máy tính. Bằng cách tổ chức khác nhau, bạn có thể xem utilizations khác nhau.
Khi bạn tạo nhiều biểu đồ dựa trên bộ khác nhau của dữ liệu, mỗi biểu đồ phải được lưu dưới dạng tệp GIF duy nhất. Trong mẫu này, thư viện Scripting thời gian chạy FileSystemObject tạo một tệp tạm thời cho ảnh GIF. Tệp được đặt trong thư mục tương tự như trang ASP để bạn có thể sử dụng phương pháp MapPath phiên đối tượng để có được vị trí của tệp tạm thời. Tên tệp được lưu dưới dạng một biến phiên để nó sẽ bị xoá khi kết thúc phiên.
Chú ý IIS thực hiện chương trình con Session_OnEnd bất cứ khi nào phiên đã hết thời gian. Phiên thời gian nếu khách hàng không yêu cầu một trang trong thời gian được đặt thành một (1) phút đầu phiên.
Chú ý bổ sung
Hiện tại, bộ lọc chỉ khả dụng với phương pháp ExportPicture là "GIF" hình ảnh.
Phương pháp ExportPicture có hai tham số cho phép bạn chỉ ra giá trị tính theo pixel của biểu đồ được tạo ra. Mã mẫu cung cấp, kích thước chiều rộng và chiều cao được mã hoá cứng. Thay vào đó, bạn có thể sử dụng kích thước của khách hàng chỉ định.
OWC. Biểu đồ ProgID áp dụng cho Office Web thành phần 9.0. Nếu bạn muốn sử dụng phiên bản 10 phần, thay đổi ProgID từ OWC. Xếp hạng OWC10. ChartSpace hoặc nếu bạn muốn sử dụng phiên bản 11 phần, thay đổi ProgID từ OWC. Xếp hạng OWC11. ChartSpace.
Vấn đề với phía máy chủ sử dụng
Bạn nên biết rằng phần Web Office 2000 không được thiết kế để sử dụng phía máy chủ, và bạn có thể gặp phải sự cố nếu bạn sử dụng phần trên máy chủ với một số lượng kết nối người dùng đồng thời. Nhiều vấn đề này được giải quyết trong Office XP cấu phần Web Office 2003 cấu phần Web, và bạn nên cân nhắc sử dụng Office XP cấu phần Web hoặc Office 2003 cấu phần Web lớn phía máy chủ giải pháp.
Để biết thêm thông tin, bấm số bài viết sau để xem bài viết trong cơ sở kiến thức Microsoft:
Thông tin : sử dụng giới hạn của Office 2000 Web thành phần khi phía máy chủ
Tham khảo
Lập trình Microsoft Office Web Components của Dave Stearns ISBN: 0-7356-0794-X
Để biết thêm thông tin về cách sử dụng phần Web biểu đồ, xem bài viết cơ sở kiến thức sau:
làm thế nào để tạo biểu đồ kết hợp với phần Web biểu đồ
làm thế nào để sử dụng phần Web biểu đồ Office với VB
làm thế nào để sử dụng VBScript liên kết biểu cấu phần bảng tính
