<%Checklogin("信息管理")%> <% str=TextEnCode(Request.QueryString("str")) Set Rs=Server.CreateObject("Adodb.Recordset") sql="select id,countryCode,countryName from country where countryCode like '%"&str&"%' or countryName like '%"&str&"%' " Rs.open sql,conn,1,3 Do while Not Rs.bof and Not Rs.eof %>

">

<%=Rs("countryCode")%><%=Rs("countryName")%>

<% Rs.moveNext loop Rs.close Set Rs=Nothing conn.close Set conn=Nothing %>