办法一：调用以下代码就可以了

sub ArticleContent(intTitleLen)
    dim i,strTemp
    i=0
 x=1
 response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td>")
 do while not rsArticle.eof
    if x=1 then
       response.Write("<tr>")
    end if
  strTemp=""
  'strTemp = strTemp & ""
  strTemp= strTemp & "<td><table width=100% border=0 cellspacing=3 cellpadding=0>"
                strTemp= strTemp & "<tr>"
                strTemp= strTemp & "<td width=25% rowspan=1>"
                strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"
                strTemp= strTemp & "<img onload='javascript:DrawImage(this);'border=0 src=" & rsArticle("DefaultPicUrl") & ">"
                strTemp= strTemp & "</a></div></td>"
                strTemp= strTemp & "</tr>"
                strTemp= strTemp & "<tr><td align=center rowspan=1 height=25>"
                strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
                strTemp= strTemp & "</a></td>"
                strTemp= strTemp & "</tr>"
                strTemp= strTemp & "<tr>"
                strTemp= strTemp & "<td height=1></td>"
                strTemp= strTemp & "</tr>"
                strTemp= strTemp & "</table></td>"
  response.write strTemp
  rsArticle.movenext
  if x<=3 then
    x=x+1
  else
   response.Write("</tr>")
   x=1
   end if
  i=i+1
  if i>=MaxPerPage then exit do 
 loop
 response.Write("</table>")
end sub

[1] [2]  下一页