DOS系统培训教材免费版【dos教程】

……

RecordSet对象

该对象表示的是来自基本表或命令执行结果的记录全集,任何情况下该对象所指的但前记录均为集合内的单个记录.

实例:

一个分页显示程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.connectionstring = "driver={sql server};server=服务器名;uid=登陆用户;pwd=数据库密码;database=数据库"

%>

<%

IF Request("page")< > "" Then

Page = int(Abs(Request("page")))

Else

page = 1

End if

mypagesize = 20'设置本页显示记录数

set rs = Server.CreateObject("ADODB.Recordset")

sql = "sql查询语句"

rs.open sql,conn,1,1

total = rs.RecordCount

'计算总页数

if total mod mypagesize = 0 then 

 pagecounts = int(total/mypagesize)

else

 pagecounts = int(total/mypagesize) + 1 

end if

'计算每一页第一条记录的id

recordid = int(abs((page-1)*mypagesize)) 

rs.move[recordid]

'最后一页

if page = pagecounts and total mod mypagesize< > 0 then

m = total mod mypagesize

else

m = mypagesize

end if

%>

<font color="#000000">共 

<% response.write pagecounts %>

页</font>< font color="#000000">第<b>< %=page%>< /b>页 

<% if page<>1 then %>

<a href='?page=<%=page-1%>'>上一页</a> 

<% end if %>

<%

for j=1 to pagecounts

response.write "<a href='?page="&j&"'><font color='#000000'>["&j&"]</font></a>"

next

%>

<% if page< pagecounts then %>

<a href='?page=<%=page+1%>'>下一页</a> 

<% end if %>

</font>

……

以上是DOS系统培训教材相关内容介绍，查阅或下载更多免费文档资料，敬请关注东坡下载站！

DOS系统培训教材截图

DOS系统培训教材 免费版【dos教程】

普通下载地址:

湖北电信下载
武汉联通下载
广东电信下载
广东联通下载
湖北电信下载
武汉联通下载
广东电信下载
广东联通下载