<%
'对贵宾的判断
toname=Trim(Request.Form("towho"))
if Instr(Application("zhbg_guibin"),"|" & zhbg_name & "|")<>0 then
	Response.Write "<script language=JavaScript>{alert('提示：你是本国度贵宾,不得参与任何恩怨！');}</script>"
	Response.End
end if
if Instr(Application("zhbg_guibin"),"|" & toname & "|")<>0 then
	Response.Write "<script language=JavaScript>{alert('提示：对方是本国度贵宾！');}</script>"
	Response.End
end if
zhbg_roominfo=split(Application("zhbg_room"),";")
chatinfo=split(zhbg_roominfo(nowinroom),"|")
'对发招的判断
if chatinfo(5)<>0 then
	Response.Write "<script language=JavaScript>{alert('提示：在["&chatinfo(0)&"]房间不可以发招！');}</script>"
	Response.End
end if
'对pk时间的判断
f=Minute(time())
pktime=cint(chatinfo(10))
if f>pktime then
        Response.Write "<script language=JavaScript>{alert('提示：国度pk打架时间为每小时前["&pktime&"]分！');}</script>"
	response.end
end if
'对决战房的判断
if chatinfo(0)="决战爱情" and Hour(time())=18 then
        Response.Write "<script language=JavaScript>{alert('提示：决战房PK时间未到！');}</script>"
	response.end
end if
%>