2.8w+
社区成员
- 主页
请帮我略为修改一下这段代码，使其具备分页功能
<!--#include file="connections/ado_pubs.asp"-->
<%
dim RecordSet
dim Repeat_NumRows
set RecordSet=Server.CreateObject("ADODB.RecordSet")
RecordSet.ActiveConnection=MyConnection
RecordSet.Source="select * from Authors"
Recordset.CursorType=1
RecordSet.Open()
Repeat_NumRows=10
%>
<html>
<Head><Title>Test</Title></Head>
<Body>
<Table Width="75%" Border="1" Align="Center">
<Tr> <Td>编号</TD> <Td>姓名</Td> </Tr>
<%
while((Repeat_NumRows<>0) And (Not RecordSet.Eof))
%>
<Tr>
<td><%=(RecordSet.Fields.Item("au_ID").Value)%></td>
<Td><%=(RecordSet.Fields.Item("au_lname").Value)%></Td>
</Tr>
<%
Repeat_NumRows=Repeat_NumRows-1
RecordSet.MoveNext()
Wend
%>
</Table>
</Body>
</Html>
<%
RecordSet.Close()
Set RecordSet=Nothing
%>
<%
dim RecordSet
dim Repeat_NumRows
set RecordSet=Server.CreateObject("ADODB.RecordSet")
RecordSet.ActiveConnection=MyConnection
RecordSet.Source="select * from Authors"
Recordset.CursorType=1
RecordSet.Open()
Repeat_NumRows=10
%>
<html>
<Head><Title>Test</Title></Head>
<Body>
<Table Width="75%" Border="1" Align="Center">
<Tr> <Td>编号</TD> <Td>姓名</Td> </Tr>
<%
while((Repeat_NumRows<>0) And (Not RecordSet.Eof))
%>
<Tr>
<td><%=(RecordSet.Fields.Item("au_ID").Value)%></td>
<Td><%=(RecordSet.Fields.Item("au_lname").Value)%></Td>
</Tr>
<%
Repeat_NumRows=Repeat_NumRows-1
RecordSet.MoveNext()
Wend
%>
</Table>
</Body>
</Html>
<%
RecordSet.Close()
Set RecordSet=Nothing
%>
...全文
请发表友善的回复…
发表回复