action=request("action")
if action<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select enname from zhan_type where enname="&atcion
rs.open sql,conn,1,1
     if rs.eof   then   
response.write "没有这一项"
     end if
end if  
就算是对的，他也执行response.write "没有这一项"

请问要怎么改，才会正确的判断

sql="select enname from zhan_type where enname="&atcion

这句换成

sql="select * from zhan_type where enname="&atcion

如果不成那就还有一招

sql="select * from zhan_type"

Do Until rs.EOF
   IF rs.Fields.item("enname").Value=atcion Then
       Exit Do
   End IF
  rs.MoveNext
Loop

这个要是还不行，那我就无法从楼主给的代码中找出错误了。