showchart.asp

来自「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」· ASP 代码 · 共 23 行

<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<%
	dim WExcel
	set WExcel=server.CreateObject("WExcel.Report")

	dim i,FileData,ErrDesc,HeadName,HeadData
	WExcel.SetReportChartData UserID,FileData,HeadName,HeadData,ErrDesc
	
	if ErrDesc="" then
		Response.Buffer = True
		if ubound(HeadName)>0 then
			for i=1 to ubound(HeadName)
				Response.AddHeader HeadName(i-1),HeadData(i-1)
			next		
		end if
		Response.BinaryWrite FileData
		Response.Flush
	end if
	CheckErr
%>