📄 setinput.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<!-- #include file = "../include/calendar.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<script src="../include/function.js" type="text/javascript"></script>
<script src="check.js" type="text/javascript"></script>
<script src="expandcheck.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
//日期设定方式发生变化，disable或enable日期输入框
function ChangeStyle(styleCtrl,dateCtrl)
{
var btnCalName; //日期文本框右边的button名称
btnCalName="btnFor" + dateCtrl.name;
HasChange();
if(styleCtrl.value==0)
{
dateCtrl.value="";
dateCtrl.style.backgroundColor="#e0e0e0";
dateCtrl.disabled=true;
eval("frmData."+btnCalName+".disabled=true;");
}
else
{
dateCtrl.style.backgroundColor="white";
dateCtrl.disabled=false;
eval("frmData."+btnCalName+".disabled=false;");
}
}
function Close()
{
parent.window.close();
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim SheetID
dim strBody,strScript,Result
SheetID=Request.Cookies("Temp")("SheetID")
dim Exist
Exist=WExcel.SheetExist(cint(UserID),cint(SheetID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
end if
Result=WExcel.GetInputSetPage(cint(UserID),cint(SheetID),strBody,strScript)
Response.Write strScript
if Result=0 then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" style="overflow-x: hidden">
<form METHOD="post" name="frmData" ENCTYPE="multipart/form-data">
<table width="100%" align=center border=0>
<tr height="35">
<td colspan=5>
<b>
设置录入缺省值
</b>
</td>
</tr>
<tr height=30>
<td colspan=2>
将每次录入都要重复填写的内容设置为缺省值，可提高录入效率。
</td>
</tr>
<tr height=282 valign="top">
<td colspan=5>
<table width="99%" border=0 CELLSPACING="1" CELLPADDING="0">
<%=strBody%>
</table>
</td>
</tr>
<tr height=30 valign=bottom>
<td colspan=5><p id=Prompt></p></td>
</tr>
<tr>
<td colspan="5">
<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('saveinputset.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>
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
<input TYPE="hidden" NAME="CoID" value="<%=CoID%>">
<input TYPE="hidden" NAME="SheetID" value="<%=SheetID%>">
<input TYPE="hidden" NAME="RefFieldCount" value="0">
</form>
</body>
</html>
<%
else
%>
<html>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="70%" align=center border=0>
<tr height=282 valign="center">
<td>
系统未授予您录入权限，显然也无权设置录入的缺省值。
</td>
</tr>
<tr>
<td>
<p align=center>
<input id="btnCancel" type="button" value="关闭" name="btnCancel" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Cancel()">
</p>
</td>
</tr>
</table>
</body>
</html>
<%
end if
CheckErr
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -