📄 listhead.asp
字号:
<!-- #include file = "../../../include/asphead.asp" -->
<!-- #include file = "../../../include/function.asp" -->
<%CheckUser()%>
<script src="../../../include/function.js" type="text/javascript"></script>
<link href="../../../include/main.css" rel="stylesheet" type="text/css">
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function window_onload(){
btnAdd.disabled =false;
btnAddRef.disabled =false;
SetRows();
window.parent.RightData.navigate("list.asp");
}
function window_onresize() {
SetRows();
}
function SetRows()
{
parent.RightPanel.rows=RightHeadTable.clientHeight + ",*";
}
function AddRecord() {
if(window.showModalDialog("frame.asp?target=new.asp", "","dialogwidth:560px;dialogheight:380px;Status:0;center:1;resizable=1;")==true)
{
window.parent.RightData.navigate("list.asp");
}
}
function AddRefRecord() {
if(window.showModalDialog("frame.asp?target=newref.asp", "","dialogwidth:560px;dialogheight:285px;Status:0;center:1;resizable=1;")==true)
{
window.parent.RightData.navigate("list.asp");
}
}
function DelRecord()
{
var SelectedRow,BadRow;
BadRow=window.parent.RightData.CheckDelAuth();
if(BadRow!="")
{
alert("字段不能删除。\n字段号：" + BadRow+"。为了保证系统完整性，当某个字段已经被其它功能引用、删除它会导致功能严重失效时，系统将不允许删除。这些重要引用包括：\n(1) 权限控制中用于限定记录范围\n(2) 被其它字段的公式引用\n(3) 用作颜色设置的条件\n(4) 被报表的分类字段、数据字段引用\n(5) 被提醒模板引用\n(6) 用作表间关联字段\n(7) 被其它数据表引用\n请查看字段的‘相关数据’，首先处理好这些引用情况，然后再删除。\n")
}
else
{
SelectedRow=window.parent.RightData.RowSelect();
if(SelectedRow=="")
{
alert("您要删除哪些字段？请选择。")
}
else
{
if(confirm("警告！\n删除字段将彻底清除数据表中该字段的数据及修改历史，且无法恢复。\n您确定要删除这些字段吗？")==true)
{
document.frmData.RowSelect.value =SelectedRow;
document.frmData.target ="SaveArea";
document.frmData.action="del.asp";
document.frmData.submit();
}
}
}
}
function SetLayout() {
if(window.showModalDialog ("frame.asp?Target=viewpage.asp","","dialogwidth:640px;dialogheight:480px;Status:0;center:1;resizable=1;")==true)
{
window.parent.RightData.navigate("list.asp");
}
}
//-->
</script>
<%
if instr(1,Request.ServerVariables("HTTP_REFERER"),"sheettree.asp")>0 then
'来自于数据表树
dim WExcel
set WExcel=server.CreateObject("WExcel.System")
SheetID=Request.Form ("SheetID")
dim Exist
Exist=WExcel.SheetExist(cint(UserID),cint(SheetID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=0"
end if
strWhere=""
strOrderBy=Request.Cookies("System")("StructureOrderBy")
CurPage=1
Response.Cookies("System")("StructureSheetID")=SheetID
Response.Cookies("System")("StructureCurPage")=CurPage
Response.Cookies("System").Expires = CookieLife
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="window_onload()" onresize="window_onresize()">
<table id=RightHeadTable name=RightHeadTable width="100%" border="0" cellPadding=0 cellSpacing=0>
<tr height=20>
<td width="55%">
<p align="left" id="PageNavigate">
</p>
</td>
<td width="45%">
<p align="right">
<input type="button" name="btnAdd" disabled value="新增" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return AddRecord()">
<input type="button" name="btnAddRef" disabled value="引用" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return AddRefRecord()">
<input type="button" name="btnDel" disabled value="删除" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return DelRecord()">
<input type="button" name="btnSetLayout" disabled value="页面排版" style="cursor:hand; WIDTH: 80px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return SetLayout()">
</p>
</td>
</tr>
<tr>
<td colspan=2>
<table width=100% cellspacing=1 bgcolor=999999>
<tr>
<td bgcolor='white' width=1% title='全选/全清'><INPUT name=chkAll onClick=SelectAll() type=checkbox></td>
<td bgcolor=white style='cursor:hand' width=9% onClick=ChgOrder('FieldID') title=按字段号排序>字段号</td>
<td bgcolor=white style='cursor:hand' width=19% onClick=ChgOrder('Caption') title=按名称排序>名称</td>
<td bgcolor=white style='cursor:hand' width=12% onClick=ChgOrder('DataType') title=按数据类型排序>数据类型</td>
<td bgcolor=white style='cursor:hand' width=19% onClick=ChgOrder('OptionID') title=按选项字典排序>选项字典</td>
<td bgcolor=white style='cursor:hand' width=7% onClick=ChgOrder('Reference') title=按引用字段排序>引用<br>字段</td>
<td bgcolor=white style='cursor:hand' width=7% onClick=ChgOrder('PrimaryKey') title=按不得重复排序>不得<br>重复</td>
<td bgcolor=white style='cursor:hand' width=7% onClick=ChgOrder('NotNull') title=按必填排序>必填</td>
<td bgcolor=white style='cursor:hand' width=11% onClick=ChgOrder('FormulaType') title=按公式设置排序>公式设置</td>
<td bgcolor=white style='cursor:hand' width=8% onClick=ChgOrder('ListOrder') title=按顺序号排序>顺序号</td>
</tr>
</table>
</td>
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</tr>
<form METHOD="post" name="frmData">
<input TYPE="hidden" NAME="OrderBy" value="<%=Request.Cookies("System")("StructureOrderBy")%>">
<input TYPE="hidden" NAME="CurPage">
<input TYPE="hidden" NAME="RowSelect">
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -