2018社会考生高考条件:用asp边界源代码,怎样实现留言板中的数据库查询功能

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/27 14:42:44
<%
'读取各字段的数据
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)这里没有有效的查询,请问怎么解决呢
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/网页练习/《ASP程序设计》源程序/Chapter05/案例5-2/handle.ASP, 第 21 行

浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

请把数据库文件夹共享..并付给完全控制的权限..

set rs=server.createobject("adodb.command")

rs.activeconnection=conn

rs.commandtext="INSERT INTO lyb(姓名,email,主题,内容) VALUES('" &_
Name & "','" &Email & "','" & Subject & "','" & Memo & "')"

rs.execute

插入数据的过程这样写
sql="SELECT * FROM lyb where id is null"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("姓名")=Name
rs("email")=Email
rs("主题")=Subject
rs("内容")=Memo
rs.update
rs.close