Question

求asp动态网页插入记录的源程序

Answer 1

曾经做的一个留言版是asp与access的
words是留言内容
name1是姓名
class是数据库的表名
先判断是否为空
不为空则插入记录
<%
Dim words
Dim name1
words=request.form("words")
name1=request.form("name1")
if words="" then
response.write"<script> alert('提交失败！留言内容不能为空！');history.go(-1);</script>"
response.end
end if
if name1="" then
response.write"<script>alert('提交失败！姓名不能为空！');history.go(-1);</script>"
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select * from class "
rs.open sql,conn,3,2
rs.addnew

rs("words")=words
rs("name1")=name1
rs("time")=now()

rs.update
rs.close
set rs=nothing
response.Redirect("liuyan.asp")
%>
注意:在网页内记得插入连接数据库语句,一定在上面的语句之前
<!--#include file="conn.asp"-->
再次我也给出连接数据库的代码
class.mdb是access的数据库文件
<%
dim conn
dim connstr1
connstr1="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="+server.mappath("class.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr1
%>