<% Function stripTags( strToStrip ) Dim objRegExp strToStrip = Trim( strToStrip & "" ) If Len( strToStrip ) > 0 Then Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern= "<[^>]+>" strToStrip = objRegExp.Replace(strToStrip, "") Set objRegExp = Nothing End If stripTags = strToStrip End Function %>
<% sql="select top 20 * from news where BigClassName='首页图片' order by id desc" set rsxdq=conn.execute(sql) do while not rsxdq.eof %> <% rsxdq.movenext loop rsxdq.close set rsxdq=nothing %>

 

<% sql="select top 2 * from news where BigClassName='视频报道' order by id desc" set rsxdq=conn.execute(sql) do while not rsxdq.eof %> >> <% rsxdq.movenext loop rsxdq.close set rsxdq=nothing %>

    <% sql="select top 13 * from news where BigClassName='媒体报道' order by id DESC" set rsxdq=conn.execute(sql) do while not rsxdq.eof %>
  • ><%=left(rsxdq("Title"),25)%>
  • <% rsxdq.movenext loop rsxdq.close set rsxdq=nothing %>
<% sql="select top 4 * from news where BigClassName='图片报道' order by id desc" set rsxdq=conn.execute(sql) do while not rsxdq.eof %> >> <% rsxdq.movenext loop rsxdq.close set rsxdq=nothing %>