对不起啊！发错了，应该是这样的，数据库已经连接成功！

<%
dim name,password
name = Request.Form("name") '获取用户名信息
password = Request.Form("password") '获取密码的信息
if request.form("action") <> "确定添加" then
response.write"您是非法进入"
response.end '这句表示要求服务器立即停止解释之象下面的语句
end if

set rs=server.createobject("adodb.recordset")
sql="insert into tab(name,password) values ('"&name&"','"&password&"')"
conn.Execute(sql)

response.write"内容添加成功"
%>

这个程序能运行，但response.write里的“内容添加成功”没有出现，而且写不进数据库。
会不会是数据库没有连上啊！
<% dim tol
dim conn
dim mmdb
mmdb="user.MDB"
Set tol = Server.CreateObject("ADODB.Connection") '
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"")
tol.Open conn
function Closemdb
tol.close
Set tol = Nothing
End Function %>

没有报错，我不是说了吗，提交后只有一个空白页，response.write里的“内容添加成功”没有出现，而且写不进数据。

我是个低手，我的程序有点什么啊！
请指点啊！！

www.5dmedia.com/bbs/NewsDetail.asp?id=486263


不要一帖多发!

seconed6在上个帖子中说

引用:

---

对不起啊！发错了，应该是这样的，数据库已经连接成功！

<%
dim name,password
name = Request.Form("name") '获取用户名信息
password = Request.Form("password") '获取密码的信息
if request.form("action") <> "确定添加" then
response.write"您是非法进入"
response.end '这句表示要求服务器立即停止解释之象下面的语句
end if

set rs=server.createobject("adodb.recordset")
sql="insert into tab(name,password) values ('"&name&"','"&password&"')"
conn.Execute(sql)

response.write"内容添加成功"
%>

---

上面的conn.Execute(sql)改成tol.execute(sql)
这是因为你数据库最后打开好象是tol.open conn

======================================================================
set rs=server.createobject("adodb.recordset")
sql="insert into tab(name,password) values ('"&name&"','"&password&"')"
conn.Execute(sql)

改写成这样也行

set rs = server.createobject("adodb.recordset")
rs.open"select * from tab",tol,2,2
rs.addnew
rs.fields("name") = name
rs.fields("password") = password
rs.update
rs.close
response.write"添家成工"

stephen在上个帖子中说

引用:

---

我也觉得你的代码看着有点不舒服，哪有这种写法啊sql="insert into tab(name,password) values ('"&name&"','"&password&"')"

楼上的朋友这种写法比较容易看的懂，也用的较多
set rs = server.createobject("adodb.recordset")
rs.open"select * from tab",tol,2,2
rs.addnew
rs.fields("name") = name
rs.fields("password") = password
rs.update
rs.close
response.write"添家成工"

---

不过效率还是insert高,高多少我也不知道!