Question

请教 高手帮改一段ASP代码，谢谢

sub ShowProduct(TitleLen)
if TitleLen<0 or TitleLen>200 then
TitleLen=50
end if
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
sqlProduct="select top " & MaxPerPage
else
sqlProduct="select "
end if

sqlProduct=sqlProduct & " ID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True "

if BigClassName<>"" then
sqlProduct=sqlProduct & " and BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sqlProduct=sqlProduct & " and SmallClassName='" & SmallClassName & "' "
end if
end if
sqlProduct=sqlProduct & " order by UpdateTime desc"
Set rsProduct= Server.CreateObject("ADODB.Recordset")
rsProduct.open sqlProduct,conn,1,1
if rsProduct.bof and rsProduct.eof then
response.Write("<br><li>没有任何项目</li>")
else
if currentPage=1 then
call ProductContent(TitleLen)
else
if (currentPage-1)*MaxPerPage<totalPut then
rsProduct.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rsProduct.bookmark
call ProductContent(TitleLen)
else
currentPage=1
call ProductContent(TitleLen)
end if
end if
end if
rsProduct.close
set rsProduct=nothing
end sub

sub ProductContent(intTitleLen)
dim i,strTemp
i=0
do while not rsProduct.eof
strTemp=""
strTemp= strTemp & "<table width=95% align=center border=0 cellspacing=10 cellpadding=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=60% rowspan=6>"
strTemp= strTemp & "<div align=center><a href=ProductShow.asp?ID=" & rsProduct("ID") & " target=_blank>"

现在是每行一个产品的图片，我想让每行显示两个图片并排，加什么？

谢谢
一加进去 就

if i mod 2 = 0 then //这是第一列，加行定义符

错误

Answer 1

dim i,strTemp
i=0
strTemp=""
strTemp= strTemp & "<table width=95% align=center border=0 cellspacing=10 cellpadding=0>"
'输出表定义
do while not rsProduct.eof
if i mod 2 = 0 then //这是第一列，加行定义符
strTemp= strTemp & "<tr>"
endif
strTemp= strTemp & "<td width=60% rowspan=6>"
strTemp= strTemp & "<div align=center><a href=ProductShow.asp?ID=" & rsProduct("ID") & " target=_blank>"
strTemp = strTemp & "</td>"

i = i+1
next

Answer 2

难道LZ连起码的ASP语法都不懂?

if i mod 2 = 0 then //这是第一列，加行定义符

这么简单的错误你不会自己改呀

detax 最好别理LZ