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

费了九牛二虎之力,才搞定,呵呵,都是自已不懂程序,,闹着玩的,调试成功,[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

相关日志

发表于:2005-12-30 05:12:34 at 05:12 分类:工作 发表评论 Tags:

发表评论

(必填)

(必填)您的电子邮箱不会被公开。

正在加载信息...

Archives