<<<返回

用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