用ASP實現聊天室中的線上答題遊戲（續）

聊天室|線上 答案處理部分，放在處理髮送對話資訊的程式中即可。下面是答案處理的代碼部分：

if mid(FStr,i,1)="#" then 'FStr是儲存對話資訊的字串變數
TFstr=mid(FStr,i+1,1)
if CInt(DateDiff("n",application("questionTime"),Now()))<=1 then '判斷時間1分鐘內答題有效
if LCase(TFstr)=LCase(application("answerTrue")) then '判斷答題是否正確
if instr(1,application("answerName"),session("USER_USERNAME"))>0 then '判斷使用者是否已經答過題了
TFstr=session("USER_USERNAME")&"已經答過這道了！！！"
else
TFstr=session("USER_USERNAME")&"答題正確！"
Session("USER_EXP") =Session("USER_EXP")+application("questionCent") '給答對題的使用者加分
application("answerName")=application("answerName")&session("USER_USERNAME")&" " '儲存答對題使用者的名字
end if
else
if instr(1,application("TanswerName"),session("USER_USERNAME"))>0 then ''判斷使用者是否已經答過題了

TFstr=session("USER_USERNAME")&"已經答過這道了！！！"
else
application("TanswerName")=application("TanswerName")&session("USER_USERNAME")&" " '儲存答錯題使用者的名字
end if
end if
end if