手表新闻
    <% function nohtml(str) on error resume next str=Replace(str," ", "") dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") nohtml=str set re=nothing end function Function randomStr(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" seedLength = Len(strSeed) Str = "" Randomize For i = 1 To intLength Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) Next randomStr = Str End Function %> <% xwlb_id = request.querystring("xwlb_id") %> <% Set rs = server.CreateObject("adodb.recordset") if(xwlb_id="") then rs.Open "select * from [xw] order by Cdate(shijian) desc,id desc", cn, 1, 3 else rs.Open "select * from [xw] where xwlb_id=" & xwlb_id & " order by Cdate(shijian) desc,id desc", cn, 1, 3 end if Page = request.querystring("page") PageSize = request.querystring("PageSize") If IsEmpty(Page) Or (Not IsNumeric(Page)) Then Page = 1 Else Page = CInt(Page) End If If Page > rs.PageCount Then if rs.recordcount<>0 then rs.AbsolutePage = rs.PageCount end if ElseIf Page <= 0 Then rs.AbsolutePage = 1 Else rs.AbsolutePage = Page End If if(rs.PageCount=0) then PageCount=1 else PageCount=rs.PageCount end if for i=1 to rs.PageSize if rs.EOF then Exit For end if if len(rs("xwbt"))>20 then xwbt=left(rs("xwbt"),20)&"..." else xwbt= rs("xwbt") end if%>
    <%=day(rs("shijian")) %>

    <%=Year(rs("shijian"))%>-<%=Month(rs("shijian"))%>

      <%if len(nohtml(rs("xwnr")))>48 then response.Write left(nohtml(rs("xwnr")),48)&"..." else response.Write rs("xwnr") end if%>
    <%rs.movenext next %>
<%if xwlb_id="" then %> <%=ShowPage(Page,PageCount,"newsList.asp?page=$replace") %> <%else%> <%=ShowPage(Page,PageCount,"newsList.asp?page=$replace&xwlb_id=" & xwlb_id & "") %> <%end if %>