ASP怎么把重复区域显示横排和自动换行
以下是代码.麻烦看下要怎么修改才能横排显示和够了我指定的几录后自动换行<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#include...
以下是代码.麻烦看下要怎么修改才能横排显示和够了我指定的几录后自动换行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Rs_img
Dim Rs_img_numRows
Set Rs_img = Server.CreateObject("ADODB.Recordset")
Rs_img.ActiveConnection = MM_conn_STRING
Rs_img.Source = "SELECT * FROM tu"
Rs_img.CursorType = 0
Rs_img.CursorLocation = 2
Rs_img.LockType = 1
Rs_img.Open()
Rs_img_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 6
Repeat1__index = 0
Rs_img_numRows = Rs_img_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%
While ((Repeat1__numRows <> 0) AND (NOT Rs_img.EOF))
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><a href="<%=(Rs_img.Fields.Item("ID").Value)%>"><img src="img/<%=(Rs_img.Fields.Item("name").Value)%>" alt="" width="200" height="200" border="0" /></a></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Rs_img.MoveNext()
Wend
%></td>
</tr>
</table>
</body>
</html>
<%
Rs_img.Close()
Set Rs_img = Nothing
%> 展开
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Rs_img
Dim Rs_img_numRows
Set Rs_img = Server.CreateObject("ADODB.Recordset")
Rs_img.ActiveConnection = MM_conn_STRING
Rs_img.Source = "SELECT * FROM tu"
Rs_img.CursorType = 0
Rs_img.CursorLocation = 2
Rs_img.LockType = 1
Rs_img.Open()
Rs_img_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 6
Repeat1__index = 0
Rs_img_numRows = Rs_img_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%
While ((Repeat1__numRows <> 0) AND (NOT Rs_img.EOF))
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><a href="<%=(Rs_img.Fields.Item("ID").Value)%>"><img src="img/<%=(Rs_img.Fields.Item("name").Value)%>" alt="" width="200" height="200" border="0" /></a></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Rs_img.MoveNext()
Wend
%></td>
</tr>
</table>
</body>
</html>
<%
Rs_img.Close()
Set Rs_img = Nothing
%> 展开
展开全部
增加多一段代码就能实现: <%
num_tr=num_tr+1
if num_tr mod 4=0 then
response.write"</tr><tr>"
end if
%>
num_tr=num_tr+1
if num_tr mod 4=0 then
response.write"</tr><tr>"
end if
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
