<%
dim cxfj
cxfj=1231
set conn=server.createobject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data\gonggao.mdb")
set rs=server.createobject("adodb.recordset")
rs.open ("select * from tellist where bumen='"&cxfj&"' or danwei='"&cxfj&"' or name='"&cxfj&"' or fenji='"&cxfj&"'"),conn,1,1
if rs.eof then
response.write"sorry ! did not find anlything from your key"
end if
%>