有断ASP的网站代码 请懂程序的人帮忙看看怎么解决

来源:百度知道 编辑:UC知道 时间:2024/05/21 07:48:14
代码如下:

'=================================================|
'过程名:Product_Tree
'作 用:显示首页产品展示
'参 数:Sum - 产品数量
'=================================================|

sub Product_Tree(Sum)
BigClassName=trim(request("BigClassName"))
dim sqlClass,rsClass,strTree,j
If Sum="0" Then
sqlClass="select * from Product where"
if BigClassName<>"" then
sqlClass=sqlClass & " BigClassName='" & BigClassName & "' And "
end if
sqlClass=sqlClass & " Passed=True And Elite=True order by Row desc,UpdateTime desc"
Else
sqlClass="select top " + Cstr(Sum) + " * from Product where Passed=True And Elite=True order by Row desc,UpdateTime desc"
End IF
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1

瞄一眼,感觉是数据库中就不足4个产品,加TR循环就是2行

sqlClass="select * from Product where"
改成sqlClass="select top 8 * from Product where"

If Sum="0" Then
if j mod 4 =0 then
strTree=strTree & "</TR>"
strTree=strTree & "<TR>"
end if
Else
if j mod 4 =0 then
strTree=strTree & "</TR>"
strTree=strTree & "<TR>"
end if
End IF

改成
if j mod 4 =0 then
strTree=strTree & "</TR><tr>"
end if
就行了,
还有,你数据库里一定要有超过四条记录

看着换就行了,
rsClass.open sqlClass,conn,1,1
strTree= strTree & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
j=1
strTree= strTree & "<tr>"
do while not rsClass.eof
strTree= strTree & "<td width=25% height=130 align=center>"
strTree= strTree & "<table width=100% border=0 cellsp