Count0=GetCategoryCount(0,0)

Count1=GetCategoryCount(0,1)

Count2=GetCategoryCount(0,2)

Count3=GetCategoryCount(0,3)



If Trim(Request.Form("All0"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("All0")),Count0,"所有单选题")

Paper_Content=Temp&"||"

Paper_Question0=Temp

Else

Paper_Content="0||" '----------------这里的"0||"是什么意思?

End If

If Trim(Request.Form("All1"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("All1")),Count1,"所有多选题")

Paper_Content=Paper_Content&Temp&"||"

Paper_Question1=Temp

Else

Paper_Content=Paper_Content&"0||" '----------------这里的"0||"是什么意思?

End If



If Trim(Request.Form("All2"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("All2")),Count2,"所有简答题")

Paper_Content=Paper_Content&Temp&"&||&"

Paper_Question2=Temp

Else

Paper_Content=Paper_Content&"0&||&" '----------------这里的"0&||&"是什么意思?



If Trim(Request.Form("All3"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("All3")),Count3,"所有填空题")

Paper_Content=Paper_Content&Temp&"*******" '----------------这里的"****"因该怎么写?

Paper_Question3=Temp

Else

Paper_Content=Paper_Content&"*******" '----------------这里的"****"因该怎么写?

End If

ElseIf Paper_Type=1 Then

Paper_Content="0||0||0&||&"'----------------这里是把上面的组合起来的

'单个试题库抽题规则获取

Sqlstr="Select * From [QuestionCategory] Order By QuestionCategory_Id Asc"

Rs.Open Sqlstr,Conn,1,3

If Not Rs.Eof Then

While Not Rs.Eof

Count0=GetCategoryCount(Rs("QuestionCategory_Id"),0)

Count1=GetCategoryCount(Rs("QuestionCategory_Id"),1)

Count2=GetCategoryCount(Rs("QuestionCategory_Id"),2)

Count3=GetCategoryCount(Rs("QuestionCategory_Id"),3)

If Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A0"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A0")),Count0,Rs("QuestionCategory_Name")&"单选题")

Paper_Content=Paper_Content&Rs("QuestionCategory_Id")&"|AA|"&Temp&"||"

Paper_Question0=Paper_Question0+Temp

Else

Paper_Content=Paper_Content&Rs("QuestionCategory_Id")&"|AA|"&"0||"

End If



If Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A1"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A1")),Count1,Rs("QuestionCategory_Name")&"多选题")

Paper_Content=Paper_Content&Temp&"||"

Paper_Question1=Paper_Question1+Temp

Else

Paper_Content=Paper_Content&"0||"

End If



If Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A2"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A2")),Count2,Rs("QuestionCategory_Name")&"简答题")

Paper_Content=Paper_Content&Temp&"&--&"

Paper_Question2=Paper_Question2+Temp

Else

Paper_Content=Paper_Content&"0&--&"

End If



If Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A3"))<>"" Then

Temp=GetPaperQuestion(Trim(Request.Form("Category"&Rs("QuestionCategory_Id")&"A3")),Count3,Rs("QuestionCategory_Name")&"填空题")