📄 batchanalyze.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(MayModifyCount.value<=0)
{
alert("没有可修改的记录。")
return false;
}
else
return confirm("您确定要修改这" + MayModifyCount.value + "条记录吗？");
}
function Finish()
{
if(LocalDC()==true)
{
window.parent.document.all['Prompt'].innerHTML="正在批量修改，此过程需要花费一点时间，请稍候。";
DisableButton();
document.frmData.target ="SaveArea";
document.frmData.action="batchmodify.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;
}
function window_onload()
{
if(parseInt(Result.value)>0)
{
window.parent.document.all['btnCancel'].disabled =false;
window.parent.document.all['btnPre'].disabled =false;
window.parent.document.all['btnNext'].disabled =true;
}
else
{
window.parent.document.all['btnCancel'].disabled =false;
window.parent.document.all['btnPre'].disabled =false;
window.parent.document.all['btnNext'].disabled =true;
}
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim SheetID,ViewID
SheetID=Request.Cookies("Temp")("SheetID")
ViewID=Request.Cookies("Sheet")("ViewSelect" & SheetID)
if IsEmpty(ViewID) then
ViewID="-1" '表示未指定缺省视图，也未指定任何公共、私有视图
end if
dim FieldID,ModifyRange,CurSelectedRows,PageRows
dim RowIDs,strWhere,strOrderBy
FieldID=Request.Cookies("Temp")("BatchFieldID")
ModifyRange=Request.Cookies("Temp")("ModifyRange")
CurSelectedRows=Request.Cookies("Temp")("CurSelectedRows")
PageRows=Request.Cookies("Temp")("PageRows")
if ModifyRange=0 then
RowIDs=PageRows
elseif ModifyRange=1 then
RowIDs=CurSelectedRows
else
RowIDs=""
end if
strWhere=Request.Cookies("Temp")("Where" & SheetID)
strOrderBy=Request.Cookies("Sheet")("OrderBy" & CoID & "-" & SheetID)
dim optModify,ValueStr,FieldByStr,FormulaStr
optModify=Request.Cookies("Temp")("optModify")
ValueStr=Request.Cookies("Temp")("ValueStr")
FieldByStr=Request.Cookies("Temp")("FieldByStr")
FormulaStr=Request.Cookies("Temp")("FormulaStr")
dim Result
dim Title,ColNum,MayModifyCount,MayModifyData,RefuseModifyCount,RefuseModifyData,NoChangeCount,NoChangeData
Result=WExcel.AnalyzeModifyReq(cint(UserID),cint(SheetID),cint(ViewID),cint(FieldID),cint(ModifyRange),cstr(RowIDs),cint(optModify),cstr(ValueStr),cint(FieldByStr),cstr(FormulaStr),cstr(strWhere),cstr(strOrderBy),Title,ColNum,MayModifyCount,MayModifyData,RefuseModifyCount,RefuseModifyData,NoChangeCount,NoChangeData)
Response.Buffer =true
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()">
<form METHOD="post" name="frmData">
<%
if Result>0 then
%>
<table width="100%" border=0 cellPadding=0 cellSpacing=0>
<tr height=100>
<td bgcolor='white'>
批量修改无法实现，请检查修改值是否合理，如：日期早于1753年或晚于9999年为不合理值。
</td>
</tr>
<%
else
%>
<table width="100%" border=0 cellPadding=0 cellSpacing=0>
<tr>
<td>
可修改行数：<%=MayModifyCount%>
<%if RefuseModifyCount>0 then%>
，不可修改行数：<%=RefuseModifyCount%>
<%end if%>
<%if NoChangeCount>0 then%>
，无改动行数：<%=NoChangeCount%>
<%end if%>
</td>
</tr>
<%if MayModifyCount>0 then%>
<tr>
<td>
<table width="100%" border=0 cellPadding=0 cellSpacing=1 bgcolor=999999>
<tr bgcolor="#e0e0e0">
<td colspan=<%=ColNum%>>
<p align=left>可修改的数据行：</p>
</td>
</tr>
<%=Title%>
<%
for i=1 to MayModifyCount
Response.Write MayModifyData(i-1)
next
%>
</table>
</td>
</tr>
<tr height=15>
<td>
</td>
</tr>
<%end if%>
<%if RefuseModifyCount>0 then%>
<tr>
<td>
<table width="100%" border=0 cellPadding=0 cellSpacing=1 bgcolor=999999>
<tr bgcolor="#e0e0e0">
<td colspan=<%=ColNum%>>
<p align=left>不可修改的数据行：</p>
</td>
</tr>
<%=Title%>
<%
for i=1 to RefuseModifyCount
Response.Write RefuseModifyData(i-1)
next
%>
</table>
</td>
</tr>
<tr height=15>
<td>
</td>
</tr>
<%end if%>
<%if NoChangeCount>0 then%>
<tr>
<td>
<table width="100%" border=0 cellPadding=0 cellSpacing=1 bgcolor=999999>
<tr bgcolor="#e0e0e0">
<td colspan=<%=ColNum%>>
<p align=left>无改动的数据行：</p>
</td>
</tr>
<%=Title%>
<%
for i=1 to NoChangeCount
Response.Write NoChangeData(i-1)
next
%>
</table>
</td>
</tr>
<tr height=15>
<td>
</td>
</tr>
<%end if%>
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</table>
<% end if%>
</form>
<input TYPE="hidden" NAME="MayModifyCount" value="<%=MayModifyCount%>">
<input TYPE="hidden" NAME="Result" value="<%=Result%>">
<%
CheckErr
Response.Flush
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -