| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2013 人关注过本帖
标题:ASP老手请进,关于分行问题.
只看楼主 加入收藏
yslqyj
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-6-13
收藏
 问题点数:0 回复次数:20 
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 
2006-06-13 09:46
yslqyj
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-6-13
收藏
得分:0 
555555555~~~~~~~`我改了一晚上都没改出来。
2006-06-13 09:59
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
以前论坛中有提过的

<tr>
<%for i=0 to 15%>
<td>123</td>
<%if i mod 5 =0 then%>
<tr></tr>
<%
end if
next%>
</tr>


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


http://www./
2006-06-13 10:04
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
<%
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'>暂无产品信息!</td></tr>"
else
for i=1 to 15
if Rs.EOF or Rs.BOF then exit for
Response.Write"<tr><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></td></tr>"
Rs.movenext
next
end if
Response.Write"</table>"
Rs.Close
set Rs=nothing
%>
2006-06-13 10:08
yslqyj
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-6-13
收藏
得分:0 
谢谢,试一下,不过我感觉我还是搞不定
有这个Response.Write,一样可以吗???
楼上的可不可以帮我改改啊
2006-06-13 10:10
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
我没法测试只能大概看看

换行把<tr></tr>加到循环体的合适位置
2006-06-13 10:13
yslqyj
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-6-13
收藏
得分:0 
谢谢你啊。。我试试,太感谢了

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


2006-06-13 10:15
yslqyj
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-6-13
收藏
得分:0 
不行啊

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

错误的 'Next'

/index.asp,行211

next
^
2006-06-13 10:35
yslqyj
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-6-13
收藏
得分:0 
晕成了一行一个了,,汗!!!!!
2006-06-13 10:36
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 

谁知道你想要什么样子的

2006-06-13 10:43
快速回复:ASP老手请进,关于分行问题.
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020248 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved