[新手救助]为什么代码提示出错

Question

<%
cc=request.form("kok")
if cc="ok" then 
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access driver (*.mdb)};dbq="&server.mappath("kk.mdb")
exec="select * from beok"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3 
page=2
rs.pagesize=8
counts=5
allpages=rs.pagecount
rs.absolutepage=page
do while (not rs.eof) and counts>0 %>
<table width="536" height="235" border="1" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr bgcolor="#FFFFFF">
    <td>&ETH;&Otilde;&Atilde;&ucirc;</td>
    <td>±&cedil;×&cent;</td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td><%=rs("min")%></td>
    <td><%=rs("xin")%></td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<%
counts=counts-1
rs.movenext
if rs.eof then exit do
loop
end if
end if
if page=2 then 
response.write "前页 后页"
else 
response.write "<a href=pageview.asp?page=1>首页</a>"
                "<a href=pageview.asp?page="&page-1&">前页</a>"
end if
if page=allpages then
response.write "下页 末页"
else
response.write "<a href=pageview.asp?page="&page+1&">下页</a>
                <a href=pageview.asp?page="&allpages&">末页</a>"%>
提示出错内容:
end if
if page=2 then 
response.write "?? ??"
else 
response.write "??"[0]Script error detected at line 40,col[0].
Source line: end if
Description: 缺少语句怎么会呢?请高手指导

Answer 1

两个错误点，
第一个
if rs.eof then exit do
loop
end if
end if
多了一个end if
第二个地方
最后
if page=allpages then
response.write "下页 末页"
else
response.write "<a href=pageview.asp?page="&page+1&">下页</a>
                <a href=pageview.asp?page="&allpages&">末页</a>"少了一个end if
另外提一句，你把代码缩进下，注意下格式，以后调试也结构清晰。

Answer 2

<%
cc=request.form("kok")
if cc="ok" then 
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access driver (*.mdb)};dbq="&server.mappath("kk.mdb")
exec="select * from beok"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3 
page=2
rs.pagesize=8
counts=5
allpages=rs.pagecount
rs.absolutepage=page
do while (not rs.eof) and counts>0 %>
<table width="536" height="235" border="1" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr bgcolor="#FFFFFF">
    <td>&ETH;&Otilde;&Atilde;&ucirc;</td>
    <td>±&cedil;×&cent;</td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td><%=rs("min")%></td>
    <td><%=rs("xin")%></td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<%
counts=counts-1
rs.movenext
if rs.eof then exit do
loop
end if
end if
if page=2 then 
response.write "<font color=darkgray>前一页 末页</font>"
else 
response.write "<a href=pageview.asp?page=1>首页</a>
                <a href=pageview.asp?page="&page-1&">前页</a>"
end if
if page=allpages then
response.write "<font color=red>后一页 首页</font>"
else
response.write "<a href=pageview.asp?page="&page+1&">下页</a>
                <a href=pageview.asp?page="&allpages&">末页</a>"
end if
%>
前一个end if删除了还是出错,所以没删.
增加了后一个end if后还是出错提示内容
end if
if page=2 then 
response.write "??? ??"
else 
response.write "??[0]Script error detected at line 40,col[0].
Source line: end if
Description: 缺少语句怎么还是这样呢?...