回 帖 发 新 帖 刷新版面

主题:总是显示缺少语句

    <%
    if page>1 then
      response.Write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page=1' title='首页'><font face=webdings>"&9&"</font></a>"
      response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&page-1&"' title='上一页'><font face=webdings>"& 7 &"</font></a>"
     end if
    if rs1.pagecount<=5 then
                   for j=1 to rs1.pagecoun
                   response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&j&"'>"& j &"</a>"
                                              next
                                        else
                                           for j=1 to 5
                                            response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&j&"'>"& j &"</a>"
                                            if page<rs1.pagecount then
                                             response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&page+1&"' title='下一页'><font face=webdings>"& 8 &"</a>"
                    response.write"&nbsp;<a href='AdminNews.asp?page=rs1.pagecount&selectclass="&selectclass&"' title='尾页'><font face=webdings>:</font></a>"    
                    end if
                    end if%>(此处总是显示缺少语句)              </td>
  </tr>
  <% rs1.close
  set rs1=nothing
  end if
%>

回复列表 (共4个回复)

沙发

& 9 &
& 7 &
这是什么?

板凳

似乎少了next 这样试试

<%
    if page>1 then
      response.Write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page=1' title='首页'><font face=webdings>"&9&"</font></a>"
      response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&page-1&"' title='上一页'><font face=webdings>"& 7 &"</font></a>"
     end if
    if rs1.pagecount<=5 then
                   for j=1 to rs1.pagecoun
                   response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&j&"'>"& j &"</a>"
                                              next
                                        else
                                           for j=1 to 5
                                            response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&j&"'>"& j &"</a>" next
                                            if page<rs1.pagecount then
                                             response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&page+1&"' title='下一页'><font face=webdings>"& 8 &"</a>"
                    response.write"&nbsp;<a href='AdminNews.asp?page=rs1.pagecount&selectclass="&selectclass&"' title='尾页'><font face=webdings>:</font></a>"    
                    end if
                    end if%>(此处总是显示缺少语句)              </td>
  </tr>
  <% rs1.close
  set rs1=nothing
  end if
%>

3 楼


 <%
    if page>1 then
      response.Write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page=1' title='首页'><font face=webdings>"&9&"</font></a>"
      response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&page-1&"' title='上一页'><font face=webdings>"& 7 &"</font></a>"
     end if
    if rs1.pagecount<=5 then
                   for j=1 to rs1.pagecoun
                   response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&j&"'>"& j &"</a>"
                                              next
                                        else
                                           for j=1 to 5
                                            response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&j&"'>"& j &"</a>"
                                            if page<rs1.pagecount then
                                             response.write"&nbsp;<a href='AdminNews.asp?selectclass="&selectclass&"&page="&page+1&"' title='下一页'><font face=webdings>"& 8 &"</a>"
                    response.write"&nbsp;<a href='AdminNews.asp?page=rs1.pagecount&selectclass="&selectclass&"' title='尾页'><font face=webdings>:</font></a>"    
                    end if
                     [color=800000]next[/color]                    end if%>(此处总是显示缺少语句)              </td>
  </tr>
  <% rs1.close
  set rs1=nothing
  end if
%>

4 楼

if和end if是配对的。粗略地看了你的代码里有三个if,却有四个end if,当然会出错缺少语句的错误了。你可以删除那个end if试试看。

我来回复

您尚未登录,请登录后再回复。点此登录或注册