admin/stulist2.asp，行119
源代码：
"999"then
response.write"
对不起,您没有权限使用导入excel的权限！"
response.end
endif
'在线将EXCEL表格数据导入ACCESS
'作者:SCI)_OruA
Response.Buffer=True
Server.ScriptTimeOut=9999
Session.CodePage=936
dimsubjectcjarray(20)
dimsql,rstable,rs,upfile
dimrsfield,rsmdb,rsxls
%>
EXCEL>ACCESS
",">")
fString=replace(fString,"返回"
response.end
endif
ifrs.eofthen
response.write"Excel表中无纪录!
"
response.write"返回"
response.end
else
SetRsDB=Server.CreateObject("ADODB.Recordset")
sqldel="deletefromtempcj"
conn.execute(sqldel)
conn.execute("ALTERTABLEtempcjALTERCOLUMNidCOUNTER(1,1)")
setrsdb=conn.execute("Selectid,subjectnamefromsubjectkswheretestname='"&session("testname")&"'")
strsubject=""
dowhilenotrsdb.eof
subject=rsdb("subjectname").value
strsubject=strsubject&subject&","
rsdb.movenext
loop
setrsdb=nothing
strsubject=left(strsubject,len(strsubject)-1)
dimsubject=split(strsubject,",")
kms=ubound(dimsubject)
i=0
dowhilenotrs.eof'利用循环读出数据
stuidh=rs("学号").value
stuname=rs("姓名").value
''''''''''''neshcymake修改''''''''''''
stusr=rs("生日").value
''''''''''''neshcymake修改''''''''''''
stunj=rs("年级").value
stubj=rs("班级").value
subjectfs=""
forj=0tokms
tempcj=trim(rs(dimsubject(j)))
iferrthen
response.write"
对不起，EXCEL模板中的第一行数据项没与要求的一致，请更改后再进入导入。"
response.write"返回"
response.end
endif
ifisnull(tempcj)then
tempcj="null"
endif
subjectfs=subjectfs&"'"&tempcj&"'"&","
next
subjectfs=left(subjectfs,len(subjectfs)-1)
''''''''''''neshcymake修改''''''''''''
sql="insertintotempcj(stuidh,stuname,生日,nj,bj,"&strsubject&")values('"&stuidh&"','"&stuname&"','"&stusr&"','"&stunj&"','"&stubj&"',"&subjectfs&")"
''''''''''''neshcymake修改''''''''''''
response.write""
conn.execute(sql)
i=i+1
rs.movenext
loop
response.Redirect("stulist2.asp?info1='"&i&"'")
endif
rs.close
setrs=nothing
conn.close
setconn=nothing
endif
%>
返回
当前考试名称：
EXCEL模板制作要求：
请在EXCEL表中第一行依次录入学号姓名年级班级
并把EXCEL默认表名sheet1更改为stucj。
模板样表：EXCEL表样（仅供参考）
|
第二步：开始数据导入
"/> |
""thenresponse.write"上传成功，请执行数据导入！"
ifrequest.querystring("info1")""thenresponse.write"成功导入数据"&request.querystring("info1")&"条！"%> | |
分 -->
|
