高手进来帮忙解决一个问题！急！急！在线等候！高分相送！！！

mathsword 2003-03-16 05:05:02

帮我看看这是怎么回事？
<html>
<head>
<title>图书浏览</title>
</head>
<body>
<%
dim conn

'on error resume next

set conn=server.createobject("ADODB.CONNECTION")
Conn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=D:\wwwdoc\cs\md;" & _
"Exclusive=No"
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "Visual FoxPro Tables"
sql="SELECT * FROM zk while 户主姓名='"高承凯"'"
Set RS = Conn.Execute(sql)
%>
<table BORDER="1" cellspacing="0" cellpadding="0">
<tr>
<% For i = 0 to 10 %>
<td><b><% =RS(i).name %></b></td>
<% Next %>
</tr>
<% Do While Not RS.EOF %>
<tr>
<% For i = 0 to 10 %>
<td><% =RS(i) %></td>
<% Next %>
</tr>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</table>
</body>
</html>

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a0408'

无效字符

/cs/md/aa.asp，行18

sql="SELECT * FROM zk while 户主姓名='"高承凯"'"
----------------------------^

...全文

43 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

mathsword 2003-03-16

打赏
举报

to:
lgchao() kid5() 二位高手！

谢谢啦，送分了，接好了！！！！

kid5 2003-03-16

打赏
举报

sql="SELECT * FROM zk while 户主姓名='高承凯'"

lgchao 2003-03-16

打赏
举报

刚才没留意，你加多一个""干什么？
如果要连接变量，就用&

lgchao 2003-03-16

打赏
举报

sql="SELECT * FROM zk where [户主姓名]='高承凯'"

mathsword 2003-03-16

打赏
举报

to:
m1_1m(我离高手还好远)

流程不对？能说清楚点吗？我这个代码很短了！

mathsword 2003-03-16

打赏
举报

各位大虾：

我在foxpro里用SELECT * FROM zk where 户主姓名="高承凯"就能执行
但是在asp调用时就出现上面原因！！

m1_1m 2003-03-16

打赏
举报

你的流程不对，再想想！还有就是这
SELECT * FROM zk while 户主姓名='"高承凯"'
用中文来命名字段如“户主姓名”会出问题的

mathsword 2003-03-16

打赏
举报

不行啊

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a0408'

无效字符

/cs/md/aa.asp，行18

sql="SELECT * FROM zk where [户主姓名]='"高承凯"'"

<html>
<head>
<title>图书浏览</title>
</head>
<body>
<%
dim conn

'on error resume next

set conn=server.createobject("ADODB.CONNECTION")
Conn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=D:\wwwdoc\cs\md;" & _
"Exclusive=No"
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "Visual FoxPro Tables"
sql="SELECT * FROM zk where [户主姓名]='"高承凯"'"
Set RS = Conn.Execute(sql)
%>
<table BORDER="1" cellspacing="0" cellpadding="0">
<tr>
<% For i = 0 to 10 %>
<td><b><% =RS(i).name %></b></td>
<% Next %>
</tr>
<% Do While Not RS.EOF %>
<tr>
<% For i = 0 to 10 %>
<td><% =RS(i) %></td>
<% Next %>
</tr>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</table>
</body>
</html>

lgchao 2003-03-16