这是一份关于dos的ppt,该ppt共有18页,从ppt的内容形式上来看,该ppt更适合作为DOS系统培训教材或是课件使用,以下是该ppt的相关内容介绍,如果你觉得这种形式和内容的ppt正是你所需要的,那么你只需点击本文相应的下载地址即可查阅该ppt的全部内容哦!
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系统培训教材相关内容介绍,查阅或下载更多免费文档资料,敬请关注东坡下载站!
- PC官方版
- 安卓官方手机版
- IOS官方手机版