addtopicok.asp

网络教学平台由教师教学系统、学生学习系统和教学管理系统三大模块组成

<!--#include file="Check.asp"-->
<!--#include file="Conn.asp"-->
<!--#include FILE="Config.asp"-->
<!--#include FILE="UpClass.asp"-->
<%
Dim TeachingSujectID 
TeachingSujectID = Session("TestTeachingSujectID")
Session("TestTeachingSujectID") = TeachingSujectID
If Session("TestTeachingSujectID") = "" Then
	Response.Write("参数错误！")
	Response.End
End If
%>
<%
set upload=new upload_5xsoft ''建立上传对象
if right(SoftPath,1)<>"/" then SoftPath=SoftPath&"/" 
PicList=""
for each formName in upload.objFile
	set file=upload.file(formName)
	If file.fileName<>"" Then
		ranNum = int(888*rnd)+111
		Ext = split(file.fileName,".")
		FileExt = Ext(ubound(Ext))'取得文件名后缀
		if file.FileSize>0 then
			FileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
			file.SaveAs Server.mappath(SoftPath&FileName)
			PicList=FileName&","&PicList
		End If
	End If
next
subjectview=Trim(upload.form("subjectview"))
typeadd=upload.form("typeadd")

if typeadd="单选题" then
  sql="select * from TestTopic"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("subject")=subjectview
  rs("type")=typeadd
  rs("question")=upload.form("question")
  rs("text1")=upload.form("text1")
  rs("text2")=upload.form("text2")
  rs("text3")=upload.form("text3")
  rs("text4")=upload.form("text4")
  rs("text5")=upload.form("text5")
  rs("text6")=upload.form("text6")
  rs("answer")=upload.form("answer")
  rs("PicList")=PicList
  rs("TeachingSujectID")=Session("TestTeachingSujectID")
  rs.update
  topage="AddTopic.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！"
  response.redirect topage
end if
if typeadd="多选题" then
  sql="select * from TestTopic"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("subject")=subjectview
  rs("type")=typeadd
  rs("question")=upload.form("question")
  rs("text1")=upload.form("text1")
  rs("text2")=upload.form("text2")
  rs("text3")=upload.form("text3")
  rs("text4")=upload.form("text4")
  rs("text5")=upload.form("text5")
  rs("text6")=upload.form("text6")
  rs("answer")=upload.form("answer")
  rs("TeachingSujectID")=Session("TestTeachingSujectID")
  rs("PicList")=PicList
  rs.update
  topage="AddTopic.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！"
  response.redirect topage
end if
if typeadd="判断题" then
  sql="select * from TestTopic"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("subject")=subjectview
  rs("type")=typeadd
  rs("question")=upload.form("question")
  rs("answer")=upload.form("answer")
  rs("PicList")=PicList
  rs("TeachingSujectID")=Session("TestTeachingSujectID")
  rs.update
  topage="AddTopic.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！"
  response.redirect topage
end if

%>