%
'-------------------------------------
sub kChoice(nChoice,nMax,nTotal,nTotalMax)
redim kTemp(nMax)
kTemp(0) = 0
if nChoice < nMax then
for i = nMax to nChoice+1 step -1
kTemp(i) = i
next
end if
'---------------------------
for i = nChoice to 1 step -1
kCheckChoice =0
do until kCheckChoice = 1
kCheckChoice = 0
kTemp(i) = int(Rnd*(nTotal-0.0000001))+1
if kTemp(i) <= nTotalMax then
kCheckChoice=1
for j = nMax to i+1 step -1
if kTemp(i) = kTemp(j) then kCheckChoice = 0
next
else
kCheckChoice = 0
end if
loop
next
end sub
'-------------------------------------
%>
<%
function kData(kLineData,nProbT,nPic)
kData = Mid(kLineData,3,Len(kLineData))
k1 = Left(kLineData,1)
if k1 = "1" then kData = kData & "
"
if k1 = "0" then kData = kData & "
"
end function%>
<%
'------------------------------------------------------------------------------
redim kTemp(500)
redim kTempInverse(4)
'------------------------------
nProbMaxE = 138
nProbMaxM = 102
nProbMaxH = 23
nProbMax = nProbMaxE + nProbMaxM + nProbMaxH
if request.form("textE")<>"" then nProbE= request.form("textE")-1.0 else nProbE=-1.0
if request.form("textM")<>"" then nProbM= request.form("textM")-1.0 else nProbM=-1.0
if request.form("textH")<>"" then nProbH= request.form("textH")-1.0 else nProbH=-1.0
'nProbE = request.form("textE")-1.0
'nProbM = request.form("textM")-1.0
'nProbH = request.form("textH")-1.0
nProbE = nProbE+1.0
nProbM = nProbM+1.0
nProbH = nProbH+1.0
nProb = nProbE + nProbM
nProb = nProb + nProbH
'--------------------------------------------------
nProbCheck = 0
if (0 <= nProbE) and (nProbE <= nProbMaxE) then nProbCheck = 1
if (0<= nProbM )and (nProbM<= nProbMaxM) then nProbCheck = nProbCheck + 1
if (0<= nProbH) and (nProbH<= nProbMaxH) then nProbCheck = nProbCheck + 1
if nProb > 0 then nProbCheck = nProbCheck+1
RndProblem = request.form("RndProblem")
RndChoice = request.form("RndChoice")
If RndProblem = "" then RndProblem = 0
If RndChoice = "" then RndChoice = 0
if request.form("back") <>"" then response.redirect("../index.htm")
if nProbCheck <> 4 then
strHTML = ""
response.write(strHTML)
else
kTime = second(time)
redim qProb(nProb), qProbT(nProb),qAnswer(nProb)
'--------------------------------------------------------------------------------------------------------
call kChoice(RndProblem*nProbE,nProbE,nProbMaxE+kTime,nProbMaxE)
for n = 1 to nProbE
qProbT(n) = "dataE\" & kTemp(n)
next
call kChoice(RndProblem*nProbM,nProbM,nProbMaxM+kTime,nProbMaxM)
for i = 1 to nProbM
qProbT(nProbE+i) = "dataM\" & kTemp(i)
next
call kChoice(RndProblem*nProbH,nProbH,nProbMaxH+kTime,nProbMaxH)
for j = 1 to nProbH
qProbT(nProbE+nProbM+j) = "dataH\" & kTemp(j)
next
'---------------------------------------
call kChoice(RndProblem*nProb,nProb,nProb+kTime,nProb)
for n = 1 to nProb
qProb(n) = kTemp(n)
next
'--------------------------------------------------------------------------------------------------------
strHTML = ""
response.write(strHTML)
end if
%>