UC知道为什么总是 缺少end? 肯请帮忙一下
来源：百度知道 编辑：UC知道 时间：2024/05/23 16:35:30
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/top.asp，行 204
else
^
代码如下：
<%
Sql = "SELECT top 7 * FROM List_Users WHERE UserPowerID=2 ORDER BY UserRegisterTime DESC"
Set Rs = UseDB.EditDB(SQL)
For i=1 To 7
if Rs.Eof then
if len(rs("UserCom")) <=14 then
response.write rs("UserCom")
else
response.write left(rs("UserCom"),14)
%>
<td width="152" height="40"> </td>
<td width="19" height="40"> </td>
<%
else
%>
<td width="154" height="40"><a href="business_info.asp?CID=<%=Rs("UID")%>">·<%=Trim(Rs("UserCom"))%></a></td>
<td width="12" height="40"> </td>
缺少 'End'
/top.asp，行 204
else
^
代码如下：
<%
Sql = "SELECT top 7 * FROM List_Users WHERE UserPowerID=2 ORDER BY UserRegisterTime DESC"
Set Rs = UseDB.EditDB(SQL)
For i=1 To 7
if Rs.Eof then
if len(rs("UserCom")) <=14 then
response.write rs("UserCom")
else
response.write left(rs("UserCom"),14)
%>
<td width="152" height="40"> </td>
<td width="19" height="40"> </td>
<%
else
%>
<td width="154" height="40"><a href="business_info.asp?CID=<%=Rs("UID")%>">·<%=Trim(Rs("UserCom"))%></a></td>
<td width="12" height="40"> </td>
<%
Sql = "SELECT top 7 * FROM List_Users WHERE UserPowerID=2 ORDER BY UserRegisterTime DESC"
Set Rs = UseDB.EditDB(SQL)
For i=1 To 7
If Rs.Eof Then
If len(rs("UserCom")) <=14 Then
Response.write rs("UserCom")
else
Response.write left(rs("UserCom"),14)
end if
%>
<td width="152" height="40"> </td>
<td width="19" height="40"> </td>
<%
else
%>
<td width="154" height="40"><a href="business_info.asp?CID=<%=Rs("UID")%>">·<%=Trim(Rs("UserCom"))%></a></td>
<td width="12" height="40"> </td>
<%
Rs.MoveNext
End If
If i mod 4 = 0 Then Response.Write "</tr><tr>"
Next
UseDB.C