断答题是否正确 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