<%
if request("haoma")&""="" then
Response.Write("")
response.end
end if
dim objRs,strSql
Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from tel where tname like '%"&sqlchk(request("haoma"),0)&"%' and tel<>0"
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.write "
查询无数据
"else
%>
搜索结果
港口
船东
20GP
40GP
40HQ
附加费
截关期
有效期
<%=objrs("tname")%>
<%=objrs("SHIP")%>
<%=objrs("tel")%>
<%=objrs("40GP")%>
<%=objrs("40HQ")%>
<%=objrs("FJF")%>
<%=objrs("cls")%>
<%=objrs("valid")%>
<%
while not objRs.eof
%>
<%
objRs.Movenext
wend
end if
objRs.close
set objRs=Nothing
%>
