📄 batchmodify.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function Init()
{
if(Result.value!=0)
{
if(Result.value==3)
alert("对不起，您使用的是试用版，批量修改被限制，正式版提供此功能。")
else
alert("批量修改失败。")
window.parent.parent.parent.close() //总共有4层：frame.asp,batchstep3.asp,batchanalyze.asp,savearea
}
else
window.parent.parent.navigate("batchresult.asp")
}
//-->
</SCRIPT>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim SheetID
SheetID=Request.Cookies("Temp")("SheetID")
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,ModifyCount
Result=WExcel.BatchModify(cint(UserID),cint(SheetID),cint(FieldID),cint(ModifyRange),cstr(RowIDs),cint(optModify),cstr(ValueStr),cint(FieldByStr),cstr(FormulaStr),cstr(strWhere),cstr(strOrderBy),ModifyCount)
Response.Cookies("Temp")("ModifyCount")=ModifyCount
CheckErr
%>
<body LANGUAGE=javascript onload="return Init()">
<input TYPE="hidden" NAME="Result" value="<%=Result%>">
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -