|
|
主题: 再帮忙看看
|
tearman
职务：普通成员
等级：1
金币：0.0
发贴：47
|
#12004/8/23 14:43:40
我的目的是:
连接数据库 打开数据库 如果没有与记录相同的则写入 如果没有则输出unsuccess
关闭数据库
这点东西搞了一天还没搞明白 请高手明试
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("chat/chat.mdb")
set rs=Server.CreateObject("adodb.Recordset")
rs.open "select * from chat",con,1,3
if not(rs.bof and rs.eof) then
rs addnew
dim name
name = request("username")
exec="insert into chat(name)values("+nameid+")"
conn.execute exec
rs.MoveNext
Else
Response.Write ("userlogin=unsuccess")
end if
rs.close
conn.close
%>
编辑历史:[此帖最近一次被 allinhands 编辑过(编辑时间:2004-08-23 15:08:26)]
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#22004/8/23 15:10:22
乱
1.已经打开rs了,为什么还要conn.execute
而且还是错的
已经说了
rs("nameid")=Request.form("name")就可以增加了.你之前只是多了一个点
2.为什么要movenext()?
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#32004/8/23 15:11:57
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("chat/chat.mdb")
set rs=Server.CreateObject("adodb.Recordset")
rs.open "select * from chat",con,1,3
if not(rs.bof and rs.eof) then
rs addnew
rs("nameid")=Request.form("name")
rs.update
Else
Response.Write ("userlogin=unsuccess")
end if
rs.close
conn.close
%>
|
tearman
职务：普通成员
等级：1
金币：0.0
发贴：47
|
#42004/8/23 15:29:03
flash的变量也用Request.form?
|
tearman
职务：普通成员
等级：1
金币：0.0
发贴：47
|
#52004/8/24 14:57:48
多谢allinhands,经过你的帮助我终于搞定了
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("chat\chat.mdb")
name=request.form("username")
exec="insert into aaa(userid) values ('"+name+"')"
conn.execute exec
response.write "记录添加成功!"
conn.close
set conn=nothing
<!--#include file=aa.as-->
%>
我用这招成功了!!! 可上面的代码还是不行
怎么回事,是不是我的ACCESS设置的问题???????????????????
|
