<%response.expires=0 myid=Session("myid") myname=Session("myname") if myname="" or myid="" then response.end call get_guests set rs1=conn.execute("select room_auto from room where ID="&guests(myid,5)) if rs1.eof or rs1.bof then response.end dim colorarr redim colorarr(6) colorarr(0)="#000099" colorarr(1)="#009900" colorarr(2)="#990000" colorarr(3)="#6699ee" colorarr(4)="#888888" colorarr(5)="#8888ff" colorarr(6)="#ee9966" randomize set Rs=conn.Execute("select count(*) as totalnum from action") if Rs("totalnum")=0 then mess="##温柔地对%%说：你累了吗？怎么半天都没有说话了啊？" else rand_id=Int(Rnd*Rs("totalnum"))+1 set Rs=conn.Execute("select toother,act_name from action where id="&rand_id) if rs.eof or rs.bof then mess="##温柔地对%%说：你累了吗？怎么半天都没有说话了啊？" else mess=trstr(Rs("toother"))+"[/"&Rs("act_name")&"]" end if end if response.write "" %>