📄 analyzecopy.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 LocalDC()
{
if(ValidSheetDataCount.value<=0)
{
alert("没有可以复制的数据，请检查数据内容与格式。")
return false;
}
else
return confirm("您确定要复制这" + ValidSheetDataCount.value + "条记录吗？");
}
function Finish()
{
if(LocalDC()==true)
{
window.parent.document.all['Prompt'].innerHTML="正在复制数据，此过程需要花费一点时间，请稍候。";
DisableButton();
document.frmData.target ="SaveArea";
document.frmData.action="copydata.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 CopyTo
CopyTo=Request.Cookies("ImExport")(SheetID & "CopyTo")
dim CopyRange,CurSelectedRows,PageRows
CopyRange=Request.Cookies("ImExport")("CopyRange")
CurSelectedRows=Request.Cookies("ImExport")("CurSelectedRows")
PageRows=Request.Cookies("ImExport")("PageRows")
dim RowIDs,strWhere
if CopyRange=0 then
RowIDs=PageRows
elseif CopyRange=1 then
RowIDs=CurSelectedRows
else
RowIDs=""
end if
strWhere=Request.Cookies("Temp")("Where" & SheetID)
dim ValidSheetDataCount,ValidSheetData,InvalidSheetDataCount,InvalidSheetData
WExcel.AnalyzeCopyData cint(UserID),cint(SheetID),cint(CopyTo),cstr(strWhere),cint(CopyRange),cstr(RowIDs),ValidSheetDataCount,ValidSheetData,InvalidSheetDataCount,InvalidSheetData
Response.Buffer =true
CheckErr
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<form METHOD="post" name="frmData">
<table width="100%" border=0 cellPadding=0 cellSpacing=0>
<tr>
<td>可复制行数：<%=ValidSheetDataCount%>，不可复制行数：<%=InvalidSheetDataCount%>
</td>
</tr>
<%if ValidSheetDataCount>0 then%>
<tr>
<td>
<table width="100%" border=0 CELLSPACING="1" CELLPADDING="0" bgcolor=999999>
<%
for i=1 to ValidSheetDataCount+2 '包含前面2标题行
Response.Write ValidSheetData(i-1)
next
%>
</table>
</td>
</tr>
<tr height=15>
<td>
</td>
</tr>
<%end if%>
<%if InvalidSheetDataCount>0 then%>
<tr>
<td>
<table width="100%" border=0 CELLSPACING="1" CELLPADDING="0" bgcolor=999999>
<%
for i=1 to InvalidSheetDataCount+2 '包含前面2标题行
Response.Write InvalidSheetData(i-1)
next
%>
</table>
</td>
</tr>
<%end if%>
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</table>
</form>
<input TYPE="hidden" NAME="ValidSheetDataCount" value="<%=ValidSheetDataCount%>">
<%
CheckErr
Response.Flush
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -