程序有问题,高手帮帮忙,急用

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
leibie=request("leibie")
company=request("company")
cp=request("cp")
linkman=request("linkman")+request("sex")
email=request("email")
homepage=request("homepage")
address=request("address")
bank=request("bank")
account=request("account")
tel=request("tel")
fax=request("fax")
mobile=request("mobile")
youbian=request("youbian")
huming=request("huming")
tax=request("tax")
beizhu=request("beizhu")

cptype=request("cptype")
cpname=request("cpname")
standard=request("standard")
price=request("price")
remark=request("remark")
if request("add")<>"" then
sql="Insert Into 主要信息(类别,经营产品,公司名称,联系地址,邮编,联系人,电话,传真,手机,电子邮箱,公司主页,开户行,户名,帐号,税号,备注)values('"&leibie&"','"&cp&"','"&company&"','"&address&"','"&youbian&"','"&linkman&"','"&tel&"','"&fax&"','"&mobile&"','"&email&"','"&homepage&"','"&bank&"','"&huming&"','"&account&"','"&tax&"','"&beizhu&"')"
  set a=conn.Execute(sql)

  response.Redirect("add.asp")

end if

if request("addcp")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql1="Insert Into 产品说明(公司名称,型号,名称,规格,单价,备注)values('"&company&"','"&cptype&"','"&cpname&"','"&standard&"','"&price&"','"&remark&"')"
  set a=conn.Execute(sql1)

response.Redirect("add.asp")

end if
%>

Microsoft JScript 编译错误错误 '800a03f7'

未结束的字符串常量

/buy/dbase.asp，行 2

'dim conn
---------^

17 个解决方案

#1

不知道是什么地方有问题,试了很久,都无法添加数据进入
高手指正一下,初学没有多久啊

#2

大家帮帮忙

#3

把dbase.asp列出来

#4

你这页的问题dbase.asp，给上面的没关系

#5

Microsoft JScript 编译错误错误 '800a03f7'

未结束的字符串常量

/buy/dbase.asp，行 2

'dim conn
---------^

明显是dbase.asp的问题，把dbase.asp的代码贴出来吧

#6

/buy/dbase.asp，行 2
是dbase.asp这个文件第2行的问题

#7

<%
'dim conn
'set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=stock"
%>

<%
dim conn
datapath="data/"'
datafile="cs.mdb"'

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datapath&""&datafile&"")
'Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=Server.CreateObject("adodb.connection")
conn.Open connstr

%>

#8

这就是dbase.asp的代码

#9

<%
dim conn
datapath="data/"
datafile="cs.mdb"

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(datapath & datafile)

set conn=Server.CreateObject("adodb.connection")
conn.Open connstr

%>

#10

这样就能解决吗

#11

是什么问题引起的呢

#12

谁能指点下,谢谢

#13

Server.MapPath(""&datapath&""&datafile&"")中&符号前后分别加一个空格。

#14

有两个,是前一个还是后

#15

改了,还是不行哦

#16

没有人知道吗???

#17

<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("data/cs.mdb")
%>
只放这些其他都删掉，路径要写对！

#1