分页
这是一个函数：
Sub ShowOnePage(rs,Page)
Response.Write"<center><table border=4 bordercolor=orange>"
Response.write"<tr bgcolor=orange>"
response.write"<td><font color=white><b>编号</b></font></td>"
for i=0 to rs.Fields.Count-1
response.write"<td><font color=white><b>" & rs.Fields(i).Name & "</b></font></td>"
next
response.write"</td>"
rs.AbsolutePage=Page
for iPage=1 to rs.PageSize
Response.write"<tr align=middle>"
recNo=(Page-1)*rs.PageSize+iPage
response.write"<td>" & RecNo & "</td>"
for i=0 to rs.Fields.Count-1
response.write"<td>" & rs.Fields(i).Value & "</td>"
next
Response.Write"</tr>"
rs.MoveNext
if rs.EOf then Exit for
next
response.write"</table></center>"
end sub
%>
这是一个显示第一页的v1.asp程序：
<!--# include file="adovbs.inc"-->
<!--# include file="onepage.asp"-->
<%
Set conn =Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb")
set rs=server.createobject("ADODB.Recordset")
sql="成绩单"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>实现分页显示</title>
</head>
<body bgcolor="beige">
<h2 align="center">第一版：显示一页</h2>
<hr>
<%
rs.PageSize=10
ShowOnePage rs,1
%>
<hr align="right">
</body>
</html>
v1.asp程序必须调用上面的函数才能正常运行对吗？我把上面的函数加在v1.asp程序段的最前面，错误提示是这样的：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'ShowOnePage'
/asp实验/v1.asp, 第 42 行
是不是函数不能这样直接插在程序里面的，需要另外存放？
