< %
' OnErrorResumeNext
Set conn = Server.CreateObject( " ADODB.Connection " )
connstr = " Provider=Microsoft.Jet.OLEDB.4.0;DataSource= " & Server.MapPath( " data/db.mdb " )
conn.openconnstr
% >

< %
conn.close
set conn = nothing
% >

< %
' 插入
sql = " INSERTINTObranchtype(branchname,sj)VALUES(' " & branchname & " ',' " & now () & " ') "
conn.execute(sql)

' 修改
sql = " updatebranchtypesetbranchname=' " & branchname & " 'wherebranchid= " & clng (branchid)
conn.execute(sql)

' 刪除
sql = " delete*fromnewslistwhereid= " & id
conn.execute(sql)

' 無分頁(yè)顯示
sql = " selectbranchnamefrombranchtypewherebranchid= " & branchid
set rs = conn.execute(sql)
if not rs.eof then
do while not rs.eof
response.writers( " branchname " ) & " <br/> "
rs.movenext
loop
else
response.write " 對(duì)不起，沒有數(shù)據(jù) "
end if
set rs = nothing


' 分頁(yè)顯示
set rs = server.createobject( " adodb.recordset " )
rs.opensql,conn, 1 , 1
if not rs.eof then
rs.PageSize = 16 ' 每頁(yè)顯示的數(shù)據(jù)條數(shù)
page = request( " page " )
if isnumeric (page) = false then
page = 1
elseif page = "" then
page = 1
end if
page = clng (page)
if page > rs.pagecount then
page = rs.pagecount
end if
rs.AbsolutePage = page
for i = 1 to rs.pagesize
if rs.eof or rs.bof then
exit for
end if
response.writers( " branchname " ) & " <br/> "

rs.movenext
next
if rs.pagecount > 1 then
% >
< % if page <> 1 then % > < ahref =< % = webpage% > page = 1 title = 首頁(yè) > 首頁(yè) </ a >< % else % >< fontcolor = dcdcdc > 首頁(yè) </ font > < % end if % >
< % if page > 10 then % > < ahref =< % = webpage% > page =< % = page - 10 % > title = 上十頁(yè) > 上十頁(yè) </ a >< % else % >< fontcolor = dcdcdc > 上十頁(yè) </ font > < % end if % >
< % if page > 1 then % > < ahref =< % = webpage% > page =< % = page - 1 % > title = 上一頁(yè) > 上一頁(yè) </ a >< % else % >< fontcolor = dcdcdc > 上一頁(yè) </ font > < % end if % >
共 < % = rs.recordcount% > 條數(shù)據(jù)共 < % = rs.pagecount% > 頁(yè)當(dāng)前第 < % = page% > 頁(yè)
< % if page < rs.pagecount then % > < ahref =< % = webpage% > page =< % = page + 1 % > title = 下一頁(yè) > 下一頁(yè) </ a >< % else % >< fontcolor = dcdcdc > 下一頁(yè) </ font > < % end if % >
< % if page < rs.pagecount - 10 then % > < ahref =< % = webpage% > page =< % = page + 10 % > title = 下十頁(yè) > 下十頁(yè) </ a >< % else % >< fontcolor = dcdcdc > 下十頁(yè) </ font > < % end if % >
< % if page <> rs.pagecount then % > < ahref =< % = webpage% > page =< % = rs.pagecount% > title = 末頁(yè) > 末頁(yè) </ a >< % else % >< fontcolor = dcdcdc > 末頁(yè) </ font > < % end if % >
< %
end if
else
response.write " 對(duì)不起，沒有數(shù)據(jù) "
end if
rs.close
set rs = nothing
% >