哪位大人帮小弟看看下面代码有什么问题:运行了后总提示
Microsoft VBScript 编译器错误 错误 '800a040e'
'loop' 语句缺少 'do'
/prod.asp,行49
Loop
错误,小弟急用,各位大人请帮帮忙!
<%
Set cs=Server.CreateObject("Adodb.RecordSet")
cs.Open "Select distinct LarCode from bclass order by ClassID asc",conn,1,1
If not cs.eof then
c=0
Do while not cs.eof
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select ProdID,ProdName,Prod1,ProdDisc,PriceOrigin,PriceList from bproduc where LarCode="&cs("LarCode")&" order by ProdNum desc",conn,1,1
If not rs.eof then
c=c+1
%>
<%If c>1 then%><br><%End If%>
<table width="557" border="0" cellspacing="1" cellpadding="5">
<tr bgcolor="#DFD27C">
<td colspan="4" align="center" class="font-14"><a href="class.asp?LarCode=<%=cs("LarCode")%>" target="_blank"><font color="#333333"><strong><%=cs("LarCode")%></strong></font></a></td>
</tr>
<tr>
<td align="center" nowrap bgcolor="#EAD4A3"><strong><font color="#FFFFFF">型号</font></strong></td>
<td width="100%" align="center" bgcolor="#EAD4A3"><font color="#FFFFFF"><strong>配置详情</strong></font></td>
<td align="center" nowrap bgcolor="#EAD4A3"><font color="#FFFFFF"><strong>价格</strong></font></td>
</tr>
<%
bgcolor="#f6ebd1"
Do while not rs.eof
If bgcolor="#f6ebd1" then
bgcolor="#f2e2be"
Else If bgcolor="#f2e2be" then
bgcolor="#f6ebd1"
End if
%>
<tr>
<td nowrap bgcolor="<%=bgcolor%>">[<%=rs("Prod1")%>] <b><a href="list.asp?ProdId=<%=rs("ProdID")%>" target="_blank" style="color:#000000"><%=rs("ProdName")%></a></b></td>
<td bgcolor="<%=bgcolor%>"><font color="#FFFFFF">配置:</font><a href="list.asp?ProdId=<%=rs("ProdID")%>" target="_blank" style="color:#333333"><%=rs("ProdDisc")%></a></td>
<td align="center" nowrap bgcolor="<%=bgcolor%>"><strong><font color="#FF6600">
<%If rs("PriceList")<>0 then Response.Write rs("PriceList")&"元" Else Response.Write "<font color=#333333>缺货</font>"%>
</font></strong></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
</table>
<%
End if
cs.MoveNext
Loop
End if
cs.Close
Set cs=Nothing
%>
參考答案:我调整了一下,但因没有相应数据库,无法调试,你试试看
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
Set cs=Server.CreateObject("Adodb.RecordSet")
cs.Open "Select distinct LarCode from bclass order by ClassID asc",conn,1,1
If not cs.eof then
c=0
Do while not cs.eof
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select ProdID,ProdName,Prod1,ProdDisc,PriceOrigin,PriceList from bproduc where LarCode="&cs("LarCode")&" order by ProdNum desc",conn,1,1
If not rs.eof then
c=c+1
If c>1 then%>
<br>
<%End If%>
<table width="557" border="0" cellspacing="1" cellpadding="5">
<tr bgcolor="#DFD27C">
<td colspan="4" align="center" class="font-14"><a href="class.asp?LarCode=<%=cs("LarCode")%>" target="_blank"><font color="#333333"><strong><%=cs("LarCode")%></strong></font></a></td>
</tr>
<tr>
<td align="center" nowrap bgcolor="#EAD4A3"><strong><font color="#FFFFFF">型号</font></strong></td>
<td width="100%" align="center" bgcolor="#EAD4A3"><font color="#FFFFFF"><strong>配置详情</strong></font></td>
<td align="center" nowrap bgcolor="#EAD4A3"><font color="#FFFFFF"><strong>价格</strong></font></td>
</tr>
<%
bgcolor="#f6ebd1"
Do while not rs.eof
If bgcolor="#f6ebd1" then
bgcolor="#f2e2be"
Else If bgcolor="#f2e2be" then
bgcolor="#f6ebd1"
End if
%>
<tr>
<td nowrap bgcolor="<%=bgcolor%>">[<%=rs("Prod1")%>] <b><a href="list.asp?ProdId=<%=rs("ProdID")%>" target="_blank" style="color:#000000"><%=rs("ProdName")%></a></b></td>
<td bgcolor="<%=bgcolor%>"><font color="#FFFFFF">配置:</font><a href="list.asp?ProdId=<%=rs("ProdID")%>" target="_blank" style="color:#333333"><%=rs("ProdDisc")%></a></td>
<td align="center" nowrap bgcolor="<%=bgcolor%>"><strong><font color="#FF6600">
<%
If rs("PriceList")<>0 then
Response.Write rs("PriceList")&"元"
Else
Response.Write "<font color=#333333>缺货</font>"
end if
%>
</font></strong></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
</table>
<%
End if
cs.MoveNext
Loop
End if
cs.Close
Set cs=Nothing
%>
</body>
</html>