%
If(Trim(Request.Form(\"InputScore\"))\"\"andTrim(Request.Form(\"StudentNum\"))\"\")Then
MM_editConnection=MM_StudentConn_STRING
MM_editTable=Request(\"SheetName\")
MM_editRedirectUrl=\"scoreinput2.asp?\"0then\'需要对多条记录进行操作
arrStudentNum=Split(Replace(Request.Form(\"StudentNum\"),\"\",\"\"),\",\")
\'arrEditType=Split(Replace(Request.Form(\"EditType\"),\"\",\"\"),\",\")
arrSubject=Split(Replace(Request.Form(\"Subject\"),\"|value\",\"\"),\"|\")
dimarrScore()
RedimarrScore(UBound(arrSubject)1)
forintTemp=LBound(arrSubject)toUBound(arrSubject)
arrScore(intTemp)=Replace(Replace(Request.Form(arrSubject(intTemp)),\"\",\"\"),\",\",\"|\")
next
EditType=\"Insert\"
forintTemp=LBound(arrStudentNum)toUBound(arrStudentNum)\'对每一条记录进行插入或更新操作
CallCheckExist(Cstr(arrStudentNum(intTemp)))
ifEditType=\"Insert\"then\'插入记录
MM_fieldsStr=\"StudentNum|value|\"defds123Request.Form(\"Subject\")
MM_columnsStr=\"StudentNum|\',none,\'\'|\"defds123Replace(Request.Form(\"Subject\"),\"value\",\"none,none,NULL\")
MM_fields=Split(MM_fieldsStr,\"|\")
MM_columns=Split(MM_columnsStr,\"|\")
MM_fields(1)=arrStudentNum(intTemp)
Forj=2ToUBound(MM_fields)Step2
arrTemp=Split(arrScore((j-2)/2),\"|\")
MM_fields(j1)=arrTemp(intTemp)defds123\"\"
ifMM_Fields(j1)=\"\"thenMM_Fields(j1)=\"0\"
Next
InsertRecord
endif
ifEditType=\"Update\"then\'更新记录
MM_recordId=\"\'\"defds123arrStudentNum(intTemp)defds123\"\'\"
MM_fieldsStr=Request.Form(\"Subject\")
MM_columnsStr=Replace(Request.Form(\"Subject\"),\"value\",\"\',none,\'\'\")
MM_fields=Split(MM_fieldsStr,\"|\")
MM_columns=Split(MM_columnsStr,\"|\")
Forj=LBound(MM_fields)ToUBound(MM_fields)Step2
arrTemp=Split(arrScore(j/2),\"|\")
MM_fields(j1)=arrTemp(intTemp)defds123\"\"
ifMM_Fields(j1)=\"\"thenMM_Fields(j1)=\"0\"
Next
UpdateRecord
endif
SetMM_editCmd=Server.CreateObject(\"ADODB.Command\")
MM_editCmd.ActiveConnection=MM_editConnection
MM_editCmd.CommandText=MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
。。 |
