新 闻 搜 索
<%=BigClass%>
<% set rsSmallClass=server.CreateObject("adodb.recordset") rsSmallClass.open "Select * From SmallClass_New Where BigClassName='" & BigClass & "'",conn,1,1 if not(rsSmallClass.bof and rsSmallClass.eof) then do while not rsSmallClass.eof %>
"> <%=rsSmallClass("SmallClassName")%>
<% rsSmallClass.movenext loop end if rsSmallClass.close set rsSmallClass=nothing %> |  |
新闻搜索 |
<% Set rs= Server.CreateObject("ADODB.Recordset") if otype="title" then sql="select * from news where title Like '%"&key&"%' order by id desc" else sql="select * from news where content Like '%"&key&"%' order by id desc" end if rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

对不起，没有找到相关新闻

" else %>
ID | 新闻标题 | 发布者 | 发布日期
<% i=0 do while not rs.eof %>
<%=rs("id")%> | " ><%=rs("title")%> | <%=left(rs("user"),5)%> | <%=rs("AddDate")%>
<% rs.movenext i=i+1 loop %>
关键字<%=key%>，共为您找到<%=i%>条新闻
<% end if rs.close set rs=nothing %>