<% '判断调价记录 if id5<>"" then set rsl=server.CreateObject("adodb.recordset") sqll = "select * from vw_libo_tiaojia where spdm like '%"&id5&"%' and khdm='"&id1&"' " 'response.write sqll rsl.open sqll,conn,1,1 if rsl.eof then response.write "" 'response.Redirect("index.asp") end if end if '判断库存 if id5<>"" then set rsm=server.CreateObject("adodb.recordset") sqlm = "select * from spkcb where spdm like '%"&id5&"%' and ckdm='"&id1&"' and sl>0" 'response.write sqlm rsm.open sqlm,conn,1,1 if rsm.eof then response.write "" 'response.Redirect("index.asp") end if end if %>