昨天介绍了创建记录集与如何读取数据库内容，本文介绍如何写入数据库。

演示地址：http://blog.ywask.com/democode/20081113 
源码下载：http://blog.ywask.com/democode/20081113.rar

数据库还是用昨天建立的data.mdb，数据库里已经有三条记录了，要写入新记录到数据库，首先需要一个提交数据的表单页面，然后一个保存数据的页面，再一个读取数据的页面。

1、提交数据的表单页面index.htm

<html>
<head>
<title>提交数据</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<form name="form1" method="post" action="SaveData.asp">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="31%" height="26"><div align="right">公司名称：</div></td>
    <td width="69%">
        <input name="companyname" type="text" id="companyname">
      </td>
  </tr>
  <tr>
    <td height="26"><div align="right">电话：</div></td>
    <td><input name="tel" type="text" id="tel"></td>
  </tr>
  <tr>
    <td height="26"><div align="right">地址：</div></td>
    <td><input name="address" type="text" id="address"></td>
  </tr>
  <tr>
    <td height="26"><div align="right">网址：</div></td>
    <td><input name="website" type="text" id="website"></td>
  </tr>
  <tr>
    <td height="30">&nbsp;</td>
    <td><input type="submit" name="Submit" value="提交"></td>
  </tr>
</table>
</form>
</body>
</html>

2、保存数据页面SaveData.asp

结合前几天介绍的request对象，取得表单的值，然后保存写入到数据库，代码如下：

<%
dim conn 
dim connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '创建数据库连接对象
conn.open connstr '连接数据库

'取得表单数据
companyname=request.form("companyname") '把文本框companyname的值赋于变量companyname
tel=request.form("tel") '把文本框tel的值赋于变量tel
address=request.form("address") '把文本框address的值赋于变量address
website=request.form("website") '把文本框website的值赋于变量website

set rs=server.CreateObject("adodb.recordset") '创建rs记录集
sql="select * from [company]" '读取数据库的SQL语句串
rs.open sql,conn,3,3 '打开记录集 ，当需要对数据库进行更新操作时，用3,3，如果只需要读取数据库，用1,1 这个以后会解释。
rs.addnew '添加新记录
rs("companyname")=companyname '把变量companyname的值写入到companyname的字段中
rs("tel")=tel '把变量tel的值写入到tel的字段中
rs("address")=address '把变量address的值写入到address的字段中
rs("website")=website '把变量website的值写入到website的字段中
rs.update '更新数据库
rs.close '关闭记录集
set rs=nothing '清空记录集
response.redirect("index.asp") '提交成功后，转向到index.asp文件，读取数据库内容
%>

3、读取数据页面index.asp

这个页面昨天已经在“如何读取数据库内容”里介绍过了。

明天将介绍删除数据与更新数据操作！这些介绍完后，就可以开发一套最简单的新闻发布系统了。

具体运行结果请看本文最前面写的演示地址。

（本文完）雨点写于2008/11/13日，转载请注明出处：http://blog.ywask.com