有个重要的简单的问题,100分

jiudian 2005-06-15 12:57:37

有个重要的简单的问题
在asp中怎么用循环读取adp记录集输出2行2列中呢

...全文

85 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

jiudian 2005-06-15

打赏
举报

非常感谢大家，都加分

zwrtv 2005-06-15

打赏
举报

m行n列的

while not rs.eof
response.write("<tr>")
for i =0 to 1
response.write("<td>数据库的纪录</td>")
rs.movenext
if rs.eof then
if i = 0 then
response.write("<tr><td></td></tr>")
end if
exit for
end if
next
response.write("</tr>")
wend

leinchu 2005-06-15

打赏
举报

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("db\artdb.mdb")
'数据库在子目录db下，有个表叫link，字段有id, logo, name
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT id, logo, name FROM link"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 2'修改这个数字可以增加或者减少记录显示得条数。
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<table width="200" border="1">
<tr align="center" bgcolor="#CCCCCC">
<td>logo</td>
<td>name</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<tr align="center">
<td><%=(rs.Fields.Item("logo").Value)%></td>
<td><%=(rs.Fields.Item("name").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>

<tr>
<td colspan="2">没有记录。</td>
</tr>
</table>
<br>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
<%
'用DreanWeaver做这个很简单得。看Dw帮助，很全得。
%>

hbhbhbhbhb1021 2005-06-15

打赏
举报

rs.open strsql,conn,1,1
rs.movefirst
for i=0 to rs.recordcount
response.write "<tr>"
for j=0 to rs.fieldcount
response.write "<td>"&rs(j).value&"</td>"
next
response.write"</tr>"
if rs.eof then
exit for
end if
rs.movenext
next

游陆 2005-06-15

打赏
举报

Dim cn,rs,Sql

Sql = "select CustomerID from Orders"

'记录总数
Dim TotalNumbe
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, cn, 3, 1
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Response.Write "没有记录输出。"
Else
Dim jj,nLeft,cCol

jj = 0 ' 自动行不要管
nCol = 2 '定义列数

nLeft = nCol- (TotalNumber Mod nCol)
If nLeft = nCol Then nLeft = 0
Response.Write "<table border><tr>" & vbCrLf
While not rs.EOF
Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf

If (jj Mod nCol) = (nCol - 1) Then
If jj <> TotalNumber - 1 Then
Response.Write "</tr><tr>" & vbCrLf
Else
Response.Write "</tr>" & vbCrLf
End If
End If
jj = jj + 1
rs.MoveNext
Wend
If nLeft <> 0 And nLeft <> nCol Then
If nCol < TotalNumber Then
For i = 1 to nLeft
Response.Write "<td> </td>" & vbCrLf
Next
End If
Response.Write "</tr>" & vbCrLf
End If
Response.Write "</table>"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Response.End