📄 savelist.asp
字号:
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
if (Result.value==0)
parent.parent.parent.close()
else
{
if (Result.value==2)
alert("视图名重名。系统中已有相同名称、相同类型（私有或公用）的视图，请更改后再保存。");
else if (Result.value==3)
alert("视图数量过多，对每个数据表，您拥有的私有视图数以及系统拥有的公用视图数最多均为 20 个，请整理删除一些后再设置。");
else if (Result.value==4)
alert("保存失败。您正在修改的视图已经不存在，可能被其他人删除掉了，请检查。");
else if (Result.value==5)
alert("保存失败。数据表不存在，可能被其他人删除掉了，请检查。");
else
alert("保存失败。");
}
window.parent.EnableButton();
}
//-->
</SCRIPT>
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()">
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim SheetID,ViewID,Result,NewID
SheetID=Request.Cookies("Temp")("SheetID")
ViewID=Request.Cookies("Sheet")("ViewSelect" & SheetID)
if IsEmpty(ViewID) then
ViewID="-1" '表示未指定缺省视图，也未指定任何公共、私有视图
end if
Result=WExcel.SaveList(cint(UserID),cint(SheetID),cint(ViewID),NewID)
if Result=0 then
Response.Cookies("Sheet")("ViewSelect" & SheetID)=NewID
Response.Cookies("Sheet").Expires = CookieLife
end if
CheckErr
%>
<input TYPE="hidden" NAME="Result" value="<%=Result%>">
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -