产品展示系统中的产品列表个数代码

费了九牛二虎之力,才搞定,呵呵,都是自已不懂程序,,闹着玩的,调试成功,[razz]

sub SimonArticleContent(intTitleLen)
if intTitleLen<0 or TitleLen>200 then

intTitleLen=50

end if
dim i,simon,strTemp

i=0

simon=0

response.write “<table width=100% border=0 cellspacing=2 cellpadding=2>”

response.write “<tr><td align=center valign=top>”

do while not rsArticle.eof

strTemp=””  ‘/源来产生梯形增加表格是没有清除原来STRTEMP记录的内容,,呵,这下可以了—simon

strTemp= strTemp & “<table width=160 border=0 cellspacing=0 cellpadding=0 align=center valign=top>”

strTemp= strTemp & “<tr><td valign=top align=center><a href=ArticleShow.asp?ArticleID=” & rsArticle(“articleid”) & “> <img border=0 src=” & rsArticle(“DefaultPicUrl”) & ” width=150 height=120></a></td></tr>”

strTemp= strTemp & “<tr><td>产品名称：<a href=ArticleShow.asp?ArticleID=” & rsArticle(“articleid”) & “>” & rsArticle(“Title”) & “</a></td></tr>”

strTemp= strTemp & “<tr><td>产品规格：”& rsArticle(“Memo”) &”</td></tr>”

strTemp= strTemp & “<tr><td>产品编号：” & rsArticle(“Size”) & “</td></tr>”

strTemp= strTemp & “<tr><td>点　　击：” & rsArticle(“Hits”) & “</td></tr>”

‘strTemp= strTemp & “<tr><td>产品内部编号：” & rsArticle(“Product_Id”) & “</td></tr>”

‘strTemp= strTemp & “<tr><td>产品信息：<a href=’javascript:eshop(” & rsArticle(“Product_Id”) & “)’><img border=0 src=images/addtocart.gif width=95 height=17></a></td></tr>”

‘strTemp= strTemp & “<tr><td>产品内部编号：” & rsArticle(“Product_Id”) & “</td></tr>”

strTemp= strTemp & “<tr><td><a href=ArticleShow.asp?ArticleID=” & rsArticle(“articleid”) & ” title=查看产品详细说明>详细说明</a></td></tr>”

strTemp= strTemp & “</table>”

i=i+1

simon=simon+1

if simon mod 4 <>0  then

strTemp= strTemp & “</td><td> “

end if

if simon mod 4 =0 then

strTemp= strTemp & “</td></tr><tr><td>”

end if

response.write strTemp

rsArticle.movenext

if i>=MaxPerPage then exit do

loop

response.write “</td></tr></table>”

end sub

相关日志

• 中文语音合成系统
• BBWPS系统的修改记录(第一篇)
• 终于在HP5310m上安装成功了Mac OS
• 重装osx 10.10 Yosemite，解决了卡顿和软件不稳定的问题了
• 粒子系统