急啊，服务器老是说NEXT错误，但语法没错呀 - 编程论坛

#2

yms1232008-04-28 17:49

<%@language="vbscript" codepage="936"%>
<script language="vbscript" runat="server">
dim conn,connstr
set conn=server.createobject("adodb.connecton")
connstr="provider.........."
conn.open connstr
set rs=server.createobject("adodb.recordset")
</script>
<html>
<head>
<title>#</title>
</head>
<body>
<%
dim pname,pzhou
for i=1 to i<1726 step 1
rs=conn.execute("select name from pzhou where id=1")
pname=rs
rs=conn.execute("select * from paicha where user=pname")
if not isempty(rs) then
response.write(rs("user"))
end if'这里缺少end if
next
%>
</body>
</html>

#3

独夜人2008-04-28 18:03

非常感谢

楼上说的对，加上end if后调试没问题了，可页面没有东西显示呢，问题何在？

上面程序是为了达到以下目的而设计：
手上有个access数据库，里面有两个表，每个表里有上千个姓名，现要求核查表一中的名字是否在表二中重复出现，并显示重复出现的名字。

#4

yms1232008-04-28 18:53

<%
dim pname,pzhou
for i=1 to i<1726 step 1
rs=conn.execute("select name from pzhou where id=1")
pname=rs("这里缺少字段名")
rs=conn.execute("select * from paicha where user="&pname)'变量用&符号连接字符串
if not isempty(rs) then
response.write(rs("user"))
end if'这里缺少end if
next
%>

#5

独夜人2008-04-29 10:14

非常感谢

谢谢版主的关注，可问题仍然依旧——页面显示空白，我在数据库的两个表里添加了一样的数据，可还是没内容显示，问题何在呢？是程序设计问题？