ASP老手请进,关于分行问题. - ASP技术论坛

问题点数：0 回复次数：12

ASP老手请进,关于分行问题.

各位高手哥哥姐姐们,小弟有难处了,5~~~~~~~~
下面的代码是显示首页产品的,可是不管多少产品都是显示一行,有谁能够帮我改一下这段代码,让产品可以显示多行
如果需要其他文件可以加我QQ:182532191
小弟在次先谢谢了!!!
<%
Set Rs = server.createobject("adodb.recordset")
Rs.source = "SELECT * FROM Products where LPutout=true ORDER BY id DESC"
Rs.open Rs.source,conn,1,1
Response.Write"<table width='99%' border='0' cellspacing='0' cellpadding='0' class='Index-Center4'>"
if Rs.BOF then
response.write "<tr><td align='center'>暂无产品信息!</tr></td>"
else
Response.Write"<tr>"
for i=1 to 15
if Rs.EOF or Rs.BOF then exit for
Response.Write"<td width='165'>"
'=========
set RsTrue = server.createobject("adodb.recordset")
RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
GroupLevel=RsTrue("GroupLevel")
RsTrue.Close
set RsTrue=nothing
if Session("GroupLevel")="" then Session("GroupLevel")=0
LPattern=Rs("LPattern")
Select Case Rs("Exclusive")
Case "<"
if Session("GroupLevel") < GroupLevel then
LPattern="Images/NoRight.gif"
end if
Case "="
if Session("GroupLevel") <> GroupLevel then
LPattern="Images/NoRight.gif"
end if
End Select
'=========
LName=Rs("LName")
if len(LName)>10 then LName=left(LName,10)&"…"
Response.Write"<table align=center border='0' cellpadding='0' cellspacing='5'><tr><td align='center' width='165' height='165' style='text-decoration: underline; border: 1px solid #CCCCCC;'><a href='ProductsView.asp?id="&Rs("id")&"' target='_blank'><img src="&LPattern&" border=0 width=140 height=140 onload=javascript:DrawImage(this);></a></td></tr><tr><td height=28><img src=Images/Arrow-Index-Products.gif width=14 height=12 align=absmiddle> <a href='ProductsView.asp?id="&Rs("id")&"' target='_blank'>"&LName&"</a></td></tr></table>"
Rs.movenext
next
end if
Response.Write"</tr>"
Response.Write"</table>"
Rs.Close
set Rs=nothing
%>

搜索更多相关主题的帖子: 分行　老手　 ASP　

第 2 楼

得分:0

555555555~~~~~~~`我改了一晚上都没改出来。

第 3 楼

得分:0

谢谢，试一下，不过我感觉我还是搞不定
有这个Response.Write，一样可以吗？？？
楼上的可不可以帮我改改啊

第 4 楼

得分:0

谢谢你啊。。我试试，太感谢了

[此贴子已经被作者于2006-6-13 10:16:58编辑过]

第 5 楼

得分:0

不行啊

Microsoft VBScript 编译器错误错误 '800a041f'

错误的 'Next'

/index.asp，行211

next
^

第 6 楼

得分:0

晕成了一行一个了，，汗！！！！！

第 7 楼

得分:0

就是行和列都可以调节的那种

帮帮忙了，谢谢。。。

第 8 楼

得分:0

，我还是改不了。。。
不过谢谢了

第 9 楼

得分:0

我改了，你再帮我看一下到底循环语句要加到哪里？？
怎么加，我一加上就提示

Microsoft VBScript 编译器错误错误 '800a0400'

缺少语句

/index.asp，行 192

end if
^

<%
Set Rs = server.createobject("adodb.recordset")
Rs.source = "SELECT * FROM Products where LPutout=true ORDER BY id DESC"
Rs.open Rs.source,conn,1,1%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" class="Index-Center4">
<%if Rs.BOF then%>
<tr><td align="center">暂无产品信息!</td></tr>
<%else%>
<%i=1 %><tr><% Do While Not rs.EOF%>
<td width="165">
<% '=========
set RsTrue = server.createobject("adodb.recordset")
RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
GroupLevel=RsTrue("GroupLevel")
RsTrue.Close
set RsTrue=nothing
if Session("GroupLevel")="" then Session("GroupLevel")=0
LPattern=Rs("LPattern")
Select Case Rs("Exclusive")
Case "<"
if Session("GroupLevel") < GroupLevel then
LPattern="Images/NoRight.gif"
end if
Case "="
if Session("GroupLevel") <> GroupLevel then
LPattern="Images/NoRight.gif"
end if
End Select
'=========%>
<% LName=Rs("LName")
if len(LName)>10 then LName=left(LName,10)&"…" %>
<table align=center border='0' cellpadding='0' cellspacing='5'><tr><td align='center' width='165' height='165' style='text-decoration: underline; border: 1px solid #CCCCCC;'><a href='ProductsView.asp?id="<%Rs("id")%>"' target='_blank'><img src="<%rs("LPattern")%>" border=0 width=140 height=140 onload=javascript:DrawImage(this);></a></td></tr><tr><td height=28><img src=Images/Arrow-Index-Products.gif width=14 height=12 align=absmiddle> <a href='ProductsView.asp?id="<%Rs("id")%>"' target='_blank'><%=rs("LName")%></a></td></tr></table>
</td><%if i mod 3 <>0 then%>
<%end if%>
<% if i mod 3 =0 then%></tr>
<tr>
<%end if%>
<%
rs.MoveNext
i=i+1
Loop
rs.close
set Rs=nothing
%>
</tr></table>

[此贴子已经被作者于2006-6-13 12:44:17编辑过]

第 10 楼

得分:0

谢谢斑竹~~~~~~~~~~~
我弄好了
已经差不多了

<%
Set Rs = server.createobject("adodb.recordset")
Rs.source = "SELECT top 12 * FROM Products where LPutout=true ORDER BY id DESC"
Rs.open Rs.source,conn,1,1%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" class="Index-Center4">
<%if Rs.BOF then%>
<tr><td align="center">暂无产品信息!</td></tr>
<%else%>
<%i=1 %><tr><% Do While Not rs.EOF%>
<td width="165">
<% '=========
set RsTrue = server.createobject("adodb.recordset")
RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
GroupLevel=RsTrue("GroupLevel")
RsTrue.Close
set RsTrue=nothing
if Session("GroupLevel")="" then Session("GroupLevel")=0
LPattern=Rs("LPattern")
Select Case Rs("Exclusive")
Case "<"
if Session("GroupLevel") < GroupLevel then
LPattern="Images/NoRight.gif"
end if
Case "="
if Session("GroupLevel") <> GroupLevel then
LPattern="Images/NoRight.gif"
end if
End Select
'=========%>
<% LName=Rs("LName")
if len(LName)>10 then LName=left(LName,10)&"…" %>
<table align=center border='0' cellpadding='0' cellspacing='5'><tr><td align='center' width='165' height='165' style='text-decoration: underline; border: 1px solid #CCCCCC;'><a href='ProductsView.asp?id="<%=Rs("id")%>"' target='_blank'><img src="<%=rs("LPattern")%>" border=0 width=140 height=140 onload=java-script:DrawImage(this);></a></td></tr><tr><td height=28><img src=Images/Arrow-Index-Products.gif width=14 height=12 align=absmiddle> <a href='ProductsView.asp?id="<%=Rs("id")%>"' target='_blank'><%=rs("LName")%></a></td></tr></table>
</td><%if i mod 3 <>0 then%>
<%end if%>
<% if i mod 3 =0 then%></tr>
<tr>
<%end if%>
<%
rs.MoveNext
i=i+1
Loop
rs.close
set Rs=nothing
%>
<%end if%>
</tr></table>