<%Public Function Replacehtml(Textstr) Dim Str,re Str=Textstr Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" Str=re.Replace(Str, "") Set Re=Nothing Replacehtml=Str End Function%>

	<%set rs=server.createobject("adodb.recordset") rs.open "select * from s_news where trim(n_language)=1 and trim(n_class)=1 order by n_date desc",conn,1,1 if rs.bof and rs.eof then response.write "" else rs.pagesize=3 tatalrecord=rs.recordcount tatalpages=rs.pagecount rs.movefirst if not isempty(request("page")) then nowpage=cint(request("page")) spage=cint(request("page")-5) if spage<1 then spage=1 epage=10 else epage=cint(request("page")+5) end if if epage>tatalpages then epage=tatalpages end if else spage=1 if tatalpages>10 then epage=10 else epage=tatalpages end if nowpage=1 end if rs.absolutepage=nowpage i=0 do while not rs.eof and i<=rs.pagesize%> <%i=i+1 if i>=rs.pagesize then exit do rs.movenext loop%> <%end if rs.close set rs=nothing%> 暂无数据！ ">" width="303"> "><%=Trim(rs("n_title"))%> 时间: <%=Trim(rs("n_date"))%> <% if len(rs("n_content"))>51 then response.write left(Replacehtml(rs("n_content")),50)&"..." else response.write Replacehtml(rs("n_content")) end if%> <% if nowpage>1 then response.write "上一页 " else response.write "上一页 " end if for p=spage to epage if p<>nowpage then response.write ""&p&" " else response.write ""&p&" " end if next if nowpage < tatalpages then response.write "下一页" else response.write "下一页" end if %>