<% dim rs, sql set rs = server.createobject("adodb.recordset") dim curpage, strcate wherestr=" where xing<>''" if keyword <> "" then keyword = replace(keyword,"'","") '过滤关键字 keyword = replace(keyword,"[","") keyword = trim(keyword) wherestr=wherestr&" and (xing like '" & trim(keyword) & "')" else end if if id <> "" then keyword = replace(keyword,"'","") '过滤关键字 keyword = replace(keyword,"[","") keyword = trim(keyword) wherestr=wherestr&" and (id =" & id & ")" else end if sql = "SELECT * FROM bjx " & wherestr rs.open sql, conn, 1, 1 if rs.bof and rs.eof then rs.close response.write "
没有符合条件的内容！" else dim i rs.pagesize = pagesize if rs.pagecount < curpage then rs.absolutepage=rs.pagecount curpage=rs.pagecount else rs.absolutepage = curpage end if %> <%if lable<>"" then%> <% end if for i = 1 to rs.pagesize %> <%if rs("qiyuan2")<>"" then%> <%end if%> <%if rs("qiyuan3")<>"" then%> <%end if%> <%if rs("qiyuan4")<>"" then%> <%end if%> <%if rs("mingren")<>"" then%> <%end if%> <%if rs("fenbu")<>"" then%> <%end if%> <% rs.movenext if rs.eof then i = i + 1 exit for end if next %>

<%=rs("id")%>	<%=rs("xing")%>
【起源参考】	<%=schr(rs("qiyuan"))%>
【起源参考二】	<%=schr(rs("qiyuan2"))%>
【起源参考三】	<%=schr(rs("qiyuan3"))%>
【起源参考四】	<%=schr(rs("qiyuan4"))%>
【家族名人】	<%=schr(rs("mingren"))%>
【地域分布】	<%=schr(rs("fenbu"))%>

    <% if rs.pagecount>1 then response.write " 首页 " if curpage>1 then response.write " 上一页 " if curpage下一页 " response.write "（共"&rs.pagecount&"页）" end if %>