set rs=server.CreateObject(adodb.recordset) 的中文詳細說明

這是建立一個資料庫實例，但是什麼是資料庫實例？還有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>