这是创建一个数据库实例，但是什么是数据库实例？还有rs这个东西也不是一个变量，他在程序里边rs.update 等操作是如何进行的？打开的表示如何接收rs传过来的数据的？
是建立一个数据集
前面应该先定义此数据集
dim rs as adodb.recordset
然后就可以用
set rs=server.CreateObject("adodb.recordset")
来建立一个数据集的实例，当然此时数据集中是没有数据的
rs.open ......
来打开一个记录集
rs.append或者rs.insert来添加记录
rs.edit来修改记录
对于添加或修改的记录，可以用
rs.fields("字段名")=xxx
来进行赋值
rs.update
把更改过的值更新回数据库
当你添加一个数据（rs1）进数据库时：
rs.addnew
rs("rs1")="添加的数据"
rs.update
rs.close
set rs=nothing
下面我们来个实例：
Set mRs= Server.CreateObject("adodb.recordSet")
mRs.open "Select * from book", conn, 1, 3
mRs.addnew
mRs("Name") = Name
mRs("Mail") = Mail
mRs("Qq") = Qq
mRs("Info") = Info
mRs("time") = now()
mRs.update
mRs.close
Set mRs = nothing
//下面是调用html输入框
复制代码 代码如下:
< table cellpadding="0" >
< form method="post" action="admin/< % =filename % >?action=Reply&id=< % =id % >" >
< tr >
< td bgcolor="#EFEFEF" >昵称：< /td >
< td >
< input type="text" value="< % =mRs("Name") % >" >
< /td >
< /tr >
< tr >
< td bgcolor="#EFEFEF" >内容是否公开：< /td >
< td >
< input type="radio" value="1" < %if mRs("qq")=1 then response.write " checked " end if% > >
是
< input type="radio" value="0" < %if mRs("qq")=0 then response.write " checked " end if% > >
否 < /td >
< /tr >
< tr >
< td bgcolor="#EFEFEF" >邮箱：< /td >
< td >
< input type="text" value="< % =mRs("Mail") % >" >
< /td >
< /tr >
< tr >
< td bgcolor="#EFEFEF" >留言：< /td >
< td >
< textarea rows="9" cols="57" >< % =mRs("Info") % >< /textarea >
< /td >
< /tr >
< tr >
< td bgcolor="#EFEFEF" >回复：< /td >
< td rowspan="2" bgcolor="#EFEFEF" >
< textarea rows="6" cols="50" >< % =Reply % >< /textarea >
< /td >
< /tr >
< tr >
< td bgcolor="#EFEFEF" >< /td >
< /tr >
< tr >
< td colspan="2" bgcolor="#EFEFEF" >
< input type="submit" value=" 回复留言 " >
< input type="reSet" value=" 重新输入 " >
< /td >
< /tr >
< /form >
< /table >