UC知道一个简单的ASP提交程序出错!FROM 子句语法错误。
来源：百度知道 编辑：UC知道 时间：2024/05/11 17:23:26
<%
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("all.mdb")
%>
<%
if request ("text")<>"" and request ("key")<>"" then
sql="select * from all"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("text")=request("text")
rs("key")=request("key")
rs("time")=now()
rs.update
rs.close
set rs=nothing
response.redirect"all.asp"
end if
%>
以上是ALL.ASP的代码!
我提交all.asp?text=12&key=23132后
提示:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine 错误 '80040e14'
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("all.mdb")
%>
<%
if request ("text")<>"" and request ("key")<>"" then
sql="select * from all"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("text")=request("text")
rs("key")=request("key")
rs("time")=now()
rs.update
rs.close
set rs=nothing
response.redirect"all.asp"
end if
%>
以上是ALL.ASP的代码!
我提交all.asp?text=12&key=23132后
提示:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine 错误 '80040e14'
程序没错,但你的数据库字段命名有问题,多个是关键字.
all0
text0
key0
time0
都加一个0
就行了.
个人觉得:如果对关键字不是很清楚,给数据库字段命名,最好用汉语拼音或英文和数字组合.
<%
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("all.mdb")
%>
<%
if request ("text")="" or request ("key")="" then
response.End
End If
sql="select * from all"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("text")=request("text")
rs("key")=request("key")
rs("time")=now()
rs.update
rs.close
set rs=nothing
response.redirect"all.asp"
%>
你的all是数据库名，还是表名？
先确定all.mdb数据库里要有all这个表。
再看看500-100.asp这个文件里是不是有问题，
缺少 &