asp动态数据排列的问题

来源：百度知道 编辑：UC知道 时间：2024/05/02 10:46:14
sub SearchResultContent()
dim i,strTemp,content
i=1
do while not rsSearch.eof
strTemp=""
strTemp= strTemp & "<table width=25% border=1 cellspacing=3 cellpadding=0 bordercolor=#3399FF>"
strTemp= strTemp & "<tr><td>"
strTemp= strTemp & "<div align=center><a href=ProductShow.asp?ArticleID=" & rsSearch("articleid") & ">"

fileExt=lcase(getFileExtName(rsSearch("DefaultPicUrls")))
if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
strTemp= strTemp & "<img border=0 src=" & rsSearch("DefaultPicUrls") & " width=150 height=150>"
else
if fileext="swf" then
strTemp= strTemp & "<object classid='clsid:D27CDB6E-AE6D-11cf-9

修改处：
sub SearchResultContent()
dim i,strTemp,content
i=0
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<table width=100 height=199 border=0 cellpadding=0 cellspacing=0>"

do while not rsSearch.eof

strTemp=""
strTemp= strTemp & "<td><table width=25% border=1 cellspacing=3 cellpadding=0 bordercolor=#3399FF>"
'strTemp= strTemp & "<tr>"
strTemp= strTemp & "<tr><td>"
strTemp= strTemp & "<div align=center><a …………

…………
strTemp= strTemp & "<div align=center><a href='ProductShow.asp?ArticleID=" & rsSearch("articleid") & "' target='_blank'>" & rsSearch("Spec") & ""
strTemp= strTemp & "</a></div></td></tr>"