<% page_title = trim(request.form("page_title")) page_content = request.form("page_content") set rs = server.createobject("adodb.recordset") sql = "select * from news1 where sorts='cn'" if page_title<>"" then select case page_content case "title" sql = sql & " where title like '%" & page_title & "%'" case else sql = sql & " where content like '%" & page_title & "%'" end select end if sql = sql & " order by new_date desc" rs.open sql,conn,1,1 if rs.eof then response.write "

 

尚无任何信息返回

" else pagesize = 10 rs.pagesize = pagesize pagecount = rs.pagecount recordcount = rs.recordcount page = request("page") if page <> "" and isnumeric(page) then page = cint(page) if page <= 1 then page = 1 if page > pagecount then page = pagecount else page = 1 end if rs.absolutepage = page %>
<% for i=0 to pagesize-1 j = 0 new_title_mid = "" new_title = trim(rs("title")) id = rs("id") counts = rs("counts") dates = rs("new_date") mdates = right("0"&month(dates),2) ddates = right("0"&day(dates),2) dates = year(dates)&"."&mdates&"."&ddates num = i+1 if len(num)=1 then num = "0" & num for m=1 to len(new_title) asc_new_title = mid(new_title , m , 1) if (asc(asc_new_title)<0 or asc(asc_new_title)>255) then j = j + 1 else j = j + 0.5 end if if j>22 then new_title_mid = new_title_mid & "..." exit for end if new_title_mid = new_title_mid & asc_new_title next %> <% rs.movenext if rs.eof then exit for next %>
新闻共<%=recordcount%>条，目前 <%response.write page&"/"&pagecount%> 页
ID
标题
时间
人气
<%=num%>
 <%=new_title_mid%>
[ <%=dates%> ]
<%=counts%>
　
<% page_int = (page-1) \ 10 if page>1 then page_string = page_string & "上一页  " else page_string = page_string & "上一页  " end if for j=1+10*page_int to 10*(page_int+1) if j>pagecount then exit for if j=page then page_string = page_string & "" & j & " " else page_string = page_string & "[" & j & "] " end if next if page下一页  " else page_string = page_string & " 下一页  " end if response.write page_string %>
<% end if rs.close conn.close set rs=nothing set conn=nothing %>