conn.asp
<%
dim conn,connstr
set conn=server.createobject("adodb.connectino")
connstr="dbq="+server.mappath("tongxun.mdb")+;defaultdir=;driver={microsoft access driver (*.mdb)};"
conn.open connstr
%>

-----------------------------
add.asp

<%
name=request.form("name")
tel=request.form("tel")
mail=request.form("mail")
qq=request.form("qq")
address=request.form("address")
url=request.form("url")
message=request.form("message")

set rs=server.CreateObject("adodb.recordset")
sql="select * from tongxun"
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("tel")=tel
rs("mail")=mail
rs("qq")=qq
rs("address")=address
rs("url")=url
rs("message")=message
rs.update
rs.close
set rs=nothing
response.wite "记录已经添加，谢谢"
%>
--------------------------------------------------------
add.asp

<%
name=request.form("name")
tel=request.form("tel")
mail=request.form("mail")
qq=request.form("qq")
address=request.form("address")
url=request.form("url")
message=request.form("message")
exec="insert into guestbook(name,tel,mail,qq,address,url,message)values('"+name+"',"+tel+",'"+address+"''"+message+"','"+mail+"','+qq+','"+url+"')"
conn.execute exec
conn.close
set conn=nothing

response.wite "记录已经添加，谢谢"
%>

---------------------------------------------------------------------------------
我写了两个add.asp（添加记录页面）怎么一个也运行不了呀，555555，也没有错误提示，就说该页有问题不能正常显示