产品展示系统中的产品列表个数代码
费了九牛二虎之力,才搞定,呵呵,都是自已不懂程序,,闹着玩的,调试成功,[razz]
sub SimonArticleContent(intTitleLen)
if intTitleLen<0 or TitleLen>200 thenintTitleLen=50
end if
dim i,simon,strTempi=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
相关日志
新一篇:[原创贺卡]恭贺新禧2006
最近评论
6、7年前的内容了,外链能不挂吗?哈哈。…
链接挂了…
Thank you and thank you!…
应该是你IP有其它人扫描过我的系统,被我系统拦截了。一般24小时就解封。…
有,不过主题是2012年的了,兼容性不好了。还要吗?…
你好,我用公司的网络打开你的博客很多都是提示ip在黑名单,可是我们公司是…
你好,时隔这些年,我有幸访问到您的博客,我很喜欢您主题的风格,请问主题包…
09年的时候电信就干过,不过都是些偏远三线城市…