download.asp

学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息

<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%
	dim PublishCoID
	PublishCoID=Request.QueryString("CoID")
	Response.Cookies("Temp")("PublishCoID") = PublishCoID

	dim WExcel
	set WExcel=server.CreateObject("WExcel.Sheet")
	dim myType,FileName,SheetID,FieldID,RowID
	
	myType=Request.QueryString("myType")
	FileName=Request.QueryString("FileName")
	SheetID=Request.QueryString("SheetID")
	FieldID=Request.QueryString("FieldID")
	RowID=Request.QueryString("RowID")
	if SheetID="" then
		SheetID=0
	end if
	if FieldID="" then
		FieldID=0
	end if
	if RowID="" then
		RowID=0
	end if

	dim i,FileData,ErrDesc,HeadName,HeadData
	WExcel.SetDownLoadDataForPublish myType,FileName,FileData,HeadName,HeadData,ErrDesc,SheetID,FieldID,RowID
	
	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
	else
%>
		<link href="../include/main.css" rel="stylesheet" type="text/css">
		<table width="95%" border=0 align="center" BORDER=0 CELLSPACING=0 CELLPADDING=0>
			<tr height=200>
				<td>
					<%=ErrDesc%>
				</td>
			</tr>
		</table>

<%
	end if
	CheckErr
%>