是建立一個(gè)數(shù)據(jù)集
前面應(yīng)該先定義此數(shù)據(jù)集
dim rs as adodb.recordset
然后就可以用
set rs=server.CreateObject("adodb.recordset")
來(lái)建立一個(gè)數(shù)據(jù)集的實(shí)例，當(dāng)然此時(shí)數(shù)據(jù)集中是沒(méi)有數(shù)據(jù)的
rs.open ......
來(lái)打開(kāi)一個(gè)記錄集
rs.append或者rs.insert來(lái)添加記錄
rs.edit來(lái)修改記錄
對(duì)于添加或修改的記錄，可以用
rs.fields("字段名")=xxx
來(lái)進(jìn)行賦值
rs.update
把更改過(guò)的值更新回?cái)?shù)據(jù)庫(kù)
當(dāng)你添加一個(gè)數(shù)據(jù)（rs1）進(jìn)數(shù)據(jù)庫(kù)時(shí)：
rs.addnew
rs("rs1")="添加的數(shù)據(jù)"
rs.update
rs.close
set rs=nothing
下面我們來(lái)個(gè)實(shí)例：
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
//下面是調(diào)用html輸入框

復(fù)制代碼 代碼如下:

<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">內(nèi)容是否公開(kāi)：</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">回復(fù)：</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=" 回復(fù)留言 ">
<input type="reSet" value=" 重新輸入 ">
</td>
</tr>
</form>
</table>