er=microsoft.jet.oledb.4.0;data source=" & server.mappath(""&db&"")

conn.open connstr

4．2 数据库查询操作

//大类查讯
set rs=server.createobject("adodb.recordset")

//只读方式打开

rs.open "select anclass,anclassid from anclass",conn,1,1

do while not rs.eof

response.write "<a href=javascript:turnx('r"&rs("anclassid")&"')>"

&trim(rs("anclass"))&"</a> "

rs.movenext

loop

rs.close

//小类查询

dim rs2

set rs2=server.createobject("adodb.recordset")

rs2.open "select nclass,nclassid from nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1

do while not rs2.eof

response.write "<a href=class.asp?aid="

&rs("anclassid")&"&nid="&rs2("nclassid")&">"

&trim(rs2("nclass"))&"</a> "

rs2.movenext

loop

4．3 添加记录操作

set rs=server.createobject("adodb.recordset")

//可写方式

rs.open "select bookid,username,zhuangtai,zonger from actions",conn,1,3

rs.addnew //添加一条新记录

rs("bookid")=bookid //添加相应的记录

rs("username")=username

…………

rs("zhuangtai")=6

rs("zonger")=0

rs.update //更新数据库

4．4 删除记录操作

//从表actions中删除actionid 匹配的记录; conn.execute "delete from actions where actionid="

&request.querystring("actionid")

4．5 记录的修改和查看

set rs=server.createobject("adodb.recordset")

rs.open "select * from books where bookid="&bookid,conn,1,3

rs("anclassid")=int(request("anclassid")) //修改各项记录

………………

rs.update

rs.close

五、结束语

随着web技术的发展，基于intranet的电子商务系统无疑较传统商务有着更大的应用前景，如何提务系高这种电子商统中的数据访问效率及事务处理能力仍是当前人们所关注的问题。

网游之一枪爆头 百变销魂 官路青云 一帘妖梦 第一公敌 权柄 http://***

上一页  [1] [2] [3]