查看: 67|回复: 2

ASP的一个过程调用出错?

[复制链接]

爱随缘

电梯直达

1^#

发表于 2010-1-7 04:58:42 | 只看该作者回帖奖励

|正序浏览 |阅读模式

sub ArticleContent(intTitleLen)
dim i,lb,strli
Response.Write "<table width=100% border=0 cellspacing=2 cellpadding=0><TR><TD></TD></TR>"
i=1
do while not rsArticle.eof
Response.Write "<TR align=""center"">"
strli=""

lb=""
lb=lb & "<TD align='right'>"
lb=lb & "<table width=130 border=0 cellspacing=0 cellpadding=0>"
lb=lb & "<TR><TD height=5></TD></TR>"
lb=lb & "<tr>"
lb=lb & "<td width='98%'><div align=center>"
lb=lb & "<a href='En_ProductShow.asp?ArticleID=" & rsArticle("articleid") & "' title='" & strli &"'>"
lb=lb & "<img border=0 src='"& rsArticle("DefaultPicUrl") &"' width=100 height=100></a>"
lb=lb & "</div></td>"
lb=lb & "</tr>"
lb=lb & "<TR><TD height=3></TD></TR>"
lb=lb & "<tr>"
lb=lb & "<td height=23 background=../img/tablebg1.gif><div align=center>"
lb=lb & "<a href='En_ProductShow.asp?ArticleID="& rsArticle("articleid") &"' title='" & strli &"'>"& gotTopic(rsArticle("EnTitle"),16) &"</a>"
lb=lb & "</div></td>"
lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td height=20 background=../img/tablebg2.gif><div align=center>"
lb=lb & "<a href='En_ProductShow.asp?ArticleID="& rsArticle("articleid") &"' target='_blank'>See</a>    "
lb=lb & "<a href='javascript:eshop("& rsArticle("Product_Id") &")'>Order</a>"
lb=lb & "</div></td>"
lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td height=7 background='../img/tablebg3.gif'><IMG height=1 src='../img/1x1_pix.gif' width=1></td>"
lb=lb & "</tr>"
lb=lb & "</table>"
lb=lb & "</TD>"
lb=lb & "<td><a href='En_ProductShow.asp?ArticleID="& rsArticle("articleid") &"'>"& gotTopic(rsArticle("EnContent"),16) &"</a></td>"
lb=lb & "<td>"& rsArticle("EnSpec") &"</td>"

response.write lb
if i mod 4 <>0 then
end if
if i mod 4 =0 then
Response.Write "</TR><TR></TR>"
end if
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
Response.Write "<TR><TD></TD></TR></Table>"
end sub

收藏0