神马品牌网金属表面磷化:一个ASP初级例子的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/13 14:44:49
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
'建立Recordset对象并以追加记录方式打开数据库。
set rst=Server.CreateObject("ADODB.Recordset")
set rst1=Server.CreateObject("ADODB.Recordset")
sSQL="select * from 员工基本情况表 where 员工姓名='" & name1 & "'"
rst.Open sSQL,cnn,1,1 （这段以下是怎么回事）
if rst.EOF or rst.BOF then '如果数据表中无此数据，则添加记录。
rst1.Open "员工基本情况表",cnn ,1,2
rst1.addnew array("员工姓名","所在部门","家庭住址","家庭电话","Email"),array(name1,Department,Addr,Tel,Email)
rst1.update
set cnn=Server.CreateObject("ADODB.Connection")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
'建立Recordset对象并以追加记录方式打开数据库。
set rst=Server.CreateObject("ADODB.Recordset")
set rst1=Server.CreateObject("ADODB.Recordset")
sSQL="select * from 员工基本情况表 where 员工姓名='" & name1 & "'"
rst.Open sSQL,cnn,1,1 （这段以下是怎么回事）
if rst.EOF or rst.BOF then '如果数据表中无此数据，则添加记录。
rst1.Open "员工基本情况表",cnn ,1,2
rst1.addnew array("员工姓名","所在部门","家庭住址","家庭电话","Email"),array(name1,Department,Addr,Tel,Email)
rst1.update
判断数据库指针是否到底或到顶，如果其中有一个为真就判断没找到记录，便打开员工基本情况表，cnn1,2是可读、写的意思，把那些字段添加到对应的列中，完成rst1的更新。
一句句帮你来说`
if rst.EOF or rst.BOF then '如果数据表中无此数据，则添加记录。
'rst=Server.CreateObject("ADODB.Recordset")
'Recordset.eof是数据库指针在最下面`因为无记录所以读到最下面`
'Recordset.bof是数据库指针在最上面`因为无记录所以读到最上面`
'意思就是`在没有任何记录的情况下运行下面的程序
rst1.Open "员工基本情况表",cnn ,1,2
'打开员工基本情况表
rst1.addnew array("员工姓名","所在部门","家庭住址","家庭电话","Email"),array(name1,Department,Addr,Tel,Email)
'增加如上的字段记录`
rst1.update
'搞店`