batchmodify.asp

来自「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」· ASP 代码 · 共 60 行

ASP

60 行

<!-- #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>

batchmodify.asp - 源码说明

本页面展示了「学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息」中的 batchmodify.asp 源码文件，采用 ASP 编程语言编写，共 60 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与记录相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?