<%call log_chk() call passChk() act=request("act") thex=request("thex") if act="thes" then Set rs=Server.Createobject("Adodb.Recordset") sql="select * from adzp where zp_id="&thex&"" rs.open sql,conn,1,3 rs("zp_sta")=1 rs.update rs.close set rs=nothing ''''''''''''''''''''''''''''保留关联空位 response.write"" end if if act="thek" then Set rs=Server.Createobject("Adodb.Recordset") sql="select * from adzp where zp_id="&thex&"" rs.open sql,conn,1,3 rs("zp_sta")=0 rs.update rs.close set rs=nothing ''''''''''''''''''''''''''''保留关联空位 response.write"" end if %>