Microsoft VBScript 编译器错误 错误 '800a0408' 提示无效字符

wangjuan1986 2008-12-01 10:45:37
<% @LANGUAGE = "VBScript" %>
<%
Name=request("name")
Email=request("Email")
Memo=request("memo")
if name="" or Email="" or memo="" then
response.write"不能为空"
response.end
end if
dim Connstr,conn,SQL
'Connstr="DNS=wj"
set conn=Server.CreateObject("adodb.connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};"&_"DBQ=留言板.mdb;"
conn.open
SQL="insert into 留言版(姓名,E-mail,内容) VALUES('&name&','&email&','&memo&')"
response.write(SQL)
conn.Execute(SQL)
conn.close()
response.redirect("display.asp")

%>

asp连接数据库
请问高手是怎么解决呢?
再下无比感谢啊
...全文
1094 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
toury 2008-12-01
  • 打赏
  • 举报
回复

<%
Name=request("name")
Email=request("Email")
Memo=request("memo")
if len(name)=0 or len(Email)=0 or len(memo)=0 then response.write"不能为空": response.end

dim Connstr,conn,SQL
set conn=Server.CreateObject("adodb.connection")
'conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};"&_"DBQ#留言板.mdb;"
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("留言板.mdb")
conn.open
if conn.state<>1 then
response.write("数据库连接失败!原因:"&err.description)
set conn=nothing
response.end
end if
'注意:把数据库中原来的E-mail字段改为Email字段!
SQL="INSERT INTO 留言版(姓名,Email,内容) VALUES('"&name&"','"&email&"','"&memo&"')"
response.write(SQL)'把打印的这句SQL贴出来
conn.Execute(SQL)
conn.close(): set conn=nothing
response.redirect("display.asp")
wangjuan1986 2008-12-01
  • 打赏
  • 举报
回复
insert into 留言版(姓名,E-mail,内容) VALUES('我',' 我',' 我')
Microsoft JET Database Engine '80040e14'

INSERT INTO 语句的语法错误。

\wwwroot\wj\handle.asp, line 18
wangjuan1986 2008-12-01
  • 打赏
  • 举报
回复
大哥改正了
应该是把&后的-去掉】
但新的错误又来了
insert into 留言版(姓名,Email,内容) VALUES('我',' 我',' 我')
Microsoft JET Database Engine '80040e14'

INSERT INTO 语句包含下列未知的字段名: 'Email'。确定键入的名称是正确的, 然后重试。

\wwwroot\wj\handle.asp, line 18
wangjuan1986 2008-12-01
  • 打赏
  • 举报
回复
回上面大哥改了,但还是那样啊
<% @LANGUAGE = "VBScript" %>
<%
Name=request("name")
Email=request("Email")
Memo=request("memo")
if name="" or Email="" or memo="" then
response.write"不能为空"
response.end
end if
dim Connstr,conn,SQL
'Connstr="DNS=wj"
set conn=Server.CreateObject("adodb.connection")
'conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};"&_"DBQ#留言板.mdb;"
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source=" & Server.MapPath("留言板.mdb")
conn.open
SQL="insert into 留言版(姓名,Email,内容) VALUES('"&name&"','"&email&"','"&memo&"')"
response.write(SQL)
conn.Execute(SQL)
conn.close()
response.redirect("display.asp")

%>
toury 2008-12-01
  • 打赏
  • 举报
回复
用OLEDB连库,然后把出错的行指出来
wangjuan1986 2008-12-01
  • 打赏
  • 举报
回复
回2楼
试了
但还是不能用
toury 2008-12-01
  • 打赏
  • 举报
回复
你别用ODBC连库了,用OLEDB吧
toury 2008-12-01
  • 打赏
  • 举报
回复
DBQ=留言板.mdb-->DBQ#留言板.mdb
E-mail-->Email
wangjuan1986 2008-12-01
  • 打赏
  • 举报
回复
不好意思啊
刚才敲错了
是这样的
<% @LANGUAGE = "VBScript" %>
<%
Name=request("name")
Email=request("Email")
Memo=request("memo")
if name="" or Email="" or memo="" then
response.write"不能为空"
response.end
end if
dim Connstr,conn,SQL
'Connstr="DNS=wj"
set conn=Server.CreateObject("adodb.connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};"&_"DBQ=留言板.mdb;"
conn.open
SQL="insert into 留言版(姓名,E-mail,内容) VALUES('"&name&"','"&email&"','"&memo&"')"
response.write(SQL)
conn.Execute(SQL)
conn.close()
response.redirect("display.asp")

%>
也提示错误
response.redirect("display.asp")

%>

4,009

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧