|
|
主题: 救救我啊！！哪位高手帮我看看下面的程序啊！
|
seconed6
职务：普通成员
等级：1
金币：1.0
发贴：189
|
#12002/9/20 13:40:30
<%
dim tit, txt
tit = Request.Form("name") '获取用户名信息
txt = 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"内容添加成功"
%>
|
seconed6
职务：普通成员
等级：1
金币：1.0
发贴：189
|
#22002/9/20 13:45:20
对不起啊！发错了，应该是这样的，数据库已经连接成功！
<%
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"内容添加成功"
%>
|
天之剑
职务：普通成员
等级：1
金币：0.0
发贴：302
|
#32002/9/20 14:04:04
一切正常呀
|
seconed6
职务：普通成员
等级：1
金币：1.0
发贴：189
|
#42002/9/20 14:10:20
这个程序能运行，但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 %>
|
天之剑
职务：普通成员
等级：1
金币：0.0
发贴：302
|
#52002/9/20 14:17:36
你用access呀，你看报什么错误呀,你写的代码最有点那个 
|
seconed6
职务：普通成员
等级：1
金币：1.0
发贴：189
|
#62002/9/20 14:27:25
没有报错，我不是说了吗，提交后只有一个空白页，response.write里的“内容添加成功”没有出现，而且写不进数据。
我是个低手，我的程序有点什么啊！
请指点啊！！
|
seconed6
职务：普通成员
等级：1
金币：1.0
发贴：189
|
#72002/9/20 14:54:04
HTTP 500 - 内部服务器错误
Internet Explorer
直接运行是这个提示， 怎么讲。？？！
|
5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：1480
|
|
a1ds
职务：普通成员
等级：1
金币：0.0
发贴：169
|
#92002/9/20 17:32:10
换一本书看看吧1！！我觉着，你手边这个教材不怎么好1！！
|
今晚在线
职务：普通成员
等级：3
金币：1.0
发贴：761
|
#102002/9/20 22:08:40
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"添家成工"
编辑历史:[这消息被今晚在线编辑过(编辑时间2002-09-20 22:14:37)]
[这消息被今晚在线编辑过(编辑时间2002-09-20 22:16:52)]
|
云中游
职务：普通成员
等级：2
金币：1.0
发贴：397
|
#112002/9/20 22:40:24
我也觉得你的代码看着有点不舒服，哪有这种写法啊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"添家成工"
|
今晚在线
职务：普通成员
等级：3
金币：1.0
发贴：761
|
#122002/9/21 2:04:48
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高,高多少我也不知道!
|
