Question

求修改asp网站产品页面列表设置每行的图片数量代码

<%
If PicClassID<>0 Then
Dim ChildID
sSql="Select ClassID,ClassName,ParentPath,Child From PictureClass Where ClassID="&PicClassID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
if oRs("ClassID")>0 then
if oRs("Child")>0 then
ChildID=""
set tClass=oConn.execute("select ClassID from PictureClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'")
do while not tClass.eof
if ChildID="" then
ChildID=tClass(0)
else
ChildID=ChildID & "," & tClass(0)
end if
tClass.movenext
loop
else
ChildID=PicClassID
end if
end if
End If
oRs.Close

sSql="Select * From PictureData Where D_Content like '%" & PicClassID & "%' And P_Recycle=False and P_PictureUrlS<>'' Order By pai,P_ID Desc"
Else
sSql="Select * From PictureData Where P_Recycle=False and P_PictureUrlS<>'' Order By pai,P_ID Desc"
End If
oRs.Open sSql,oConn,1,1

Dim PicNum
dim MaxPerPage
dim totalPut
dim CurrentPage
dim TotalPages
dim i
if int(PicClassID)=5 then
MaxPerPage=30
else
MaxPerPage=W_PicRecoNum
end if

if not ors.eof then
ors.MoveFirst
end if
ors.pagesize=MaxPerPage
If trim(Request("Page"))<>"" then
If IsNumeric(trim(Request("Page"))) = False Then
GoError "分页参数错误，请不要试图破坏此系统。"
End If
CurrentPage= CLng(request("Page"))
If CurrentPage> ors.PageCount then
CurrentPage = ors.PageCount
End If
Else
CurrentPage= 1
End If

totalPut=ors.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage<totalPut then
ors.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=ors.bookmark
end if
end if

dim n,k
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if

If Not oRs.Eof Then
k=currentPage
p=ors.PageCount
%>
<table width="979" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:20px;margin-bottom:10px;">
<tr>

<td width="979" style="padding-top:10px;" valign="top"><div class="websitecencon">
<ul>
<%

Do While Not oRs.Eof and i<maxperpage
For PicNum =0 to 1
hh=len(ors("P_PictureAddTime"))
P_PictureAddTime=left(ors("P_PictureAddTime"),hh-8)
%>
<li><a href="pictureShow.asp?PicID=<%=oRs("P_ID")%>" target="_blank"><img src="<%=oRs("P_PictureUrlS")%>" alt="<%=oRs("P_PictureName")%>" /></a><a href="pictureShow.asp?PicID=<%=oRs("P_ID")%>" target="_blank"><span><%=oRs("P_PictureName")%></span></a></li>
<%
oRs.MoveNext
i=i+1
If oRs.Eof then
If PicNum = 1 Then
End if
Exit For
End If
Next
Loop
%> </ul> </div> </td> </tr> </table>
现在的产品页面是2个产品图片一行我想弄成3个产品图片一行，请教高手朋友们指点要怎么修改！

Answer 1

看着真乱，不过看你是用li做列表的，那改css就好了