极乐门资源网 Design By www.ioogu.com
是建立一个数据集
前面应该先定义此数据集
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 border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form name="form1" method="post" action="admin/<% =filename %>?action=Reply&id=<% =id %>">
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">昵称:</td>
<td width="640">
<input name="Name" type="text" class="input" value="<% =mRs("Name") %>">
</td>
</tr>
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">内容是否公开:</td>
<td width="640">
<input type="radio" name="Qq" value="1" <%if mRs("qq")=1 then response.write " checked " end if%> >
是
<input name="Qq" type="radio" value="0" <%if mRs("qq")=0 then response.write " checked " end if%> >
否 </td>
</tr>
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">邮箱:</td>
<td width="640">
<input name="Mail" type="text" class="input" value="<% =mRs("Mail") %>">
</td>
</tr>
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">留言:</td>
<td width="640">
<textarea name="Info" rows="9" cols="57" class="button"><% =mRs("Info") %></textarea>
</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#EFEFEF" width="118">回复:</td>
<td height="100" rowspan="2" bgcolor="#EFEFEF" width="640">
<textarea name="Reply" rows="6" cols="50" class="button"><% =Reply %></textarea>
</td>
</tr>
<tr>
<td height="70" bgcolor="#EFEFEF" width="118"></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" bgcolor="#EFEFEF">
<input name="Submit1" type="submit" id="Submit" value=" 回复留言 " class="button">
<input name="reSet" type="reSet" id="reSet4" value=" 重新输入 " class="button">
</td>
</tr>
</form>
</table>
前面应该先定义此数据集
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 border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form name="form1" method="post" action="admin/<% =filename %>?action=Reply&id=<% =id %>">
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">昵称:</td>
<td width="640">
<input name="Name" type="text" class="input" value="<% =mRs("Name") %>">
</td>
</tr>
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">内容是否公开:</td>
<td width="640">
<input type="radio" name="Qq" value="1" <%if mRs("qq")=1 then response.write " checked " end if%> >
是
<input name="Qq" type="radio" value="0" <%if mRs("qq")=0 then response.write " checked " end if%> >
否 </td>
</tr>
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">邮箱:</td>
<td width="640">
<input name="Mail" type="text" class="input" value="<% =mRs("Mail") %>">
</td>
</tr>
<tr>
<td width="118" height="37" align="center" bgcolor="#EFEFEF">留言:</td>
<td width="640">
<textarea name="Info" rows="9" cols="57" class="button"><% =mRs("Info") %></textarea>
</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#EFEFEF" width="118">回复:</td>
<td height="100" rowspan="2" bgcolor="#EFEFEF" width="640">
<textarea name="Reply" rows="6" cols="50" class="button"><% =Reply %></textarea>
</td>
</tr>
<tr>
<td height="70" bgcolor="#EFEFEF" width="118"></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" bgcolor="#EFEFEF">
<input name="Submit1" type="submit" id="Submit" value=" 回复留言 " class="button">
<input name="reSet" type="reSet" id="reSet4" value=" 重新输入 " class="button">
</td>
</tr>
</form>
</table>
标签:
adodb,recordset
极乐门资源网 Design By www.ioogu.com
极乐门资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com
暂无set rs=server.CreateObject("adodb.recordset") 的中文详细说明的评论...
更新日志
2024年12月25日
2024年12月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]