用asp边界源代码,怎样实现留言板中的数据库查询功能 20
<%'读取各字段的数据Name=Request("Name")Email=Request("Email")Subject=Request("Subject")Memo=R...
<%
'读取各字段的数据
Name = Request("Name")
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo")
'检查各字段是否输入了数据
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
Response.Write ("字段空白不接受!")
Response.End '不再处理以下的程序
End If
'插入到数据库
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("lyb.mdb"))
SQL = "INSERT INTO lyb(姓名,email,主题,内容) VALUES('" &_
Name & "','" &Email & "','" & Subject & "','" & Memo & "')"
response.write(sql)
conn.execute(sql)
conn.close()
response.rediret("display.asp")
%>
这段代码那里有错请高手帮忙看一下,在浏览器中检查说是conn.execute(sql)这里没有有效的查询,请问怎么解决呢 展开
'读取各字段的数据
Name = Request("Name")
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo")
'检查各字段是否输入了数据
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
Response.Write ("字段空白不接受!")
Response.End '不再处理以下的程序
End If
'插入到数据库
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("lyb.mdb"))
SQL = "INSERT INTO lyb(姓名,email,主题,内容) VALUES('" &_
Name & "','" &Email & "','" & Subject & "','" & Memo & "')"
response.write(sql)
conn.execute(sql)
conn.close()
response.rediret("display.asp")
%>
这段代码那里有错请高手帮忙看一下,在浏览器中检查说是conn.execute(sql)这里没有有效的查询,请问怎么解决呢 展开
1个回答
展开全部
connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("lyb.mdb")
conn.Open connstr
把上面的这段代替:
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("lyb.mdb"))
conn.Open connstr
把上面的这段代替:
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("lyb.mdb"))
参考资料: sc.gxlcly.com
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询