📄 maketableset.asp

📁 学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息
💻 ASP
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<script src="../include/function.js" type="text/javascript"></script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

	var HasChanged;

	function Init() 
	{
		if(frmData.SheetTableID.length<=1)
		{
			Prompt.innerText="尚未设置表单模板，请进入系统管理设置。"
			return false;
		}
	}

	function OpenSample(file) {
		try
		{
			window.open (file,'Sample')
		}
		catch(e)
		{
			alert('打开示例失败。\n请检查当前浏览器版本，建议使用IE6.0以上版本。')
		}
	}

	function Save(target) {
		if(LocalDC())
		{
			SavePrompt();
			parent.window.returnValue = true;
			document.frmData.target ="SaveArea";
			document.frmData.action=target;
			document.frmData.submit();
		}
	}

	function Cancel() {
		if(HasChanged==true)
		{
			discard=confirm("您已经输入了一些信息，但尚未保存。放弃您所作的输入吗？");
			if(discard==true)
			{
				parent.window.returnValue = false;
				parent.window.close();
			}
		}
		else
		{
			parent.window.returnValue = false;
			parent.window.close();
		}
	}

	function HasChange() {
//		HasChanged=true;	//pop式窗口，没必要提示保存
	}

	//数据合法性检查
	function LocalDC() 
	{
		if(frmData.SheetTableID.length<=1)
		{
			alert("尚未设置表单模板，请进入系统管理设置。")
			return false;
		}

		//表单模板必选
		if(frmData.SheetTableID.value==0)
		{
			alert("未选择表单模板，请选择。")
			return false;
		}

		return true;
	}

	function SavePrompt() 
	{
		Prompt.innerText ="正在生成表单......此过程需要花费一点时间，请稍候。"
		frmData.btnSave.disabled =true;
		frmData.btnCancel.disabled =true;
	}

//-->
</SCRIPT>
<%

	dim WExcel
	set WExcel=server.CreateObject("WExcel.Sheet")
	
	dim SheetAndRowID,Parts,SheetID,RowID,TableID
	SheetAndRowID=Request.QueryString("SheetAndRowID")
	Parts=split(SheetAndRowID,JoinChar)
	SheetID=Parts(0)
	RowID=Parts(1)

	dim Ret
	Ret=WExcel.SheetExist(cint(UserID),cint(SheetID))
	CheckErr
	if Ret=false then
		Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
	end if
	Ret=WExcel.SheetDataExist(cint(UserID),cint(SheetID),clng(RowID))
	CheckErr
	if Ret=false then
		Response.Redirect "/hcgis/notfound.asp?Name=记录&Depth=2"
	end if
	
	'确定当前表单
	TableID=Request.Cookies("Sheet")("TableSelect" & SheetID)
	if not isnumeric(TableID) then
		TableID="0"
	end if

	dim TableOption
	TableOption=WExcel.GetTableOption(cint(UserID),cint(SheetID),cint(TableID),cint(TableType_Page))
	CheckErr

%>
<html>
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" LANGUAGE=javascript onload="return Init()">
	<form METHOD="post" name="frmData">
		<table width="100%" border=0 CELLSPACING=0 CELLPADDING="0">
			<tr height="35">
				<td>
					<b>
						生成表单
					</b>
				</td>
			</tr>
			<tr height=30 valign=center>
				<td><p align=center>数据可填入预先设置的模板文件中，与纸面作业无缝衔接。</p></td>
			</tr>
			<tr valign="top">
				<td>
					<table width="70%" border=0 align=center CELLSPACING="1" CELLPADDING="0">
						<tr>
							<td bgcolor="#e0e0e0" width="22%">
								<p align="left">表单模板<FONT color=red>*</FONT></p>
							</td>
							<td width="56%">
								<p align="left">
									<select name=SheetTableID style="WIDTH: 162px" LANGUAGE=javascript onchange="HasChange();">
										<%=TableOption%>
									</select>
								</p>
							</td>
							<td width="22%">
								<U style="CURSOR: hand;" onclick="javascript:OpenSample('table20050807.xls')">效果示例</U>
							</td>
						<tr>
					</table>
				</td>
			</tr>
			<tr height=40 valign=center>
				<td><p id=Prompt align=center>&nbsp;</p></td>
			</tr>
			<tr height=40 valign=bottom>
				<td>
					<table width="100%">
						<tr>
							<td width="25%"></td>
							<td width="25%"><input id="btnSave" type="button" value="生成" name="btnSave" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Save('maketable.asp')"></td>
							<td width="25%"><input id="btnCancel" type="button" value="取消" name="btnCancel" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Cancel()"></td>
							<td width="25%"></td>
						</tr>
					</table>
				</td>
			</tr>
		</table>
		<input TYPE="hidden" NAME="SheetID" value="<%=SheetID%>">
		<input TYPE="hidden" NAME="RowID" value="<%=RowID%>">
		<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
		</iframe>
	</form>
</body>                                                                                                           
</html>
💿 文件大小 8499 K
👤 上传用户 ddddong
📂 所属分类 JavaScript
🏷️ 相关标签

#记录
⌨️ 快捷键说明

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