UC知道用asp边界源代码，怎样实现留言板中的数据库查询功能
来源：百度知道 编辑：UC知道 时间：2024/05/09 04:09:39
<%
'读取各字段的数据
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)这
请把数据库文件夹共享..并付给完全控制的权限..
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