dim rs,sql
set rs = Server.CreateObject("adodb.recordset")
sql ="select count(zhuangtai) as a from action where zhuangtai = '1'"
rs.open sql,conn,1
if rs("a")>="2" then
response.write"<Script Language=Javascript>window.alert('警告!');</Script>"
response.end
end if