小編為大家整理帶來的這份文檔為doc格式免費(fèi)版ASP教學(xué)教案,該教學(xué)教案內(nèi)容完整,是一份非常不錯(cuò)的asp課件教程,以下有該課件教程的相關(guān)內(nèi)容介紹,如果你需要查看這份教程的完整版的話,點(diǎn)擊本文相應(yīng)的下載地址進(jìn)行下載即可!
ASP教學(xué)教案內(nèi)容節(jié)選
……
1. RecordSet對(duì)象
該對(duì)象表示的是來自基本表或命令執(zhí)行結(jié)果的記錄全集,任何情況下該對(duì)象所指的但前記錄均為集合內(nèi)的單個(gè)記錄.
實(shí)例:
一個(gè)分頁顯示程序
<%@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
'計(jì)算總頁數(shù)
if total mod mypagesize = 0 then
pagecounts = int(total/mypagesize)
else
pagecounts = int(total/mypagesize) + 1
end if
'計(jì)算每一頁第一條記錄的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>
……
ASP教學(xué)教案內(nèi)容截圖
以上是ASP教學(xué)教案相關(guān)內(nèi)容介紹,查閱或下載更多免費(fèi)文檔資料,敬請(qǐng)關(guān)注東坡下載站!
- PC官方版
- 安卓官方手機(jī)版
- IOS官方手機(jī)版