|
<%
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.movenext
loop
end if
rsSmallClass.close
set rsSmallClass=nothing
%>
|
|
<%
Set rs= Server.CreateObject("ADODB.Recordset")
if otype="title" then
sql="select * from news where Entitle Like '%"&key&"%' order by id desc"
else
sql="select * from news where Encontent Like '%"&key&"%' order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "I beg your pardon, did not find relevant information "
else
%>
| ID |
News headlines |
Publishers |
Release Date |
<%
i=0
do while not rs.eof
%>
| <%=rs("id")%> |
¡¡" ><%=rs("Entitle")%> |
<%=left(rs("user"),5)%> |
<%=rs("AddDate")%> |
<%
rs.movenext
i=i+1
loop
%>
| Keyword<%=key%>£¬Total for you to find<%=i%>news |
<%
end if
rs.close
set rs=nothing
%>
|