這是一份關(guān)于dos的ppt,該ppt共有18頁,從ppt的內(nèi)容形式上來看,該ppt更適合作為DOS系統(tǒng)培訓(xùn)教材或是課件使用,以下是該ppt的相關(guān)內(nèi)容介紹,如果你覺得這種形式和內(nèi)容的ppt正是你所需要的,那么你只需點擊本文相應(yīng)的下載地址即可查閱該ppt的全部內(nèi)容哦!
DOS系統(tǒng)培訓(xùn)教材內(nèi)容節(jié)選
……
RecordSet對象
該對象表示的是來自基本表或命令執(zhí)行結(jié)果的記錄全集,任何情況下該對象所指的但前記錄均為集合內(nèi)的單個記錄.
實例:
一個分頁顯示程序
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "driver={sql server};server=服務(wù)器名;uid=登陸用戶;pwd=數(shù)據(jù)庫密碼;database=數(shù)據(jù)庫"
%>
<%
IF Request("page") <> "" Then
Page = int(Abs(Request("page")))
Else
page = 1
End if
mypagesize = 20'設(shè)置本頁顯示記錄數(shù)
set rs = Server.CreateObject("ADODB.Recordset")
sql = "sql查詢語句"
rs.open sql,conn,1,1
total = rs.RecordCount
'計算總頁數(shù)
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系統(tǒng)培訓(xùn)教材內(nèi)容截圖
以上是DOS系統(tǒng)培訓(xùn)教材相關(guān)內(nèi)容介紹,查閱或下載更多免費文檔資料,敬請關(guān)注東坡下載站!
- PC官方版
- 安卓官方手機版
- IOS官方手機版