<%response.expires=0
application.lock
myid=Session("myid")
myname=Session("myname")
call get_guests
call get_maxuser
if myname="" or myid="" then
response.end
elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then
response.end
end if
set rsparam=conn.execute("select * from param")
if guests(myid,4)=rsparam("superlevel") then myname="管理员"
%>
<%if request("B1")="提交" and request("callmess")<>"" and request("callwho")<>"" then
callwho=request("callwho")
EXcallwho=false
for i=0 to MaxUser
if guests(i,0)=callwho then
EXcallwho=true
exit for
end if
next
if EXcallwho then
callmess=trim(trstr(left(request("callmess"),100)))
call get_says
say_id=says(current,0)+1
current=current+1
if current>MaxTalk then current=0
says(current,0)=say_id
says(current,1)=myname
says(current,2)=callwho
says(current,3)=true
says(current,4)=-1
says(current,5)="'"&time()&"','"&callmess&"'"
guests(myid,11)=now()
call put_guests
call put_says
errStr="你成功地发出了呼叫信息！"
else
errStr="你呼叫的人不在聊天室里！"
end if
call echoerr(errStr,"overroom.asp")
else%>