2008年11月13日
昨天介绍了创建记录集与如何读取数据库内容，本文介绍如何写入数据库。
演示地址：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"> </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
谢谢，请继续
多谢支持！
兄弟，我从对ASP半窍不通到入门，是看着你的文章进来的。网上搜寻无数文章，大多不是很复杂就是有纰漏，你的文章很易懂，而且都是自己写的确保没有错误。能看到这样的好文章实在是很高兴。你的BLOG收藏了，希望不断更新，能跟你走的更远。谢谢。
谢谢关注，过年回老家呆了一个多月，今天才正常返工，以后会继续更新。
有机会可以推荐给你想入门ASP的朋友
谢谢!我刚学ASP,文章对我很大帮助,支持中!!!
您真是一名无私的老师啊，谢谢！谢谢！
老师，你的那个简单的asp新闻发布系统，不能下载啊！请您看到我的留言后发到我邮箱里好吗？谢谢
http://blog.ywask.com/democode/20081121.rar
直接左键点击下载，不要右键另存为。
太好了，网上的资源虽然多，但是很乱很杂很难用。你的整理的非常有条理，真好
我抄一个后台代码怎么试这样写的啊 我是刚学这个的sql="select * from kehufuwu"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request("name"))
rs("address")=trim(request("address"))
rs("contacter")=trim(Request("contacter"))
rs("telphone")=trim(Request("telphone"))
rs("fax")=trim(Request("fax"))
rs("email")=trim(Request("email"))
rs("website")=trim(Request("website"))
rs("content")=trim(Request("content"))
rs.update
rs.close:set rs=nothing