班组团队建设活动方案:帮我看看这段代码-Asp

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/30 07:37:22
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("xl.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql = "select * from guan"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1

company = rs("company")

rs.close
set rs = nothing
%>
这段代码中又往数据库里写数据的代码吗?
要是没有,请帮我在此程序的基础上写段代码.

没有写入数据库,只是连接数据库后,创建了一个记录集rs,将查询结果中第一条记录的company字段值赋给company,
只是查询,没有写入。