<% '///////////////////////////////////////////////////////////////////////////////////////// '作 用：新闻标题列表 '注 意： ' 1、参数：标题长度TitleLen, 页记录Num, 页列Cols, 日期格式DateSkins； ' 2、TitleLen，一个汉字为2字节，一个英文为1字节； ' 3、日期格式：格式1 2005年4月17日 格式2 2005-4-17 格式5 2005-04-17 ' 4、Num必须是Cols的公倍数 ' 5、模糊查询时查询文章标题和文章内容 '///////////////////////////////////////////////////////////////////////////////////////// Dim strUrl, TitleLen, Num, Cols, DateSkins strUrl = "DetailA.asp" TitleLen = 32 Num = 12 Cols = 1 DateSkins = 1 SearchKeyword = Trim(Request("SearchKeyword")) SearchSelect = Trim(Request("SearchSelect")) %> <% SqlNewsList = " select ArtID, ArtTitle, ArtHits, ArtUpdateTime from ArticleList00 " SqlNewsList = SqlNewsList + " where ArtID >= 1 " SqlNewsList = SqlNewsList + " order by ArtRank " set RsNewsList = server.CreateObject("adodb.recordset") RsNewsList.open SqlNewsList, objConn, 1, 1 if RsNewsList.eof or RsNewsList.bof then Response.Write("


资料整理中


") else %>

<% i = 0 do while i < 300 and not RsNewsList.eof if i = 0 then colorset = "green01" else colorset = "while01" end if %>
• "><%=RsNewsList("ArtTitle")%>       <% = RsNewsList("ArtUpdateTime")%>
<% RsNewsList.movenext i = i + 1 loop %>
•  

<% end if RsNewsList.close set RsNewsList = nothing %>