admindatabasesave.asp

一套在线考试系统

<!--#include file="conn.asp"-->
<%
DIM MyComm, QuestionID,subject,subjecttype,difficulty,question,BH,Department,Chapter
dim text1,text2,text3,text4,text5,text6,text7,text8,answer,standard,score
Dim topage,str, iCount,iRet
subject=request.form("subject")
subjecttype=request.form("subjecttype")
difficulty=request.form("difficulty")
question=request.form("question")
text1=request.form("text1")
text2=request.form("text2")
text3=request.form("text3")
text4=request.form("text4")
text5=request.form("text5")
text6=request.form("text6")
text7=request.form("text7")
text8=request.form("text8")
answer=request.form("answer")
standard=request.form("standard")
score=request.form("score")
QuestionID=""
BH=""
Department=""
Chapter=""
iCount=0
iRet=1

Set MyComm = Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection = conn
MyComm.CommandText = "P_Question_Add" 
MyComm.CommandType = 4 
MyComm.Prepared = true 	
MyComm.Parameters.append MyComm.CreateParameter("@QuestID",200,2,10)
MyComm.Parameters.append MyComm.CreateParameter("@BH",200,1,50,BH)
MyComm.Parameters.append MyComm.CreateParameter("@Department",200,1,50,Department)
MyComm.Parameters.append MyComm.CreateParameter("@subject",200,1,40,subject)
MyComm.Parameters.append MyComm.CreateParameter("@QType",200,1,20,subjecttype)
MyComm.Parameters.append MyComm.CreateParameter("@Chapter",200,1,10,Chapter)
MyComm.Parameters.append MyComm.CreateParameter("@Difficulty",200,1,20,difficulty)
MyComm.Parameters.append MyComm.CreateParameter("@Question",200,1,1000,Question)
MyComm.Parameters.append MyComm.CreateParameter("@answer",200,1,40,answer)
MyComm.Parameters.append MyComm.CreateParameter("@standard",200,1,200,standard)
MyComm.Parameters.append MyComm.CreateParameter("@Qscore",5,1,4,score)	
MyComm.Parameters.append MyComm.CreateParameter("@ret",2,2,2)
MyComm.Execute

QuestionID = MyComm(0)
iRet= MyComm(11)
Set MyComm = Nothing 

if iRet= 0 then
    if subjecttype="单选题" or subjecttype="多选题" or subjecttype="排序题" then
      Set MyComm = Server.CreateObject("ADODB.Command")
	  MyComm.ActiveConnection = conn
	  MyComm.CommandText = "P_QuestList_Add" 
	  MyComm.CommandType = 4 
	  MyComm.Prepared = true 	
	  MyComm.Parameters.append MyComm.CreateParameter("@QuestID",200,1,10,QuestionID)
	  MyComm.Parameters.append MyComm.CreateParameter("@OptionID",2,1,2)	
	  MyComm.Parameters.append MyComm.CreateParameter("@Content",200,1,200)		
	  MyComm.Parameters.append MyComm.CreateParameter("@ret",2,2,2)	
	  
	  if text1<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text1
		MyComm.Execute			  
	  end if  
	  if text2<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text2
		MyComm.Execute			  
	  end if  
	  if text3<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text3
		MyComm.Execute			  
	  end if  
	  if text4<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text4
		MyComm.Execute			  
	  end if  
	  if text5<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text5
		MyComm.Execute			  
	  end if  
	  if text6<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text6
		MyComm.Execute			  
	  end if  
	  if text7<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text7
		MyComm.Execute			  
	  end if  
	  if text8<>"" then
	    iCount= iCount +1
		MyComm.Parameters("@OptionID")= iCount
		MyComm.Parameters("@Content")= text8
		MyComm.Execute			  
	  end if  
    End if
	topage="admindatabaseadd.asp?subject=" & subject & "&str=添加成功！请继续添加题目！" 
	response.redirect topage
end if

%>