📄 edit.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">
<!--
function Init()
{
PublishChange();
}
function LocalDC()
{
if (JTrim(document.frmData.Caption.value)=="")
{
alert("名称未填写，请填写。")
return false;
}
else if(!isValidFileName("名称",document.frmData.Caption.value))
{
alert(ErrorMessage)
return false;
}
else if(frmData.Publish.status==true && frmData.UserIDForPermission.value==0)
{
alert("公布数据表时必须指定匿名帐号，系统根据此帐号限定允许查看的字段、允许列出的记录范围、使用哪个列表视图等。")
return false;
}
else
{
if(frmData.Publish.status==true)
{
var PublishConfirm;
PublishConfirm=confirm("警告！您已选择公开发布本数据表，用户无需登录就可公开查阅本表的详细记录，您确定要这么做吗？");
if(PublishConfirm==true)
return true;
else
return false;
}
else
return true;
}
}
function PublishChange()
{
if(frmData.Publish.status==true)
{
frmData.FieldIDForFilter.disabled =false;
frmData.UserIDForPermission.disabled =false;
CaptionofFieldIDForFilter.style.color=""
CaptionofUserIDForPermission.style.color=""
}
else
{
frmData.FieldIDForFilter.disabled =true;
frmData.UserIDForPermission.disabled =true;
CaptionofFieldIDForFilter.style.color="graytext"
CaptionofUserIDForPermission.style.color="graytext"
}
HasChanged=true
}
function OpenSample(file) {
try
{
window.open (file,'Sample')
}
catch(e)
{
alert('打开示意图失败。\n请检查当前浏览器版本，建议使用IE6.0以上版本。')
}
}
function SavePrompt()
{
frmData.btnSave.disabled =true;
frmData.btnCancel.disabled =true;
}
function EnableButton()
{
frmData.btnSave.disabled =false;
frmData.btnCancel.disabled =false;
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.System")
dim RowID,NewRecord,strBody,strScript,Success
RowID=Request.QueryString("RowID")
dim Exist
Exist=WExcel.SheetExist(cint(UserID),cint(RowID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
end if
NewRecord="0"
Success=WExcel.GetSheetCaptionEditPage(cint(UserID),cstr(NewRecord),strBody,strScript,clng(RowID))
CheckErr
Response.Write strScript
%>
<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 colspan=5>
<b>
修改数据表
</b>
</td>
</tr>
<tr height=180 valign="top">
<td colspan=5>
<table width="95%" border=0 CELLSPACING="1" CELLPADDING="0">
<%=strBody%>
</table>
</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('save.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="NewRecord" value="<%=NewRecord%>">
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -