maketable.asp

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

ASP
51 行
字号 
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<script src="../include/function.js" type="text/javascript"></script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function Close() 
{
	if(Result.value!=0)
	{
		if(Result.value==2)
			alert("服务器端 MS Office 程序异常，请参考系统管理手册。")
		else
			alert("生成表单失败。")
		parent.window.returnValue = "";
		parent.window.close();
	}
	else
	{
		parent.navigate("downtable.asp") 
	}
}

//-->
</SCRIPT>
<%

	Server.ScriptTimeout=600	'生成表单时，如果有较多子表记录需要填入，耗时较长，设置为10分钟

	dim WExcel
	set WExcel=server.CreateObject("WExcel.Sheet")

	dim SheetID,RowID,SheetTableID
	SheetID=Request.form("SheetID")
	SheetTableID=Request.form("SheetTableID")
	RowID=Request.form("RowID")

	Response.Cookies("Sheet")("TableSelect" & SheetID)=SheetTableID
	Response.Cookies("Sheet").Expires = CookieLife

	dim Result,TableFile
	Result=WExcel.MakeTable(cint(UserID),cint(SheetID),clng(RowID),cint(SheetTableID),TableFile)
	Response.Cookies("Temp")("TableFile")=TableFile 
	CheckErr
	
%>
<body  LANGUAGE=javascript onload="return Close()">
	<input TYPE="hidden" NAME="Result" value="<%=Result%>">
	<input TYPE="hidden" NAME="TableFile" value="<%=TableFile%>">
</body>

maketable.asp - 源码说明

本页面展示了「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」中的 maketable.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与记录相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?