过程里不执行 rs.eof
sub ArticleContent(intTitleLen)dim i,strTemp
Response.Write "<table width=100 border=1 cellspacing=1 cellpadding=0><TR><TD></TD></TR>"
i=1
Response.Write "<TR align=""left"">"
do while not rsArticle.eof
strTemp=""
strTemp = strTemp & "<td>"
strTemp= strTemp & "<table width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=Silver >"
strTemp= strTemp & "<tr border=1>"
strTemp= strTemp & "<td width=100% colspan=2 border=0>"
strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("id") & ">"
strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=100 height=120>"
strTemp= strTemp & "</a></div></td></tr>"
'strTemp= strTemp & "<tr><td height=5></td></tr>"
'strTemp= strTemp & "<td width=12% height=18>"
'strTemp= strTemp & "产品名称：</td>"
strTemp= strTemp & "<tr border=1><td colspan=2 border=0>"
strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ID=" & rsArticle("id") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "</tr>"
' strTemp= strTemp & "<td height=18>产品信息：</td>"
strTemp= strTemp & "<tr border=0><td border=0>"
strTemp= strTemp & "<a href=ArticleShow.asp?ID=" & rsArticle("id") & "><img src=Img/arrow_7.gif border=0></a></td>"
'strTemp= strTemp & "</tr><tr>"
'strTemp= strTemp & "<td colspan=2>"
' strTemp= strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
' strTemp= strTemp & "<tr>"
'strTemp= strTemp & "<td width=50% height=18>"
' strTemp= strTemp & "<div align=center></div></td>"
strTemp= strTemp & "<td width=50% height=30 border=0 >"
strTemp= strTemp & "<div align=center><a href='javascript:eshop(" & rsArticle("Product_Id") & ")'><img border=0 src=img/addtocart.gif width=75 height=18>"
strTemp= strTemp & "</a></div></td>"
' strTemp= strTemp & "</tr>"
' strTemp= strTemp & "</table>"
'strTemp= strTemp & "</td>"
strTemp= strTemp & "</tr><tr>"
strTemp= strTemp & "<td height=1 colspan=2 bgcolor=#CCCCCC></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table></td>"
response.write strTemp
if i mod 3=0 then
Response.Write "</TR><TR>"
end if
rsArticle.movenext
i=i+1
if i>MaxPerPage then exit do
loop
Response.Write "</TR><TR><TD></TD></TR></Table>"
end sub
