asp操作access数据库的读写删

打开数据库

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

关闭数据库

<%
conn.close
setconn=nothing
%>

修伽i数据库信息

<%
'插入
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)

读取数据库信息并显示

'无分页显示
sql="selectbranchnamefrombranchtypewherebranchid="&branchid
setrs=conn.execute(sql)
ifnotrs.eofthen
dowhilenotrs.eof
response.writers("branchname")&"<br/>"
rs.movenext
loop
else
response.write"对不起，没有数据"
endif
setrs=nothing


'分页显示
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,1
ifnotrs.eofthen
rs.PageSize=16'每页显示的数据条数
page=request("page")
ifisnumeric(page)=falsethen
page=1
elseifpage=""then
page=1
endif
page=clng(page)
ifpage>rs.pagecountthen
page=rs.pagecount
endif
rs.AbsolutePage=page
fori=1tors.pagesize
ifrs.eoforrs.bofthen
exitfor
endif
response.writers("branchname")&"<br/>"

rs.movenext
next
ifrs.pagecount>1then
%>
<%ifpage<>1then%><ahref=<%=webpage%>page=1title=首页>首页</a><%else%><fontcolor=dcdcdc>首页</font><%endif%>
<%ifpage>10then%><ahref=<%=webpage%>page=<%=page-10%>title=上十页>上十页</a><%else%><fontcolor=dcdcdc>上十页</font><%endif%>
<%ifpage>1then%><ahref=<%=webpage%>page=<%=page-1%>title=上一页>上一页</a><%else%><fontcolor=dcdcdc>上一页</font><%endif%>
共<%=rs.recordcount%>条数据共<%=rs.pagecount%>页当前第<%=page%>页
<%ifpage<rs.pagecountthen%><ahref=<%=webpage%>page=<%=page+1%>title=下一页>下一页</a><%else%><fontcolor=dcdcdc>下一页</font><%endif%>
<%ifpage<rs.pagecount-10then%><ahref=<%=webpage%>page=<%=page+10%>title=下十页>下十页</a><%else%><fontcolor=dcdcdc>下十页</font><%endif%>
<%ifpage<>rs.pagecountthen%><ahref=<%=webpage%>page=<%=rs.pagecount%>title=末页>末页</a><%else%><fontcolor=dcdcdc>末页</font><%endif%>
<%
endif
else
response.write"对不起，没有数据"
endif
rs.close
setrs=nothing
%>