<% sortid="0201" %> <% if trim(request.Form("p"))<>"" then p=trim(request.Form("p")) else p=trim(request.QueryString("p")) end if if p="" then p=1 end if if trim(request.Form("find_key"))<>"" then find_key=trim(request.Form("find_key")) else find_key=trim(request.QueryString("find_key")) end if %>
 
标题
<% set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from news where sortid='" & sortid & "' " if find_key<>"" then find_key_one=split(find_key," ") temp_sql="" for i=0 to ubound(find_key_one) if temp_sql="" then temp_sql=temp_sql & " and (title like '%" & find_key_one(i) & "%'" else temp_sql=temp_sql & " or title like '%" & find_key_one(i) & "%'" end if next temp_sql=temp_sql & ") " sql=sql & temp_sql end if sql=sql & " order by id desc " 'response.write(sql) 'response.End rs.open sql,conn,1,1 if not rs.eof then rs.pagesize=10 rs.absolutepage=cint(p) %>
共有 <%=rs.recordcount%> 条新闻 每页 <%=rs.pagesize%> 条 共 <%=rs.pagecount%> 页 第 <%=p%> 页 <%if p<>1 then%> 首页 <%end if%> <%mypageup=p-1%> <%if mypageup>0 then%> 上页 <%end if%> <%mypagedown=p+1%> <%if mypagedown 下页 <%end if%> <%mypagelast=cint(rs.pagecount)%> <%if mypagedown 尾页 <%end if%>
<% pagesize_number=rs.pagesize while not rs.eof and pagesize_number>0 %> <% pagesize_number=pagesize_number-1 rs.movenext wend %>
标 题
日 期
)"> <% temp_title=rs("title") if find_key<>"" then find_key_one=split(find_key," ") for i=0 to ubound(find_key_one) temp_title=replace(temp_title,find_key_one(i),"" & find_key_one(i) & "") next end if response.write temp_title %>
<%=left(rs("regtime"),10)%>
<% else response.write("没有数据！") end if rs.close() %>