📄 fieldcopyselect.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()
{
if(PermitNext.value==1)
window.parent.document.all['btnNext'].disabled =false;
}
function LocalDC()
{
var Fields;
var chk;
Fields=AllFields.value.split(",");
SelectedCount=0;
if(Fields.length>0)
{
for (i = 1; i <= Fields.length; i++)
{
eval("chk=frmData."+JTrim(Fields[i-1])+".status");
if(chk==true)
{
SelectedCount=SelectedCount+1;
}
}
}
if(SelectedCount==0)
{
alert("您未选择任何字段，请选择。")
return(false);
}
else if(SelectedCount>60)
{
alert("您选择的字段数超过60，请适当减少。")
return(false);
}
return(true);
}
function Next()
{
if(LocalDC()==true)
{
DisableButton();
document.frmData.target ="SaveArea";
document.frmData.action="savefieldcopyselect.asp";
document.frmData.submit();
}
}
function DisableButton()
{
window.parent.document.all['btnCancel'].disabled =true;
window.parent.document.all['btnPre'].disabled =true;
window.parent.document.all['btnNext'].disabled =true;
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.ImExport")
dim SheetID
SheetID=Request.Cookies("Temp")("SheetID")
dim HasPrimary,Result,AllFields,SelectPage
HasPrimary=WExcel.HasPrimaryKey(cint(SheetID))
if not HasPrimary then
WExcel.GetFieldCopySelectPage cint(UserID),cint(SheetID),Result,AllFields,SelectPage
end if
CheckErr
dim PermitNext
PermitNext=0
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY LANGUAGE=javascript onload="return Init()">
<form METHOD="post" name="frmData">
<table width="60%" align="center" CELLSPACING="1" CELLPADDING="0" bgcolor=999999>
<%if HasPrimary=true then%>
<tr>
<td bgcolor="white">
不允许复制数据，数据表设置有不允许重复的字段，其作用就是保证记录的唯一性，因此不允许复制操作。
</td>
</tr>
<%else%>
<%if Result=2 then%>
<tr>
<td bgcolor="white">
您无权复制数据，复制数据实质上也是一种录入操作，但系统未授予您录入权限。
</td>
</tr>
<%else%>
<tr>
<td bgcolor="white" width="10%">
选择
</td>
<td bgcolor="white" width="45%">
字段名称
</td>
<td bgcolor="white" width="45%">
数据类型
</td>
</tr>
<%=SelectPage%>
<%PermitNext=1%>
<%end if%>
<%end if%>
</table>
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</form>
<input TYPE="hidden" NAME="AllFields" value="<%=AllFields%>">
<input TYPE="hidden" NAME="PermitNext" value="<%=PermitNext%>">
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -