行业资讯 当前位置:首页> 行业资讯

 
<% '============================== '功能描述: 用正则除去HTML标记 '不能保留等以及用户自定义的<和> '============================== Function Remove_HTML(Str) Dim ilen1, ilen2 Do While InStr(1, Str, "<", 1) >0 ilen1 = InStr(1, Str, "<", 1) ilen2 = InStr(1, Str, ">", 1) Str = Left(Str, ilen1 -1) & Mid(Str, ilen2 + 1) Loop Remove_HTML = Str End Function page=request("page") if page<>"" and isnumeric(page) then page=int(page) else page=1 end if set rs2=server.createobject("adodb.recordset") sql="select * from news where n_class=21 order by id desc" rs2.open sql,cn,3,3 rall=rs2.recordcount const size=20 rs2.pagesize=size tpage=int(rall/size) if rall mod size<>0 then tpage=tpage+1 end if if page>tpage or page<1 then page=1 end if rs2.absolutepage=page while not rs2.eof and n
·"><%=rs2("title")%> <%=rs2("date")%>
<%=left(Remove_HTML(rs2("msg")),100)%>...{">查看详情}
<%rs2.movenext n=n+1 wend rs2.close set rs2=nothing %>
<%if tpage=1 then%> 首页 上页 下页 尾页 <%else select case page case 1%> 首页 上页 下页 尾页 <%case tpage%> 首页 上页 下页 尾页 <%case else%> 首页 上页 下页 尾页 <%end select end if%> <%=page%>/<%=tpage%>页