UC知道asp留言板代码
来源：百度知道 编辑：UC知道 时间：2024/06/07 23:41:32
各位大哥，现在我的问题是做好了留言板可是不可以运行我的asp程序。我的根目录里有三个文件，guestbook.asp(界面，传递给save.asp),user.mdb（数据库，表明也是user）,save.asp.(纯asp,是写入记录)
我的save有问题，可是找不出，请各位高手达人指教！
save.asp代码：
<%
Dim conn
Dim connstr
Dim rs
connstr="DBQ="+Server.mappath("user.mdb")+";
DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
user=request.form("user")
content=request.form("content")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from user where (id is null)"
rs.open sql,conn,1,2
rs.addnew
rs("user")=user
rs("content")=content
rs("time")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
希望按着这个思路看
我的save有问题，可是找不出，请各位高手达人指教！
save.asp代码：
<%
Dim conn
Dim connstr
Dim rs
connstr="DBQ="+Server.mappath("user.mdb")+";
DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
user=request.form("user")
content=request.form("content")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from user where (id is null)"
rs.open sql,conn,1,2
rs.addnew
rs("user")=user
rs("content")=content
rs("time")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
希望按着这个思路看
你之前主要有两个错误：
1.asp中连接字符用"&"而不是"+"
2.sql语句可能有问题
<%
Dim conn,user,content
set conn = Server.CreateObject("ADODB.CONNECTION")
'连接数据库
conn.open "DBQ="&server.mappath("user.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
user=request.form("user")
content=request.form("content")
'sql语句插入一条记录
conn.execute("insert into [user] (user,content,time) values ('"&replace(user,"'","''")&"','"&replace(content),"'","''")&"','"&now()&"'")
conn.close
set conn=nothing
%>
对回答有问题，或认为不妥，百度消息我。
（在消息的内容里加上问题的网址哦）