高校问答圣彼得堡 自驾游:用asp边界源代码，怎样实现留言板中的数据库查询功能
来源：百度文库 编辑：高校问答 时间：2024/05/05 05:46:01
<%
'读取各字段的数据
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)这里没有有效的查询，请问怎么解决呢
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"))